Sharp PC-E500/E500S Technikersoftware

LAPLAC.314

Laplace-Transformationen

LAPLAC.314 (2.958 Bytes)

10 ' LAPLACE.314 (Laplace transformation)
20 CLEAR
30 MERGE "G:DISP502.00$":MERGE "G:COMN.00$"
40 QMS$="      *  LAPLACE TRANSFORMATION  *"
100 DATA 1/s,&MD,1,@
110 DATA 1/s,&C3,&MD,t,@
120 DATA 1/s,&E0,&MD,t,&E0,&CB,&C2,/(n-1)!,"      (n=1,2,3,",&EA,&EA,&EA,),@
130 DATA n!/s,&E0,&CC,&C2,&MD,t,&E0,@
140 DATA 1/,&EB,s,&MD,1/,&EB,(,&B0,t),@
150 DATA &83,(n+1)/s,&E0,&CC,&C2,&MD,t,&E0,"      (n>-1)",@
160 DATA 1,&MD,&A4,(t),@
170 DATA s,&MD,&A4,"'(t)",@
180 DATA 1/(s,&CE,m),&MD,e,&BA,&DF,&E1,@
190 DATA 1/s(s+m),&MD,1/m,&EA,(1-e,&CB,&DF,&E1,),@
200 DATA 1/s,&C3,(s+m),&MD,1/m,&C3,&EA,(e,&CB,&DF,&E1,+mt-1),@
210 DATA a/(s,&C3,+a,&C3,),&MD,sin at,@
220 DATA s/(s,&C3,+a,&C3,),&MD,cos at,@
230 DATA 1/(s,&C3,+a,&C3,),&MD,1/a,&EA,sin at,@
240 DATA a/(s,&C3,-a,&C3,),&MD,sinh at,@
250 DATA s/(s,&C3,-a,&C3,),&MD,cosh at,@
260 DATA 1/(s,&C3,-a,&C3,),&MD,1/a,&EA,sinh at,@
270 DATA 1/s(s,&C3,+a,&C3,),&MD,1/a,&C3,&EA,(1-cos at),@
280 DATA 1/s,&C3,(s,&C3,+a,&C3,),&MD,1/a,&C4,&EA,(at-,sin at),@
290 DATA 1/(s+m)(s+n),&MD,1/(n-m),&EA,(e,&CB,&DF,&E1,-e,&CB,&E0,&E1,),@
300 DATA s/(s+m)(s+n),&MD,1/(m-n),&EA,(me,&CB,&DF,&E1,-ne,&CB,&E0,&E1,),@
310 DATA 1/(s+m),&C3,&MD,te,&CB,&DF,&E1,@
320 DATA 1/(s+m),&E0,&MD,1/(n-1)!,&EA,t,&E0,&CB,&C2,e,&CB,&DF,&E1,"    (n=1,2,3,",&EA,&EA,&EA,),@
330 DATA s/(s+m),&C3,&MD,e,&CB,&DF,&E1,(1-mt),@
340 DATA 1/s(s+m),&C3,&MD,1/m,&C3,&EA,(1-(1+mt)e,&CB,&DF,&E1,),@
350 DATA 1/s,&C3,(s+m),&C3,&MD,t/m,&C3,-2/m,&C4,+2e,&CB,&DF,&E1,/m,&C4,+te,&CB,&DF,&E1,/m,&C3,@
360 DATA (s+n)/(s+m),&C3,&MD,((n-m)t+1)e,&CB,&DF,&E1,@
370 DATA (,&B8,&EA,cos,&A8,+s,&EA,sin,&A8,)/(s,&C3,+,&B8,&C3,),&MD,sin(,&B8,t+,&A8,),@
380 DATA (s,&EA,cos,&A8,-,&B8,&EA, sin,&A8,)/(s,&C3,+,&B8,&C3,),&MD,cos(,&B8,t+,&A8,),@
390 DATA 1/(s,&C3,+a,&C3,),&C3,&MD,1/2a,&C4,&EA,(,sin ,at-at,&EA,cos at),@
400 DATA s/(s,&C3,+a,&C3,),&C3,&MD,t/2a,&EA,sin at,@
410 DATA s,&C3,/(s,&C3,+a,&C3,),&C3,&MD,1/2a,&EA,(sin at,+at,&EA,cos at),@
420 DATA (s,&C3,-a,&C3,)/(s,&C3,+a,&C3,),&C3,&MD,t,&EA,cos at,@
430 DATA 1/((s+m),&C3,+n,&C3,),&MD,1/n,&EA,e,&CB,&DF,&E1,sin nt,@
440 DATA (s+m)/((s+m),&C3,+n,&C3,),&MD,e,&CB,&DF,&E1,cos nt,@
450 DATA &83,(n)/(s-a),&E0,&MD,t,&E0,&CB,&C2,e,&DC,&E1,"     (n>0)",@
460 DATA s/((s,&C3,+m,&C3,)(s,&C3,+n,&C3,)),&MD,(cos mt-cos nt)/(n,&C3,-m,&C3,),"     (m",&C3,&EC,n,&C3,),@
470 DATA 1/,&EB,(s,&C3,+a,&C3,),&MD,J,&D1,(at),@
480 DATA 1/(s,&C5,-a,&C5,),&MD,1/2a,&C4,&EA,(sinh at-sin at),@
490 DATA s/(s,&C5,-a,&C5,),&MD,1/2a,&C3,,&EA,(cosh at-cos at),@
500 DATA s,&C3,/(s,&C5,-a,&C5,),&MD,1/2a,&EA,(sinh at+sin at),@
510 DATA s,&C4,/(s,&C5,-a,&C5,),&MD,1/2,&EA,(cosh at+cos at),@
520 DATA s/(s,&C5,+4a,&C5,),&MD,1/2a,&C3,&EA,sin at,&EA,sinh at,@
530 DATA 4a,&C4,/(s,&C5,+4a,&C5,),&MD,sin at,&EA,cosh at-cos at,&EA,sinh at,@
540 DATA (1/s)((s-m)/(s+m)),&MD,-1+2e,&CB,&DF,&E1,@
550 DATA (1/s,&C3,)((s-m)/(s+m)),&MD,2/m-t-2/m,&EA,e,&CB,&DF,&E1,@
560 QMA=550:QMI=100:QMD=320:R6=QMI
570 GOSUB 10000

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

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