1.
#!/usr/bin/perl # http://www.stjarnhimlen.se/comp/ppcomp.html ...
... $lonecl=$lonecl +(0.035 * sin($msr - 3*$mur + 33 ))*$dtr; $lonecl=$lonecl ..... 0){goto go31;} } $det=0; goto exeunt; #ary was empty go31; for($mi=$mk; ...
2.
3.
4.
5.
6.
7.
8.
9.
10.