MicroHobby27.pdf

I
I
IA. ••
. 1"1'
LVlVl
560 RB = aT f 12 f AA + BEl I 2 I
LVIVl
570 KC = RA f AA:"B = RB f CE
580 KD = RA f lBE I 2 + AAI - aT f
BE I 8
590 IF V = 1 THEN DOIV - II = 0:
60TO 640
600 D4 = CE A 2 I 3 I LVlVl f "B
610 D5 = "C I 6 f AA f 12 f ICE +
BEl I LVIVl + II
620 Db = IKC f ICE + BEl + 2 * KD
f ICE f 2 + BEl + "B f CEI I
6 I LVIVl f BE
630 DOIV - II = DOIV - II + D4 +
D5 + D6
640 Dl = AA A 2 I 3 I LVIVl f "C
650 D2 = CE I 6 f "B f llAA + BEl
f 2 I LVIVl + II
660 D3 = IAA f "C + 2 f "D * IAA f
2 + BE) + KB f IAA + BEl) I
6 I LVIV) f BE
670 IF V = NV THEN lET DOIVl =
0: 60TO 690
680 DOIVl = DOIV) + Dl + D2 + D3
690 RAIV) = RAIV) + RA:RBIVl = RB
IV) + RB
700 NEXT V
710 REK CAlCUlO DOS BETAS
720 FOR J = 1 TO NV - I:BETAIJl =
o
730 FOR I = 1 TO NV - 1
740 BETAIJ) = BETAIJ) + DOlI) f D
I(l,J)
750 NEXT I
760 BETAIJ) = - BETAlJ)
770 NEXT J
780 FOR J = 1 TO NV
790 DBIJ) = IBETAlJ) - BETAlJ - 1
» I LVIJ)
800 RAIJ) = RAlJ) + DBIJ):RBIJ) =
RBIJl - DBIJ)
810 NEXT J
820 FOR J = 1 TO NV + 1
830 RTIJ) = RAIJ) + RBIJ - II
840 NEXT J
850 HOKE
860 PRINT "KOKENTOS NOS APOIOS:"
870 FOR H = 0 TO NV
880 PRINT "XI"H")="BETAlH)
890 NEXT H
900 PRINT: PRINT "CORTANTES E R
EACOES NOS APOIOS:"
910 FOR H = 1 TO NV + 1
920 PRINT "aEI"H - 1")="RBlH - 1
l,laDI"H - 1"1="RAIHl
930 PRINT "RI"H - l"l="RTIHl
940 PRINT
950 NEXT H
960 STOP
970 REK SUBROTINA PARA,DELTA I,
I
980 FOR I = 1 TO NV - 1
990 FOR J = 1 TO NV - 1
1000 IF I = J THEN DlI,Jl = lLVI
II + LVII + 1)1 I 3: SOTO 10
60
1010 IF J ) NV - 1 THEN 1070
1020 IF J = I + 1 THEN DII,J) =
LVIJI I 6: GoTo 1060
1030 IF J ) I + 1 THEN DlI,J) =
o
1040 IF I < J + 1 THEN DII,J) =
0: SOTO 1060
1050 IF I = J + 1 THEN DII,J) =
DIJ, Il
lObO NEXT J
1070 NEXT I
1080 FOR I = 1 TO NV - 1
1090 FOR J = 1 TO NV - 1
1100 LET AlI,Jl = DII,JI
1110 NEXT J
1120 NEXT I
1130 REK INVERSAO DA KATRII DOS
DELTA
1140 REK SUBROTINA PARA INVERSA
o DE "ATRIl
1150 PRINT
1160 R = NV - 1
1170 FOR J = 1 TO R
1180 BIJ,J) = 1
1190 NEXT J
1200 RE"
1210 FOR J = 1 TO R
1220 FOR I = J TO R
1230 IF AII,J) ( ) 0 THEN 1270
1240 NEXT I
1250 PRINT "KATRII SINGULAR"
1260 SOTO 15bO
1270 FOR K = 1 TO R
1280 S = AIJ,K)
1290 AIJ,K) = AII,K)
1300 A(l,K) = S
1310 S = 81J,K)
1320 BlJ,K) = BII,K)
1330 B(},KI = S
1340 NEXT K
1350 T = 1 I AlJ,JI
1360 FOR K = 1 TO R
1370 AIJ,Kl = T f AIJ,Kl
1380 BIJ,K) = T f BlJ,KI
1390 NEXT K
1400 FOR L = 1 TO R
1410 IF L = J THEN 1470
1420 T = - AlL,Jl
1430 FOR K = 1 TO R
1440 AIL,KI = AlL,Kl + T f AIJ,Kl
1460 NEXT K
1470 NEXT L
1480 NEXT J
1490 PRINT
1500 RE"
1510 FOR I = 1 TO R
1520 FOR J = 1 TO R
1530 LET DIlI,Jl = BII,Jl
1540 NEXT J
1550 NEXT I
1560 RETURN ••
t
RuiDO HETRICO
con ra INTERFERENCIA.
RADIO FREQVENCIA IRFI
1rv-v.JV'1
contra PicaS DE VOLTAGEM
lli\/
TRANSIENTES
•
DE TENSAO
~CCQJI
ZENTRANX
Rua Senador Flaquer, 376/386
Santo Amaro - CEP 04744
Telelone 522-2411 - Sergio