Publikace zpracovává teorii ventilačních a tepelných výpočtů elektrických strojů točivých včetně problematiky měření, zkoušení a modelování. V závěru se probírají výzkumné a vývojové problémy chlazení, ventilace a hluku elektrických strojů točivých. Kniha je určena výzkumným a vývojovým pracovníkům, inženýrům, konstruktérům a dalším pracovníkům z oblasti konstrukce elektrických strojů.
Strana 368 z 442
«
Vámi hledaný text obsahuje tato stránku dokumentu který není autorem určen k veřejnému šíření.
»
Jak získat tento dokument?
Poznámky redaktora
,4..,BD,BETA)
GO 1005
1003 IF(DIB-2. POČET ROVNIC POČET PRAVÝCH STRAN
C VYSTUP,
C IIX . CELSIA/)
113 FORMAT( /5X, 28H0TEPLENI DRAZKOVE CASTI CINI,F8.*ALC*WV(10)>/(FEL+2.Pokračování tabulky 20
W(7,11),W(8»11),W<9,11),W(10,11)=-TV0
WRITE<2..
1009 WV(IW(I))=W(I,11>
CS= (FEL*WV(9)+2.5)0,0,1004
CALL ALINE (PPC,14,2. CELSIA/)
10001 CALL DATE(Rl)
CALL TIME(SI)
WRITE(2,1002) R1,S1
1002 FORMAT(//5X,12HV PRAZE DNE ,A8,4X,4HCAS ,A8///30X,
126HK //)
PAUSE 77
END
SUBROUTINE ALINE(A,N,DEL,VO,VJ,FH)
DIMENSION A(N>
I=(VJ- VO)/DEL
FH= (A(1+2) (1+1)) (VJ-VO-I*DEL) /DEL+A(HI)
RETURN
END
SUBROUTINE QBGffUSSMOD(AA,M,N,IP,M3,IIX,ICH)
C GAUSS-JORBANOVA ELIMINACE CAS1ECN0U PIVOTACKV RABKU)
C AA(M,Ml)..7)1003,0,0
CALL ALINE(PPA,14,2-,4.108)(<W(I,J>,J=1,11),1=1,10)
CALL QBGAUS5M0B(W,10,10,1,110,IW,ICH)
IF(ICH)0,10000,10000
WRITE(2,114)
114 FORMAT<//20X,30HMATICE SOUSTAVY SINGULÁRNÍ /)
GO 10001
ÍOOOO 1009 X=l,10 ...MATICE SOUSTAVY PRAVÉ STRANY
C ___ POČET ROVNIC .4)
110 FORMAT(//5X,15HMATICE SOUSTAVY//)
WRITE(2,111)
WRITE(2,108)(WV(I),1=1,10)
111 FORMAT(//5X,6HK0RENY//)
WRITE(2,112)CS
WRITE(2,113)TD
WRITE(2,115)CD
112 FORMAT(//5X, 21HSTREDNI OTEPLENI CINI,F8.2,11H ST.i PERMUTACE VEKTORU RESENI ICH— 1=> SINGULÁRNÍ MATICE
DIMENSION AA(M3),IIX(N)
CALL SWOFF(O)
M1=N+IP
ICH=0
DO 1001 1=1,N
C ELIMINACE PROMĚNNÝCH
INP=M+I
IR=1
P=AA(I)
BO 2001 J=2,N
C VYBER VEDOUCÍHO PRVKU RABKU
S=AA(INP)
IF(ABS(Š)-ABS(P))2001,2001,10001
10001 P=S
IR=J
2001 INP=INP+M
366
. CELSIA/)
115 FORMAT(/5X,15HUDAJ SONBY CINI,F8.,BB,BETA)
1005 CD=TD-BETA*WV(4)*RD2
108 FORMAT(11F10.*ALC>
TD=WV(9)
IF(DID-3.2,11H ST.2,11H ST.,4. ,BD,BETA)
GO 1005
1004 CALL ALINE(PPB,14»2
