Casio FX-850P Scientific Library 116

5932

Wellenbewegung

LIB5932 (1359 Bytes)

5 GOTO10010
10 DATAWave,"v=ÿ/T=fÿ , y=a¥sin2ç(t/T-x/ÿ)",10,20,
20 DATAWave of string,v=?(F/þ),10,30,1,3E40484830
30 DATAInterference,"lý-lü=(2n+1)ÿ/2 , lý-lü=nÿ",20,40,
40 DATAStationary wave,"l=nÿ/2 , l=(2n-1)ÿ/4   (nâ0)",30,50,
50 DATARefraction,n=sin?/sin=vü/vý=ÿü/ÿý,40,60,
60 DATANatural frequency (wave),f=(1/2l)¥?(T/þ),50,70,1,3E40484830
70 DATAVelocity of sound,v=331.5+0.61T,60,80,
80 DATADoppler effect,f=fû¥(v-vü)/(v-vý),70,90,
90 DATABeat,f=fü-fý    (fü>fý),80,100,
100 DATAReflectivity,Rû=((nü-ný)/(nü+ný))?,90,110,
110 DATACritical angle,sin?=nü/ný,100,120,
120 DATAde Broglie wave,ÿ=h/mv,110,130,
130 DATAQuantum condition,2çr=nh/mv=nÿ,120,140,
140 DATAPhotoelectron,1/2¥mv?=hþ-W,130,150,1,3E02040830
150 DATAFrequency condition,hþ=Em-En    (m>n),140,160,
160 DATALight wave,"ÿ=c/þ , c=2.998*10? [m/s]",150,160,1,3E02040830
10010 MODE8:DIM:x=10:y=160:r=x
10020 DEFCHR$(255)="424C300806"
10030 DEFCHR$(253)="2E2A3A0000"
10050 DEFCHR$(252)="123E020000"
10110 RESTORE(r)
10120 CLS:READm$,n$,b,c,d:IFd=1 THENREADd$:DEFCHR$(254)=d$
10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
10140 PRINTm$;TAB(l);l$;n$;
10150 z=ASC(INPUT$(1,@))
10170 IFz=29 ANDr<>THENr=x:GOTO10110
10180 IFz=28 ANDr<>THENr=y:GOTO10110
10190 IFz=30 ANDr<>THENr=b:GOTO10110
10200 IF(z=31 ORz=13) ANDr<>THENr=c:GOTO10110
10280 GOTO10150

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

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