Sharp PC-E500/E500S Technikersoftware

PLANET.232

Solare/planetarische Konstante

PLANET.232 (2.905 Bytes)

10 ' PLANETS.232 (Sun Planets Moon constants)
15 CLEAR
20 MERGE "G:COMN.00$"
30 DIM QMS$(4)
40 ' data-1,data-2,data-3,data-4,data-5,data-6,data-7,data-8
100 DATA "<< Sun >>","---","---","696000","28.01","1304000","332946","25.38","---"
110 DATA "<<Mercury>>","0.3871","0.2056","2439","0.38","0.056","0.055","58.65","0.2409"
120 DATA "<< Venus >>","0.7233","0.0068","6052","0.91","0.857","0.815","243.01","0.6152"
130 DATA "<< Earth >>","1.0000","0.0167","6378","1.00","1.000","1.000","0.9973","1.0000"
140 DATA "<< Mars >>","1.5237","0.0934","3397","0.38","0.151","0.107","1.0260","1.8809"
150 DATA "<<Jupiter>>","5.2026","0.0485","71398","2.37","1316","317.832","0.414","11.862"
160 DATA "<<Saturn>>","9.5549","0.0556","60000","0.95","745","95.16","0.444","29.458"
170 DATA "<<Uranus>>","19.2184","0.0463","25400","0.89","61","14.50","0.649","84.022"
180 DATA "<<Neptune>>","30.1104","0.0090","24300","1.19","54","17.22","0.768","164.774"
190 DATA "<< Pluto >>","39.5399","0.2490","2000?","0.02?","0.03?","0.0023?","6.387","248.534"
200 DATA "<< Moon >>","---","---","1738","0.17","0.0203","0.012300","27.3217","---"
210 QMS$(1)="    *  SOLAR/PLANETARY CONSTANTS  *"
220 QMS$(2)=" 0:Sun     1:Mercury 2:Venus   3:Earth"
230 QMS$(3)=" 4:Mars    5:Jupiter 6:Saturn  7:Uranus"
240 QMS$(4)=" 8:Neptune 9:Pluto   M:Moon
250 QMI=100:QMA=200:R6=QMI
10000 ' display routine
10010 GOSUB *CG
10020 CLS
10030 PRINT QMS$(1):PRINT QMS$(2):PRINT QMS$(3):PRINT QMS$(4)
10040 '
10050 Q4$=INKEY$ &1:P1=ASC Q4$
10060 '
10070 IF P1=&4THEN R6=QMA:GOTO 10100
10080 IF P1>&2AND P1<&3THEN P1=(P1-48)*10:R6=QMI+P1:GOTO 10100
10090 GOTO 10040
10100 RESTORE R6
10110 READ QDT1$,QDT2$,QDT3$,QDT4$,QDT5$,QDT6$,QDT7$,QDT8$,QDT9$
10120 ' line=0
10130 QWK$=LEFT$ (QCL$,11-LEN QDT1$)
10140 LOCATE 0,0:PRINT QDT1$;QWK$
10150 QWK$=LEFT$ (QCL$,7-LEN QDT2$)
10160 LOCATE 11,0:PRINT "a= ";QDT2$;QWK$
10170 QWK$=LEFT$ (QCL$,7-LEN QDT3$)
10180 LOCATE 21,0:PRINT "[AU] e= ";QDT3$;QWK$
10190 ' line=1
10200 QWK$=LEFT$ (QCL$,7-LEN QDT4$)
10210 LOCATE 0,1:PRINT "radius= ";QDT4$;QWK$
10220 QWK$=LEFT$ (QCL$,10-LEN QDT5$)
10230 LOCATE 15,1:PRINT "[km] gravity= ";QDT5$;QWK$
10240 ' line=2
10250 QWK$=LEFT$ (QCL$,12-LEN QDT6$)
10260 PRINT "volume= ";QDT6$;QWK$
10270 QWK$=LEFT$ (QCL$,10-LEN QDT7$)
10280 LOCATE 20,2:PRINT "mass   = ";QDT7$;QWK$
10290 ' line=3
10300 QWK$=LEFT$ (QCL$,8-LEN QDT8$)
10310 PRINT "rotation= ";QDT8$;QWK$:LOCATE 18,3
10320 QWK$=LEFT$ (QCL$,9-LEN QDT9$)
10330 PRINT "[day] P= ";QDT9$;QWK$
10340 LOCATE 34,3:PRINT "[year]"
10350 '
10360 Q4$=INKEY$ &1:P1=ASC Q4$
10370 '
10380 IF P1=&4 THEN R6=R6-10:GOTO 10440
10390 IF P1=&5 THEN R6=R6+10:GOTO 10440
10400 IF P1=&E THEN R6=R6+40:GOTO 10440
10410 IF P1=&F THEN R6=R6-40:GOTO 10440
10420 IF P1=&D THEN 10000 ELSE 10350
10430 '
10440 IF R6>QMA THEN R6=QMA
10450 IF R6<QMI THEN R6=QMI
10460 GOTO 10100

Generated by (c) Casio FX-850P/FX-880P Notepad 2.02

(c) by mani.becker@web.de - http://blog.manib.bplaced.net