{VERSION 3 0 "IBM INTEL NT" "3.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 } {PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Output" 0 11 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 3 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "" 11 12 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }1 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }{PSTYLE "Maple Plot" 0 13 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 }3 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 612 "light := proc(phi:: numeric, inc::numeric, sep::numeric)\nlocal dist, area, al, be, li, du m;\ndescription `calculates the brightness of the system`;\ndum := cos (phi)*cos(phi) + sin(phi)*sin(phi)*sin(inc)*sin(inc);\ndist := sep * e valf(sqrt(dum));\nif (dist >= 2.52) then\n area := 0.0;\nelif(dist < = 0.52) then\n area := 3.14159;\nelse\n al := arccos(0.5*(dist*dis t+1.3104)/(dist*1.52));\n be := arccos(0.5*(dist*dist-1.3104)/dist); \n area := 2.3104*al + be - dist*1.52*sin(al);\nfi;\nif(phi <= 3.141 59) then\n li := 1 + 11.3*(1.0-area/(3.14159*2.3104));\nelse\n li \+ := 11.3 + (1.0-area/3.14159);\nfi;\nRETURN(li);\nend;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%&lightGR6%' %$phiG%(numericG'%$incGF)'%$sepGF)6(%%distG%%areaG%#alG%#beG%#liG%$dum G6\"F5C'>8),&*$)-%$cosG6#9$\"\"#\"\"\"\"\"\"*&)-%$sinGF>F@FA)-FF6#9%F@ FAFB>8$*&9&FB-%&evalfG6#-%%sqrtG6#F8FB@'1$\"$_#!\"#FL>8%\"\"!1FL$\"#_F Y>Fen$\"'fTJ!\"&C%>8&-%'arccosG6#,$*&,&*$)FLF@FAFB$\"&/J\"!\"%FBFAFL! \"\"$\"+%ot%*G$!#5>8'-Fbo6#,$*&,&FgoFB$!&/J\"F[pFBFAFLF\\p$\"\"&!\"\"> Fen,(F`o$\"&/J#F[pFapFB*&FLFB-FF6#F`oFB$!$_\"FY@%1F?F[o>8(,&$\"%I7FYFB Fen$!+V?$ob\"!\"*>Fhq,&$\"$B\"F[qFBFen$!+]:5$=$F_p-%'RETURNG6#Fhq6#%Hc alculates~the~brightness~of~the~systemGF5F5" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "x_ab := [seq(i*40, i=0..9)];" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%x_abG7,\"\"!\"#S\"#!)\"$?\"\"$g\"\"$+#\"$S#\"$!G\"$? $\"$g$" }}}{EXCHG {PARA 13 "" 1 "" {TEXT -1 0 "" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 104 "plot('light(Pi*t/180,Pi*10/180,9)', t=0..360, color = blue, xtickmarks=x_ab, labels=[\"Bahnwinkel\", \"L\"]);" }} {PARA 13 "" 1 "" {GLPLOT2D 792 426 426 {PLOTDATA 2 "6'-%'CURVESG6#7[q7 $\"\"!$\"1++++++I7!#97$$\"1*******\\vp%y!#:F)7$$\"1++]#peuY\"F+F)7$$\" 1+++0]HNAF+F)7$$\"1+++N5A3IF+F)7$$\"1++]#[tux$F+F)7$$\"1++]s*o1\\%F+F) 7$$\"1++]#fT\"H_F+F)7$$\"1++]K5(G*fF+F)7$$\"1++]#=^Tv'F+F)7$$\"1++D'G' oXrF+F)7$$\"1,++!R@s`(F+F)7$$\"1+]7tuVBwF+F)7$$\"1,+DcNl4xF+F)7$$\"1+] PR'pez(F+$\"1'>&[f-&HA\"F+7$$\"1++]Ad3#)yF+$\"1)y@OQ7.@\"F+7$$\"1,]i0= IozF+$\"18g^2)3Z>\"F+7$$\"1++v))y^a!)F+$\"1umbOFDx6F+7$$\"1**\\(=(RtS \")F+$\"1yb@-\\se6F+7$$\"1+++b+&pA)F+$\"1vhLKwwR6F+7$$\"1,vo*\\zaF)F+$ \"1y4[*=D\"H6F+7$$\"1,]PW*3SK)F+$\"1\")[g%3D'=6F+7$$\"1,D1*QQDP)F+$\"1 T$*zR/O36F+7$$\"1++vLy1@%)F+$\"1F6L1%[QO1\"F+7$$\"1+](=]WAr)F+$\"1&H:7 3I.0\"F+7$$\"1++D\"R.$4))F+$\"1?/,,BYS5F+7$$\"1,]i!Gij!*)F+$\"1xSICNVM 5F+7$$\"1+++q6U.!*F+$\"1$GD\"HV\\K5F+7$$\"1,+]#fy35*F+$\"11V+`UuM5F+7$ $\"1,++:gL)>*F+$\"1t_%38/6/\"F+7$$\"1,+]PMz&H*F+$\"1GNoTzI^5F+7$$\"1,+ +g3D$R*F+$\"1.(e=bT\\1\"F+7$$\"1++]#G32\\*F+$\"1wimjHZ\"3\"F+7$$\"1+++ 0d;)e*F+$\"1'zz;\\$G+6F+7$$\"1++D;W*oj*F+$\"1\\gatGL56F+7$$\"1++]FJi&o *F+$\"1!f.XK$p?6F+7$$\"1++vQ=NM(*F+$\"1_^#zvs78\"F+7$$\"1+++]03$y*F+$ \"1lF?Aj(>9\"F+7$$\"1++]#pR+$)*F+$\"1Ub.+qJ_6F+7$$\"1,++N))*p()*F+$\"1 a\\KZ0fi6F+7$$\"1,+]xz&R#**F+$\"1@ih.4qs6F+7$$\"1+++?r\"4(**F+$\"1fS4k aa#=\"F+7$$\"1++]SN[15!#8$\"1vHze^(4?\"F+7$$\"1+++p`(e,\"Fgw$\"1WVWb4w ;7F+7$$\"1++](>n_-\"Fgw$\"135b1#4!G7F+7$$\"1+++E!fY.\"FgwF)7$$\"1++]a3 0W5FgwF)7$$\"1+++$oUM0\"FgwF)7$$\"1+]7.ub(3\"FgwF)7$$\"1++DB@n@6FgwF)7 $$\"1+++FN!G?\"FgwF)7$$\"1+++oC`r7FgwF)7$$\"1++Dl0[^8FgwF)7$$\"1+++y\" [AU\"FgwF)7$$\"1++Dl9*)*\\\"FgwF)7$$\"1++vNi#Qd\"FgwF)7$$\"1++]7%p4l\" FgwF)7$$\"1++DI4\"=s\"FgwF)7$$\"1++]xIA)z\"FgwF)7$$\"1++DBQfx=FgwF)7$$ \"1++v!H'oY>FgwF)7$$\"1++][!38-#FgwF)7$$\"1+++E'*R)4#FgwF)7$$\"1++]%p= Q<#FgwF)7$$\"1++D@0zYAFgwF)7$$\"1++]$H8yK#FgwF)7$$\"1+++eeh+CFgwF)7$$ \"1+++N\"[$yCFgwF)7$$\"1+]7Lmc8DFgwF)7$$\"1++DJ^y[DFgwF)7$$\"1](o9\"4T eDFgwF)7$$\"1+vo\"pO!oDFgwF)7$$\"1]i!>Ziwd#Fgw$\"1f7)Hh:!H7F+7$$\"1+]7 _#)G(e#Fgw$\"17$[N]%GE7F+7$$\"1+Dc7)Rlg#Fgw$\"1@#RjRY(=7F+7$$\"1+++t8z DEFgw$\"1D!f`Qg,@\"F+7$$\"1+]74)>?m#Fgw$\"1X.CR&He>\"F+7$$\"1++DX#[#)p #Fgw$\"10_Aj8j*=\"F+7$$\"1++v*R\"F+7$$\"1++Dal)Rx#F gw$\"112\"*H4157F+7$$\"1+]iu0,6GFgw$\"1\"ob*ykqD7F+7$$\"1+++&fM![GFgwF )7$$\"1+]78`z')GFgwF)7$$\"1++DJgbDHFgwF)7$$\"1+++)Q=-+$FgwF)7$$\"1++]J 9dwIFgwF)7$$\"1++DLAH_JFgwF)7$$\"1+++'yr=A$FgwF)7$$\"1++]0yh,LFgwF)7$$ \"1+++'fVHP$FgwF)7$$\"1++Dl<**[MFgwF)7$$\"1++vm&z<_$FgwF)7$$\"$g$F(F)- %+AXESLABELSG6$Q+Bahnwinkel6\"Q\"LFjbl-%*AXESTICKSG6$7,F(\"#S\"#!)\"$? \"\"$g\"\"$+#\"$S#\"$!G\"$?$Febl%(DEFAULTG-%'COLOURG6&%$RGBGF(F($\"*++ ++\"!\")-%%VIEWG6$;F(FdblFhcl" 1 2 0 1 0 2 6 1 4 2 1.000000 45.000000 45.000000 0 }}}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 85 "wertetabelle := [seq([2*n,light(evalf(Pi*2*n/180),evalf(Pi*10/180),9.0)], n=0..180 )];" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%-wertetabelleG7av7$\"\"!$\"%I 7!\"#7$\"\"#F(7$\"\"%F(7$\"\"'F(7$\"\")F(7$\"#5F(7$\"#7F(7$\"#9F(7$\"# ;F(7$\"#=F(7$\"#?F(7$\"#AF(7$\"#CF(7$\"#EF(7$\"#GF(7$\"#IF(7$\"#KF(7$ \"#MF(7$\"#OF(7$\"#QF(7$\"#SF(7$\"#UF(7$\"#WF(7$\"#YF(7$\"#[F(7$\"#]F( 7$\"#_F(7$\"#aF(7$\"#cF(7$\"#eF(7$\"#gF(7$\"#iF(7$\"#kF(7$\"#mF(7$\"#o F(7$\"#qF(7$\"#sF(7$\"#uF(7$\"#wF(7$\"#y$\"+.sVA7!\")7$\"#!)$\"+@1Y)= \"Fep7$\"##)$\"+\")RqX6Fep7$\"#%)$\"+K1p-6Fep7$\"#')$\"+\"p**f1\"Fep7$ \"#))$\"+!3Z7/\"Fep7$\"#!*$\"+G<\\K5Fep7$\"##*$\"+\"3Z7/\"Fep7$\"#%*$ \"+#p**f1\"Fep7$\"#'*F`q7$\"#)*F\\q7$\"$+\"Fhp7$\"$-\"Fcp7$\"$/\"F(7$ \"$1\"F(7$\"$3\"F(7$\"$5\"F(7$\"$7\"F(7$\"$9\"F(7$\"$;\"F(7$\"$=\"F(7$ \"$?\"F(7$\"$A\"F(7$\"$C\"F(7$\"$E\"F(7$\"$G\"F(7$\"$I\"F(7$\"$K\"F(7$ \"$M\"F(7$\"$O\"F(7$\"$Q\"F(7$\"$S\"F(7$\"$U\"F(7$\"$W\"F(7$\"$Y\"F(7$ \"$[\"F(7$\"$]\"F(7$\"$_\"F(7$\"$a\"F(7$\"$c\"F(7$\"$e\"F(7$\"$g\"F(7$ \"$i\"F(7$\"$k\"F(7$\"$m\"F(7$\"$o\"F(7$\"$q\"F(7$\"$s\"F(7$\"$u\"F(7$ \"$w\"F(7$\"$y\"F(7$\"$!=$\"$B\"!\"\"7$\"$#=F\\x7$\"$%=F\\x7$\"$'=F\\x 7$\"$)=F\\x7$\"$!>F\\x7$\"$#>F\\x7$\"$%>F\\x7$\"$'>F\\x7$\"$)>F\\x7$\" $+#F\\x7$\"$-#F\\x7$\"$/#F\\x7$\"$1#F\\x7$\"$3#F\\x7$\"$5#F\\x7$\"$7#F \\x7$\"$9#F\\x7$\"$;#F\\x7$\"$=#F\\x7$\"$?#F\\x7$\"$A#F\\x7$\"$C#F\\x7 $\"$E#F\\x7$\"$G#F\\x7$\"$I#F\\x7$\"$K#F\\x7$\"$M#F\\x7$\"$O#F\\x7$\"$ Q#F\\x7$\"$S#F\\x7$\"$U#F\\x7$\"$W#F\\x7$\"$Y#F\\x7$\"$[#F\\x7$\"$]#F \\x7$\"$_#F\\x7$\"$a#F\\x7$\"$c#F\\x7$\"$e#$\"+4PXG7Fep7$\"$g#$\"+_o]@ 7Fep7$\"$i#$\"+@[w77Fep7$\"$k#$\"+/.(R?\"Fep7$\"$m#$\"+o%ok>\"Fep7$\"$ o#$\"+XvS\">\"Fep7$\"$q#$\"+Cuh*=\"Fep7$\"$s#Fa^l7$\"$u#F]^l7$\"$w#Fi] l7$\"$y#Fe]l7$\"$!GFa]l7$\"$#GF]]l7$\"$%GF\\x7$\"$'GF\\x7$\"$)GF\\x7$ \"$!HF\\x7$\"$#HF\\x7$\"$%HF\\x7$\"$'HF\\x7$\"$)HF\\x7$\"$+$F\\x7$\"$- $F\\x7$\"$/$F\\x7$\"$1$F\\x7$\"$3$F\\x7$\"$5$F\\x7$\"$7$F\\x7$\"$9$F\\ x7$\"$;$F\\x7$\"$=$F\\x7$\"$?$F\\x7$\"$A$F\\x7$\"$C$F\\x7$\"$E$F\\x7$ \"$G$F\\x7$\"$I$F\\x7$\"$K$F\\x7$\"$M$F\\x7$\"$O$F\\x7$\"$Q$F\\x7$\"$S $F\\x7$\"$U$F\\x7$\"$W$F\\x7$\"$Y$F\\x7$\"$[$F\\x7$\"$]$F\\x7$\"$_$F\\ x7$\"$a$F\\x7$\"$c$F\\x7$\"$e$F\\x7$\"$g$F\\x" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}}{MARK "5 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 }