Horizontal sundial calculations: Difference between revisions

Content deleted Content added

Inline

@@ Line 1,386: / Line 1,386: @@
 =={{header|EasyLang}}==
 <syntaxhighlight lang="text">
-proc getn s$ . v .
+func getn s$ .
-  write s$
+   write s$
-  v = number input
+   v = number input
-  print v
+   print v
+   return v
 .
-call getn "Enter latitude: " lat
+lat = getn "Enter latitude: "
-call getn "Enter longitude: " lng
+lng = getn "Enter longitude: "
-call getn "Enter legal meridian: " merid
+merid = getn "Enter legal meridian: "
 slat = sin lat
 diff = lng - merid
@@ Line 1,402: / Line 1,403: @@
 print "Hour\tSun hour angle\tDial hour line angle"
 for h = -6 to 6
-  hra = 15 * h - diff
+   hra = 15 * h - diff
-  hla = atan2 (slat * sin hra) cos hra
+   hla = atan2 (slat * sin hra) cos hra
-  print h + 12 & "\t" & hra & "\t\t" & hla
+   print h + 12 & "\t" & hra & "\t\t" & hla
 .
 </syntaxhighlight>