×

You are using an outdated browser that does not fully support the intranda viewer.
As a result, some pages may not be displayed correctly.

We recommend you use one of the following browsers:

Full text

Title
Proceedings of the Symposium on Global and Environmental Monitoring

834
Procedure status;
Begin
slopang trunc(min(visang,sunel));
while (slopang < 90) and (phitwo < 90 ) and (phithree < 90) do
begin
slopang slopang +1;
phitwo : = iglo(slopang,visang);
minvis := (view - phitwo); maxvis := (view + phitwo) ;
if (maxvis > 360) then maxvis : = (maxvis - 360);
phithree := iglo(slopang,sunel);
minsh := (shine - phithree); maxsh := (shine + phithree) ;
If (maxsh > 360) then maxsh : = (maxsh - 360);
if phitwo- 0 then
writeln (round(slopang):6, ' ':12,' ' ':8,
round(minsh):12,' , round(maxsh):8 )
else if phithree ยป 0 then
writeln (round(slopang):6,round(minvis):12,' -',round(maxvis):8,
' ' :12, ' , ' ':8 )
else writeln (round(slopang):6,round(minvis):12,' ,round(maxvis):8,
round(minsh):12,' , round(maxsh):8 );
end ;
end;{status}
Begin {main program}
Readin;
Header;
Status;
End.