1
25
(ockholm
Tranfrs
Göteborg
'Stockholm
^orrköping
Lir^köping
Göteborg
Jönköping
Malmö
PROGRAM VERVORT APE2T APE1OUTPUT
XCTR=31992
YCTR=38112.
JGRD=5000
IPER=30000.
RFGR=XTWEE=YTWEE=X=Y=0
XNGRD=YNGRD=XVER=YVER=0.
MGRD=0
RFM-0.3
D010 1=1.360
READ<2.20 INR.X.Y
FORMATI5.5X.2F10.0)
MGRD=IDER/JGRD
XVER=X-XCTR
XNGRD=XVER/JGRD
YVER=Y-YCTR
YNGRD=YVER/JGRD
RF GR= 1-RFM/MORD
IF XNGRDGT1ANDXNGRDLT11G0T030
IF(X.LT.XCTR)GOT040
XTWEE=XCTR+XNGRD-XNGRD)
A*JGRP+(XVER-XNGRD*JGRD
G0T070
XNGRD=-XNGRD
XTWEE=XCTR XNGRD-(XNGRD)
A#JGRD+XVER+XNGRD#JGRD
G0T070
XTWEE=X
XFYNGRDGT-1ANDYNGRDLT1»G0T060
IF(Y.LT.YCTR)G0T050
YTWCE=YCTR4YNGRD-YNGRD*<2-YNGRD)/2
A# JGRP4 YVER-YNGRD# JGRD.)# 1 -YNGRD*RFGR
G0T080
YNGRD=-YNGRD
YTUEE=YCTR-(YNGRD-(YNGRD*
A#JGRD+YVER4 YNGRD*JGRD1
G0T080
YTUEE=Y
WRITE 1 20)NRXTWEEYTWEE
CONTINUE
END
PROGRAM ONREGTAFE2TAPE1
EXF'=05
C0NST=2.
XCTR=31992.
YCTR=30112
XYL1=5000.
XYL2=20000.
XLEN=YLEN=XYLEN=H0EK=X2LEN=Y2LEN=X2=Y
D010 1=1.360
READ(2.20)NR.X.Y
FORMATI5.5X.2F10.0)
XLEN=APS(XCTR-X)
YLEN=APS(YCTR-Y)
XYLEN=APSSQRTXLEN#*2+YLEN**2
IF(XYLEN.LTXYL1GOT040
IF(XYLEN.LT.XYL2)G0T030
X2LEN=XLEN/C0NST
Y2LEN:-YLEN/CONST
G0T050
XY2LN=(XYL1/(XYL1**EXP)XYLEN*#EXP
IF(YLEN.EO.O)G0T035
HOEK=ASIN(YLEN/XYLEN
G0T037
H0EK=0
X2l.EN=C0S HOEK #XY2LN
Y2LEN=SIN(HOEK#XY2LN
G0T050
X2LEN=XLEN
Y2LEN=YLEN
IF'(X.GT .XCTR)G0T060
X2=XCTR-X2LEN
G0T070
X2=XCTR+X2LEN
IF(Y.GT.YCTR)G0T080
Y2=YCTR-Y2LEN
G0T090
Y2=YCTR4Y2LEN
WRITE(1.20)NR.X2.Y2
CONTINUE
END
PROGRAM NOGNS TAPE2TAPE1
FAKT 935
0NVER=5000
XCTR=31992.
YCTR= 38112.
XL ENI YLEN1 XLENA YLENA=EXF'X=EXF"Y VERX VERY 0
X2LEN=Y2LEN=0
D010 1=1,360
READ (2.20)NRXY
FORMAT I5.5X.2F10.0)
XLEN1=XCTR-X
XLENA=APS(XLEN1
IF XLENALTONVERG0T030
EXPX-XLENA-ONVER/ONVER
VERX=FAKT*#EXFX
X2LEN=XLENA*VERX
IF (XCTR.GT.X)GOTO 40
X2=XCTR4X2LEN
GOTO 50
X2=XCTR-X2LEN
GOTO 50
X2=!
YLEN1=YCTR-Y
YLENA=APS(YLEN1
IF(YLENA.LT.ONVER) GOTO 60
EXPY-YLENA-ONVER/ONVER
VERY=FAKT#*EXPY
Y2LEN=YLENA*VERY
IFYCTRGTYGOTO 70
Y2=YCTR4Y2LEN
GOTO 80
Y2=YCTR-Y2LEN
GOTO 80
Y2=Y
WRITE
CONTINUE
END
20)1
,X2,Y2
PROGRAM VOETP( TAPE2» TAF'El
EXP=05
XCTR=31992
YCTR=38112.
0NVER=5000
XLEN=YLEN=XYLEN=H0EK=X2LEN=Y2LEN=X2=Y2=:
D010 1=1,360
READ220)NR »X.Y
FORMATI5.5X.2F10.0)
XLEN=APS(XCTR-X)
YLEN=APS(YCTR-Y)
XYLEN=APS(SORTXLEN#*2+YLEN#*2
IF(XYLEN.LT.ONVER»G0T040
XY2LN=ONVER/0NVER*#EXPXYLEN**EXP
IF(YLEN.EQ.O1G0T035
HOEK=ASIN(YLEN/XYLEN)
G0T037
H0EK=0
X2LEN=C0SHOEK»XY2LN
Y2LEN=SINHOEK#XY2LN
G0T050
X2LEN=XLEN
Y2LEN=YLEN
IFXGTXCTR)G0T060
X2=XCTR-X2LEN
G0T070
X2-XCTR4X2LEN
IF(Y.GT.YCTR)GOT080
Y2=YCTR-Y2LEN
G0T090
Y2=YCTR4Y2LEN
WRITE120>NRX2Y2
CONTINUE
END
