Directory of image this file is from
This file as a plain text file

C BERECHNUNG EINES NETZTRANSFORMATORS FUER M-KERNE
C INDUKTION = 1,2[T],50 HZ,MAXIMAL 9 SEKUNDAERWICKLUNGEN
C FORTRAN II
	DIMENSION V(9),S(9),EQ(8),FKERN(8),WV(8)
	WRITE(1,100)
100	FORMAT(/'BERECHNUNG EINES NETZTRANSFORMATORS MIT M-KERN'/
	1' 50 HZ,INDUKTION=1,2 [T] (DYNAMOBLECH IV)')
1	PKT='.'
	SPC=' '
	EQ(1)=1.52
	EQ(2)=3.09
	EQ(3)=4.70
	EQ(4)=6.60
	EQ(5)=8.20
	EQ(6)=11.5
	EQ(7)=10.5
	EQ(8)=15.8
	FKERN(1)='M42  '
	FKERN(2)='M55  '
	FKERN(3)='M65  '
	FKERN(4)='M74  '
	FKERN(5)='M85A '
	FKERN(6)='M85B '
	FKERN(7)='M102A'
	FKERN(8)='M102B'
	WV(1)=30.3
	WV(2)=14.56
	WV(3)=9.36
	WV(4)=6.52
	WV(5)=5.12
	WV(6)=3.48
	WV(7)=3.90
	WV(8)=2.53
2	READ(1,102)P
102	FORMAT(' WELCHE PRIMAERSPANNUNG ? [V] : ',F5.1)
	READ(1,104)N
104	FORMAT('WIEVIEL SEKUNDAERSPANNUNGEN ? : ',I1)
	DO 5 I=1,N
	WRITE(1,106)I,PKT,SPC,
106	FORMAT(I1,A1,'SEKUNDAERWICKLUNG :',A1)
	READ(1,108)V(I),S(I)
108	FORMAT('U : ',F5.1,' [V] / I : ',F7.3,' [A]')
5	CONTINUE
	VA=0.
	DO 10 I=1,N
	VA=VA+V(I)*S(I)
10	CONTINUE
	QFE=SQRT(VA)
	DO 15 K=1,8
	D=QFE-EQ(K)
	IF(D)20,20,15
15	CONTINUE
	WRITE(1,110)
110	FORMAT('KEIN GEEIGNETER KERN VERFUEGBAR !')
	GOTO 26
20	EQ=EQ(K)
	ID=K
	WRITE(1,112)FKERN(ID)
112	FORMAT(' ERFORDERLICHER KERN : ',A5)
	WP=(38./EQ)*P
	PI=VA/P
	D=0.71365*SQRT(PI)
	WRITE(1,114)WP,D
114	FORMAT('PRIMAERWICKLUNG : ',/,8X,'WINDUNGSZAHL : ',F7.0,/,
	13X,'DRAHT-DURCHMESSER : ',F9.2,3H MM)
	WRITE(1,116)
116	FORMAT('SEKUNDAER-WICKLUNGEN :',/,'WICKLUNG-NR.',2X,
	1'WINDUNGSZAHL',2X,'DRAHT-DURCHMESSER [MM]')
	DO 25 I=1,N
	WS=V(I)*WV(ID)
	D=0.71365*SQRT(S(I))
	WRITE(1,118)I,WS,D
118	FORMAT(5X,I2,7X,F7.0,13X,F7.2)
25	CONTINUE
26	READ(1,120)IV
120	FORMAT('RETURNhJA=1,NEIN=0):',I1)
	IF(IV)30,30,27
27	WRITE(1,125)
125	FORMAT(/)
	GOTO 1
30	CALL EXIT
	END