250 2

550 REM OBLICZENIE ZANURZENIA 560 I -1: SM 1 - SM • l 025/GAMA 5701 = 1+1

580 1F D(1)<SM1 TIIEN GOTO 570 590 A = 2*1X1 — 1)-4*D(I) + 2*D(I +1)

600B«4*D(I)-3*D(I-I)-D(I + 1)

610 DELTA = B^#B-4*A*(D(I - i)-SM 1)

620 DELTA- SQRT(DELTA)

630 DT=(- B + DELTA)/2/A 640 T—2 + 0.5M + DT

650 U — F(I — I): V — F(I) • W — F(I + I) • GOSUB 1000

660 XF—Y:U —S(l — 1): V = S(I): W = S(I + I):GOSUB 1000

670 XS = Y: U = K(1 — 1): V - K(I): W = K(l + l):GOSUB 1000

680 ZM — Y: U — M(I — 1): V - M(l): W = M(1 + 1):GOSUB 1000

690 MJ-Y

700 GM-ZM-ZG1

710TRYM-SM*(XG-XF)/MJ

720 TTR = -TRYM*XS/LPP:TTD = TRYM + TTR

730 TD-T + TTD:TR«T + TTR

740 I - 1NT((SM l - 10000)/2500 + 1): DEL - (SM 1 - 7500 - 2500»iy2500 750 ZGK = R(I) + DEL^#(R(I + l)- R(l))

770 PRINT * - WYNIKI OBLICZEŃ 780 PRINT

790 PRINT "WYPORNOŚĆ - ";SM; GM = ";GM

800 PRINT "POŁOŻENIE ZG«";ZG1, "KRYTYCZNE POŁOŻENIE ZG = ";ZGK 810 PRINT "ZANURZENIE ŚREDNIE ODPOWIADAJĄCE RÓWNEJ STEPCE-";T 820 PRINT "ZANURZENIE NA DZIOBIE - ";TD 830 PRINT "ZANURZENIE NA RUFIE - ";TR 840 STOP

1000 REM PODPROGRAM INTERPOLACJI KRZYWOLINIOWEJ

1010 A = 2*U-4*V + 2*W

1020 B = 4*V-3*U-W

1030 Y = A*DT*DT+B*DT + U

1040 RETURN

1050 END

250