Download (7333kb, 52 pages) - The Sharp MZ-Series

Friedrich Koellen
Geschw.Scholl-Str. 3
5024 Pulheim 2
:> ~
~ ;
~ i
~ "­
:> .• <
~.- - --------­
::J I ',
~ i .
~ ~
:: !s ~ : "',
c,
:
g! ! I _ ~"~ .....
.. . .
:: ~ : ~ ~ ~ : '" .. ­
:>
u
:>
5:REM Ladekurve
eines Kondensat
ors
6: REM COPY.:
8: REM F r i edr i ch
»
....... Koe I I en OG2KW
....... 10:"A"CLEAR:
ro GRAPH :ROTATE
(fJ l:CSIZE 1
lS:GLCURSOR (10,­
>-t)
50): SORGN
c:
.., 20:LINE (0,0)-(20
5,0)-(200,-3)­
(Jj (200,3)-(205,0
)
::J"
rD 25:FOR 1=0TO 200
..,
STEP 20
'0 313:GLCURSOR (1,-2
) : GOSUB "1"
(1
o
34:A=I/2:A$=STR$
a A:1F LEN A$=2
'd LET A$=" "+A$
c 35:1F LEN A$=lLET
rt A$=" "+A$
.., ro 37:GLCURSOR (1-2,
30):LPRINT A$
::r:: 40:NEXT 1
ro 45:GLCURSOR (195,
>-t) 55):LPR1NT "U"
rt 50:GLCURSOR (190,
48):LPRINT "C(
f--" U)"
f--"
5e:LINE (0,0)-(0,
-450)-(-2, -445
)-(2, -445)-(13,
(Jj
ro -450)
""",.
55:GLCURSOR (-]0,
rt -42e):LPR1NT "
ro t(sec)"
70:US1NG "##"
N
I.D
75:FOR J=0TO 300
STEP 1013
80:GLCURSOR (-2,­
J): GOSU8 "3" THERMOMETER SCALA 7e:GLCURSOR (-15,
85:0=J/100: J):GOSUB "2"
GLCURSOR (-le, [0 75:NEXT J
-(J-8»:LPR]NT 80:NEXT 1
o 85:GLCURSOR (-33,
90:A=J+2e:B=J+80: 1 ) : GOSUB "3"
C=2e 95:FOR 1=25eTO 413
95:FOR K=ATO B eSTEP 50
STEP C 100: GL CURSOR (5, 1)
1e0:GLCURSOR (-2,­ :GOSUB "3"
K); GOSUB "2" le5:A=1+5:B=1+2e:c
110 NEXT K =1+25
120 NEXT J l1e:FOR J=ATO B
150 USING '!l###.##
STEP 5
115:6LCURSOR (5,J)
1513: INPUT "U: (U)=" : GDSUB "2"
;U: IF U>10eLET 12e:NEXT J
U=100 125:GLCURSOR (5,C)
165:FOR J=2eTO 4130 :GDSUB "I"
STEP 213 130:A=I+30:B=I+15:
1713:T=J/lee C=1+25
175:UC=U*(1-(]/EXP 135:FDR J=ATO B
T» STEP 5
1813:Y=UC*2:X=T*10e 14e:GLCURSOR (5,J)
190:Xl=X-20:Yl=2*( :GOSUB "2"
U*U-(l/EXP (T 145:NEXT J
-.2»» 15e:NEXT ]
195:L1NE (Y1,-X1)­ 155:GLCURSOR (5,1)
(Y,-X),1,3 : GDSUB "3"
2ee:NEXT J 150:L]NE (13,370)-(
2e2:LINE (Y,-X)-(­ 2, -2), 13, 3, B
2, -X), 13,3: 151 : L ] NE (1, 370) - (
COL OR 0 1, - 2 ), 0, 3, B
2e3:GLCURSOR (-10, 155:CS]ZE 3:
-397):LPR]NT "
5:REM COPY.OG2KW
GL CURSDR (-le,
4"
5:REM FRIEOR.KOE 480):LPRINT "C
2135:GLCURSOR (200,
- HD: LPR]NT "U
LLEN
le: "A":CLEAR : 17e:CS]ZE 1:
C=" ; UC;" U : "
PAUSE "THERMOM GLCURSOR (113,4
;" U=" ;U;" U"
ETER SCALA": 91):LPR1NT "D"
205:GLCURSOR (185,
COLOR 13 175:GLCURSOR (28,4
-10):LPRINT "L
12:LPRINT " THERM 53):LPR1NT "40
adekurve eines
Kondensators"
OMETER SCALA"
13:LF 5
18e:GLCURSOR (28,4
2138: GLCURSOR (170,
14:GRAPH
03):LPR]NT "313
-HD:LPR]NT "U
C=U*(1-e
15:GLCURSOR (115,
A -Ct/R
-4ee):SORGN 185:GLCURSDR (28,3
*C»" 2e:LlNE (-3,15)-( 53):LPR1NT "213
210:UC=U*(1-(1/EXP
1»
5,470),13,1, B
22:LINE (-4,15)-( 1ge:CS]ZE 3:
215:Y=UC*2:X=lee
7,471),e,I,B
GLCURSDR (-35,
22e:LINE (Y,5)-(Y,
25:FOR 1=50TO 21313 34e):LPR]NT "+
-X)-C-3, -X), 3,
2
STEP 50
30:GLCURSOR (-33, 195:CS]ZE 1:
225:GLCURSOR (Y+le
I):GOSUB "3" GLCURSDR (28,3
, -10):LPRINT "
35:A=]+5:B=]+2e:c 03):LPR1NT "10
t= 53 % van U"
230:TEXT :US1NG :
=]+25
4e:FOR J=ATO B 2ee:GLCURSDR (31,2
LF 24:COLOR 0:
STEP 5
53):LPR1NT "13"
END
45:GLCURSOR (-15, 2e5:GLCURSDR (-29,
235:"1"RLINE (0,0)
J):GOSUB "2"
253):lPR]NT "0
-(0,5):RETURN
240: "2"RLlNE (0,0)
50:NEXT J
55:GLCURSOR (-22, 210:GLCURSOR (-35,
-