cal/cal/lumdist.cal

{ RCSid $Id$ }
{
        Conversion from zonal lumens to watts/steradian
}

lum2watt(t0,t1,l) = l / 683 / (omega(t1)-omega(t0)) ;

omega(d) = 2*PI * (1-cos(d*PI/180)) ;
Revision:	1.2
Committed:	Wed Nov 21 18:10:45 2018 UTC (5 years, 5 months ago) by greg
Branch:	MAIN
CVS Tags:	rad5R4, rad5R3, HEAD
Changes since 1.1:	+1 -0 lines
Log Message:	Added missing RCSid tag
#	Content
1	{ RCSid $Id$ }
2	{
3	Conversion from zonal lumens to watts/steradian
4	}
5
6	lum2watt(t0,t1,l) = l / 683 / (omega(t1)-omega(t0)) ;
7
8	omega(d) = 2PI (1-cos(d*PI/180)) ;