download PDF (32MB)
download PDF (32MB)
download PDF (32MB)
- TAGS
- download
- perlmeister.com
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
CCD - Computerclub Deutschland e.V. / Prisma<br />
580 INPUT "Graf 7 max.Tp.? ", "0,70";J3 ,L2 © IF J3tl THEN 'E'<br />
590 L=10*CEIL(L2/70)<br />
600 INPUT "Massstab (je 10 Z.) ",STR$(L);L<br />
-c 610 FOR 1 = 1 TO 8 @ Ll ( I ) = ( -1 + 1 )»L © NEXT I<br />
n<br />
3<br />
i<br />
620 PRINT CHR$(27)&"B,dD" © ENDLINE<br />
630 PRINT USING 'BA,8(4D,6X )';"Kelvin";Ll(1),Ll ( 2),L1(3),L18," = "8-CHR$( 13 ) © PRINT<br />
■*-» 660 PRINT "<br />
L ID<br />
cos:<br />
B70 PRINT "Zeit(min)! : | : | : | : ! : !<br />
I : I "<br />
680 ENDLINE © PRINT © PRINT " 0.0 o "<br />
690 N=0<br />
c 700 MAT G=(.0005)*G @ MAT C=(1/D)*C © MAT A=C+G © MAT B=C-G © MAT G=INV(A><br />
3 710 DIM C 750 IF NOT FLAG(2) THEN 770<br />
l 760 MAT U2=U<br />
tt<br />
to 770 MAT E=G*V<br />
780 IF J3=l THEN 800<br />
790 M=N*D/I4 © IF NOT FP(M) THEN 'F'<br />
800 ON J GOTO 810,810,820<br />
810 IF N«D/60