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

	SUBROUTINE WLOG(IDEKA)
C SCHREIBT AUF DISPLAY 4010 EIN WAHRSCHEINLICHKEITS-NETZ MIT
C PUNKTIERTEN LINIEN UND LOGARITHMISCHER TEILUNG DER ABSZISSE
C DIE ECKPUNKTE SIND (80,50) UND (725,980) - 50%-LINIE IST 387,5
C IDEKA IST DIE ZAHL DER WAEHLBAREN DEKADEN (MAXIMAL 10)
C FORTRAN II / OPTION (I)
C SR : FDIS.FT / ALPHA.FT
C DA : WLOG.DA
	FI=IDEKA
	CALL IOPEN('SYS','WLOG')
	DO 1000 I=1,9
	READ(4,100)IA,IX,IY
100	FORMAT(A2)
1000	CALL FDIS(IA,IX,IY)
	DO 1001 I=1,17
	READ(4,100)IY
	CALL FDIS(0,80,IY)
	DO 1001 J=80,980,5
1001	CALL FDIS(-1,J,IY)
	IF(IDEKA-1)1002,1002,1005
C ABSZISSE MIT EINER LOG-DEKADE
1002	DO 1004 I=1,9
	READ(4,100)IX
	IF(I-1)1003,1004,1003
1003	CALL FDIS(0,IX,50)
	DO 1004 J=50,725,5
	CALL FDIS(-1,IX,J)
1004	CONTINUE
	GOTO 1010
C ABSZISSE MIT MEHR ALS EINER LOG-DEKADE
1005	DO 1009 I=1,4
	READ(4,100)ITEM
	DO 1009 J=1,IDEKA
	IX=80.+(FLOAT(J-1)*900.+FLOAT(ITEM-80))/FI
	IF(I+J-2)1008,1008,1006
1006	CALL FDIS(0,IX,50)
	DO 1007 K=50,725,5
	CALL FDIS(-1,IX,K)
1007	CONTINUE
1008	CONTINUE
1009	CONTINUE
	READ(4,100)(IX,J=1,5)
C BESCHRIFTUNG DER ORDINATEN
1010	DO 1011 I=1,19
	READ(4,100)IY,IZ
	CALL FDIS(0,0,IY)
	CALL ALPHA
	Z=.1*FLOAT(IZ)
	WRITE(1,105)Z
105	FORMAT(F4.1,'%')
1011	CONTINUE
C BESCHRIFTUNG DER ABSZISSEN
	IF(IDEKA-1)1012,1012,1015
1012	DO 1013 I=1,10
	READ(4,100)IX,IZ
	CALL FDIS(0,IX,5)
	CALL ALPHA
	WRITE(1,110)IZ,
110	FORMAT(I2)
1013	CONTINUE
	IZ=1
	CALL FDIS(0,1005,15)
	CALL ALPHA
	WRITE(1,115)IZ,
115	FORMAT(I1)
	IZ=0
	CALL FDIS(0,95,15)
	CALL ALPHA
	WRITE(1,115)IZ,
	RETURN
1015	DO 1016 I=1,4
	READ(4,100)ITEM,IZ
	DO 1016 J=1,IDEKA
	IX=80.+(900.*FLOAT(J-1)+FLOAT(ITEM-80))/FI-15.
	CALL FDIS(0,IX,5)
	CALL ALPHA
	WRITE(1,110)IZ,
1016	CONTINUE
	IZ=10
	CALL FDIS(0,965,5)
	CALL ALPHA
	WRITE(1,110)IZ,
	DO 1020 I=0,IDEKA
	IX=95.+FLOAT(I)*900./FI
	CALL FDIS(0,IX,15)
	CALL ALPHA
	WRITE(1,115)I,
1020	CONTINUE
	RETURN
	END