| |
DL1MDY > CASIO 06.07.98 01:13l 78 Lines 1356 Bytes #999 (999) @ ALLE
BID : 578DB0ZKA01D
Read: DG1HUA DG2NBN GUEST
Subj: GAUS-KOO.PRG
Path: DB0MAK<DB0ERF<DB0MW<DB0AIS<DB0GV<DB0CZ<DB0KFB<DB0ZKA
Sent: 980705/2113z @:DB0ZKA.#BAY.DEU.EU [Augsburg JN58ki] BCM1.39tb
From: DL1MDY @ DB0ZKA.#BAY.DEU.EU (Pius)
To: CASIO @ ALLE
X-Info: No login password
X-BID: 578DB0ZKA01D
10 PRINT "GAUSS-KRUEGER KOORDINATEN <KM>"
15 ANGLE 0
20 Q$="RECHTSWERT ="
30 INPUT "RECHTSWERT :";Y
40 INPUT "HOCHWER :";X
50 GOSUB 200
60 IF B1 = 0 THEN 40
70 B1=B1+D1:GOSUB 310:R=N:R1=180/PI/R
80 B2=COS(B1):L1=INT(Y/1000):Y=Y-L1*1000-500
90 L1=INT(3*L1)
100 IF L1<3 OR L1>12 THEN 30
110 B3=0.67192188*(B2)^2/100:T=TAN(B1)
120 L=R1*Y/B2-R1/6*Y^3/R^2/B2*(1+2*T^2+B3)
130 IF ABS(L)>1.6667 THEN 30 ELSEL1=L1+L
140 B1=B1-R1*Y/R/2*T*(1+B3)
150 B1=B1+Y^4*R1/24/R^3*T*(5+3*T^2+6*B3-6*B3*T^2)
160 PRINT "L u.B auf dem Bessel-Elipsoid"
170 Q$="LAENGE = ":I=L1:GOSUB 330
180 Q$="BREITE = ": I=B1:GOSUB 330
190 END
200 RESTORE 270:B1=0:A=0.0848790:X=X-4429
210 IF X<A THEN RETURN ELSE B1=40
220 FOR I=1 TO 20:READ D1:D1=111+D1/1000000
230 A=A+D1:IF X<A THEN 250 ELSE B1=B1+1
240 NEXT I
250 IF I=21 THEN B1=0: RETURN
260 D1=(X-A+D1)/D1: RETURN
270 DATA 32208,51474,70830,90251,109713,129193
280 DATA 148665,168109,187499,206811,226022
290 DATA 245110,264048,282817,301391,319748,337865
300 DATA 355722,373294,390562
310 N=6377.397155/(SQR(1-0.667437223*(SIN(B1)^2)/100))
320 RETURN
330 G=INT(I): M=(I-G)*60: S=INT((M-INT(M))*60+.5)
340 M=INT(M): IF S=60 THEN S=0: M=M+1
350 IF M=60 THEN M=0:G=G+1
360 PRINT Q$;G;M;S:RETURN
Read previous mail | Read next mail
| |
