Casio FX-850P Scientific Library 116

5910

Wissenschaftliche Konstanten

LIB5910 (2791 Bytes)

5 GOTO10010
10 DATAF ,9.64845610? [C¥mol?],ð10? [emu¥mol?],E4,E3,10,20
20 DATAG ,6.672010??? [m?¥s??¥kg?],ð10?? [cm?¥s??¥g?],E-11,E-8,10,30
30 DATANa,6.02204510?? [mol?],ð10?? [mol?],E23,E23,20,40
40 DATAR ,8.31441," [J¥mol?¥K?]"10? [erg¥mol?¥K?],,E7,30,50
50 DATARÿ,1.09737317710? [m?],ð10? [cm?],E7,E5,40,60
60 DATAVm,22.4138310?? [m?¥mol?],ð10? [cm?¥mol?],E-3,E3,50,70
70 DATAaû,5.291770610??? [m],ð10?? [cm],E-11,E-1,60,80
80 DATAc ,299792458," [m¥s?]"10? [cm¥s?],,E2,70,90
90 DATAe ,1.602189210??? [C],ð10?? [emu],E-19,E-20,80,100
100 DATAg ,9.80665," [m¥s??]"10? [cm¥s??],,E2,90,110
110 DATAh ,6.62617610??? [J¥s],ð10??? [erg¥s],E-34,E-27,100,120
120 DATAk ,1.38066210??? [J¥K?],ð10??? [erg¥K?],E-23,E-16,110,130
130 DATAme,9.10953410??? [kg],ð10??? [g],E-31,E-28,120,140
140 DATAmn,1.674954310??? [kg],ð10??? [g],E-27,E-24,130,150
150 DATAmp,1.672648510??? [kg],ð10??? [g],E-27,E-24,140,160
160 DATAu ,1.660565510??? [kg],ð10??? [g],E-27,E-24,150,170
170 DATA?û,8.85418781810??? [F¥m?],,E-12,,160,180
180 DATAû,12.566370614410?? [H¥m?],,E-7,,170,190
190 DATAb,9.27407810??? [J¥T?],ð10??? [erg¥G?],E-24,E-21,180,200
200 DATAe,9.28483210??? [J¥T?],ð10??? [erg¥G?],E-24,E-21,190,210
210 DATAp,1.410617110??? [J¥T?],ð10??? [erg¥G?],E-26,E-23,200,220
220 DATA? ,5.6703210?? [W¥m??¥K??],ð10??[erg¥s?cm??K??],E-8,E-5,210,220
10010 u=0:MODE8:DIM:x=10:y=220:d$=CHR$(5):r=x:DEFCHR$(255)="060A040A0D"
10050 CLS:LOCATE0,1:PRINT">constant : key A-Z ?";
10110 RESTORE(r)
10120 READm$,n$,s$,t$,x$,y$,b,c:l$="["+MID$(STR$(r/10),2)+"]":IFr<100 THENl$=" "+l$
10130 IFu=1 THENu$=t$ ELSEu$=s$
10140 d=0:LOCATE0,0:PRINTd$;m$;" =";n$;u$;:LOCATE27,1:PRINTl$;
10150 LOCATE30,1:z=ASC(INPUT$(1,@))
10165 IFz>96 THENz=z-32
10170 IFz=28 ANDu<>1 THENu=1:GOTO10130
10180 IFz=29 ANDu<>0 THENu=0:GOTO10130
10190 IFz=30 ANDr<>THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>THENr=c:GOTO10110
10220 IFz>64 ANDz<91 THENGOSUB10310:d=1
10230 IF(z=28 ORz=29) ANDd=1 THEN10140
10280 GOTO10150
10310 LOCATE0,0:PRINT"[";CHR$(z);"]";
10320 IFu=1 THENv$=n$+y$ ELSEv$=n$+x$
10330 a=VAL(v$)
10350 ON z-64 GOSUB10401,10402,10403,10404,10405,10406,10407,10408,10409,10410,10411,10412,10413,10414,10415,10416,10417,10418,10419,10420,10421,10422,10423,10424,10425,10426
10401 A=a:RETURN
10402 B=a:RETURN
10403 C=a:RETURN
10404 D=a:RETURN
10405 E=a:RETURN
10406 F=a:RETURN
10407 G=a:RETURN
10408 H=a:RETURN
10409 I=a:RETURN
10410 J=a:RETURN
10411 K=a:RETURN
10412 L=a:RETURN
10413 M=a:RETURN
10414 N=a:RETURN
10415 O=a:RETURN
10416 P=a:RETURN
10417 Q=a:RETURN
10418 R=a:RETURN
10419 S=a:RETURN
10420 T=a:RETURN
10421 U=a:RETURN
10422 V=a:RETURN
10423 W=a:RETURN
10424 X=a:RETURN
10425 Y=a:RETURN
10426 Z=a:RETURN

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

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