Sharp PC-E500/E500S Technikersoftware

ELEMAG.313

Elektrische & magnetische Felder

ELEMAG.313 (1.020 Bytes)

10 ' MAGNETIC.313 (Electric & Magnetic fields)
20 CLEAR
30 MERGE "G:DISP500.00$":MERGE "G:COMN.00$"
40 QMS$="    *  ELECTRIC & MAGNETIC FIELDS  *"
100 DATA "rotH=i, rotE=-",&9E,B/,&9E,"t, divB=0, divD=",&B1,@
110 DATA F=Q,&D2,Q,&D3,/4,&B0,&A5,&D1,r,&C3,=k,&D1,Q,&D2,Q,&D3,/r,&C3,", k",&D1,=9*10,&CA,@
120 DATA "E=V/d, F=QE, W=QV",@
130 DATA "Q=CV, C=",&A5,&D1,&EA,S/d,@
140 DATA U=1/2,&EA,QV=1/2,&EA,CV,&C3,@
150 DATA "a=QE/m, 1/2",&EA,mv,&C3,=eV,@
160 DATA F=m,&D2,m,&D3,/4,&B0,&AC,&D1,r,&C3,"                        =k",&D1,m,&D2,m,&D3,/r,&C3,", k",&D1,=10,&C8,/(4,&B0,),&C3,@
170 DATA H=I/2,&B0,"r, H=IN/2r, H=In",@
180 DATA F=,&AC,&D1,IHl=IBl,@
190 DATA B=m/4,&B0,r,&C3,=,&AC,&D1,H,@
200 DATA "F=QvB, r=mv/QB",@
210 DATA 1/2,&EA,mv,&C3,=Q,&C3,B,&C3,r,&C3,"/2m, ",&B8,=v/r=QB/m,@
220 DATA V=-n,&EA,&84,&B5,/,&84,t,@
230 DATA "V=El=vBl, I=vBl/R",@
240 DATA V,&D3,=-M,&EA,&84,I,&D2,/,&84,t,@
250 DATA V,"'=-L",&EA,&84,I/,&84,t,", L=N",&B5,/I,@
260 QMA=250:QMI=100:QMD=170:R6=QMI
270 GOSUB 10000

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

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