MicroHobby27.pdf

~
OF' - 1
320 IF P ) = 177 AND P ( = 177
+ L THEN OV = OP:OP = P - 176
330 IF OF ( 1 THEN OP = L
340 IF OP > L THEN OP = 1
350 VTAB V + OV * DIST: HTAB 2:
PRINT SPC( H - 2);OV; SPC( l);Mi
(OtJ); TAB ( 40)
360 INVERSE: VTAS V + OP I DIST
: HTAB 4: PRINT SPC( H - 4);OP;
SPC( 1);M1(OP); TAB! 38): NORMAL
370 GOTO 2,50
380 REM DESVIAR EXECUCAO
390 IF TA = i THEN 4iO
400 GOSUB i6iO: REM ENTRAR DADO
S
410 ON OP GOSUB 100u,1050,1110,1
160,1220
420 GOTO 1270
1000 REM AJUSfE LINEAR
1010 A = (VI * X2 - Xi * Pi) I (N.
• X2 - Xl • 2)
1020 B = (N • PI - Xl * Yl) !(N
• X2 - Xl • 2)
1030 R2 = (A • 11 + B * Pi - Yl •
2 I N) I (12 - Y1 • 2 i N)
1040 RETURN
i050 REM AJUSTE EXPONENCIAL
1060 AL = (L6 * X2 - Xl * L3) !
N * X2 - Xl • 2)
1070 B = iN • L3 - Xl * L6) / (N
* X2 - Xl • 2)
1080 R2 = (AL * L6 + B * L3 - L6
• 2 / H) / iL7 - L6 • 2 !H)
1090 A = EX? (AL)
1100 RETURN
1120 A = (11 * L2 - Ll * L4) I (N
• L2 - L1 • 2)
1130 B = iN * L4 - Ll * Yl) !iN
* L2 - L1 • 2)
1140 R2 = (A * Yl + B * L4 - Y1 •
2 I N) !(Y2 - Yl • 2 !N)
1150 RETUR~!
1160 REM POTENCIA
1170 AL = (L6 • L2 - Li * L5) I (
N * L2 - Li • 2)
1180 B = (N * L5 - Ll * L6) I (N
* L2 - Li r. 2)
1190 R2 = (AL * L6 + 8 * L5 - L6
• 2 / N) i (L7 - L6 ' 2 / H)
1200 A = EXP (ALl
1210 RETURN
1220 REM HIPERBOLICO
1230 A = (12 * X2 - Xl * Ii) I (N
* X2 - X2 • 2)
i240 8 = (N * Ii - Xl * 12) !(N
* X2 - Xl • 2)
1250 R2 = (A * 12 + B * 11 - 12 •
2 I Ni I (13 - 12 • 2 I Ni
1260 RETURN
1270 REM MOSTRAR RESULTADO
1280 HeME
1290 VTAH 2: INVERSE : PRINT HI(
on: ~I0RMAL
1300 UTAB 4: PRINT uA = u;A
1310 PRINT uB = u;A
1320 VTAS 7: PRINT uR2 = N;R2
1330 GOSUB 1590
1340 IF TA = 1 THEN 180
1350 IF TA = 2 THEN ~UN
1360 IF TA < ) 3 THEN 1330
1~7G REM INTERPOLAR.
1380 XH = X(l):YH = 1(1)
1390 XL = X(ii:YL = Y(l)
1400 FOR I = 1 TO N
i410 IF XH ( X(I) THEN XH = X(I)
1450 NEn I
1460 UTAB 10: CALL - 958
1470 VTAS 10: INVERSE : PRINT HI
NTERPOLACAO u : NORMAL
1480 VTAS 12: PRINT UX-MAXIMO :U
;XH,"Y-MAXIMO :u;1H: PRINT
1490 FRINT aX-MINIMO :";XL.uY-MI
HIMO :";YL
1500 VTAS 16: INPUT uENTRE COM 0
S VALORES DE X :u;X
1510 ON OP GOSUB 1540,1550,1560,
1570,1580
1520 VTAS i6: PRINT uPARA X = u;
X;" ==}FIXI = ";Y
15:30 :30TO 1330
1540 Y = A + 8 * x: RETURN
1550 V = A + EXP (8 * XI: RETURN
1590 REM ESCOLHER OPCAO
1600 VTAS 19: PRINT llDIGITE { }H
1610 PRINT TAB( 31"{1} OUTRO AJ
USTE (MESMOS PONTOS)H
1620 PRINT TABI 3)"(2) OUTRO AJ
USTE (NOVOS PONTOS)H
1630 PRINT TAB( 3)H{3) INTERPOL
AR H
1640 VTAS 19: HTAS 9: GET TA
1650 PRINT TA
1660 RETURN
1670 REM ENTRAR PARES
1680 HOME
1690 VTAS 3: INVERSE : PRINT M~(
OP): NORMAL
1700 VTAB 5: INPUT HNUMERO DE PO
NTOS :II;N.
1710 DIM X(NI,Y(NI
1720 FOR I = 1 TO N.
1730 ViAS 7: PRiNT IIENTRADA ";:
INVERSE: PRINT I: NORMAL
1740 CALL - 958
1750 INPUT "VALOR DE X -)ll;xm
1760 INPUT uVALOR DE Y -)H;YIII
1770 Xl = Xi + X(II:Y1 = Y1 + Y(I
}
i780 12 = X2 + XiI) A 2:Y2 = Y2 +
Y(I) n 2
1790 X3 = X3 + X(I! • 3:Y3 = Y3 +
1(1) • 3
1800 X4 = 'X4 + XiI) • 4:Y4 = Y4 +
YO) .'. 4
1810 L1 = Ll + LOG (X(I)
1820 L2 = L2 + LOG (X(I») • 2
1830 L3 = L3 + XII) * LOG (YII»)
1850 L5 = L5 + LOG (X(I)) * LOG
()'( I))
1860 L6 = L6 + LOG (Y(I»
1870 L7 = L7 + LOG (VII»)
1880 Pl = Pl + X(I) * YII)
1890 P2 = P2 + X(II • 2 * VII)
1900 11 = 11 + XII) * (1 !VII»)
1910 12 = 12 + (1 I VII»)
1920 13 = 13 + (1 ! V(I) A 2
1930 NEXT
1940 RETURN