Sorry forgot to attach !- here it is
G-EMIN
name="TAILW4.BAS"
REM tailw4
=0D
REM dimensions in millimetres
r0 60: REM The radius of action of the new tailwheel arm
r1 74: REM the radius of action of the old tailwheel arm
d 25: REM the offset aft of new tailwheel arm from the rotation axis
d2 0: REM the offset aft of arm on old tailwheel from the rotation axis
h0 915: REM the distance between the old and new tailwheel axes
CLS
INPUT "Accept defaults (y)? "; i$
IF i$ <> "n" AND i$ <> "N" THEN
GOTO beg
END IF
=0D
PRINT "("; d; ")"; : INPUT "Tailwheel aft offset mm"; d1
=0D
d d1
=0D
PRINT "("; r0; ")"; : INPUT " Tailwheel arm radius mm"; r
IF r > 0 THEN
r0 r
END IF
PRINT "("; d2; ")"; : INPUT "Drive arm aft offset mm"; d1
=0D
d2 d1
=0D
PRINT "("; r1; ")"; : INPUT "Drive arm radius mm"; r
IF r > 0 THEN
r1 r
END IF
=0D
PRINT "("; h0; ")"; : INPUT "Distance between old and new tailwheel vertical
axes";
h
IF h > 0 THEN
h0 r
END IF
=0D
beg:
CLS
t0 ATN(d / (r0
2 - d
2)
.5)
t1 ATN(d2 / (r1
2 - d2
2)
.5)
=0D
c 3.14159 / 180
l0 ((r1 * COS(t1) - r0 * COS(t0))
2 + (h0 - r1 * SIN(t1) + r0 * SIN(t0))
2)
.5
PRINT "TAILWHEEL MOD. DESIGN OPTIONS"
PRINT "Coupling"; INT(l0 + .5); " Drive rad."; r1; " Tailhorn rad."; r0; "
Offset
dists."; d2; "/"; d; " mm."
PRINT
FOR a -45 TO 45 STEP 5
start4:
ct 0
PRINT "Input deg "; a;
a1 c * a
a2 0
x .08
y 1
start1:
a2 a2 + x / y
GOTO start3
start2:
a2 a2 - x / y
start3:
ct ct + 1
IF ct > 200 THEN
a a + 1
PRINT
GOTO last
END IF
s r1 * COS(a1 + t1) - r0 * COS(a2 + t0)
h1 r0 * SIN(a2 + t0)
h2 h0 - r1 * SIN(a1 + t1)
l2 ((h1 + h2)
2 + s
2)
.5
IF l2 < l0 THEN
IF ABS(l2 - l0) < .5 THEN
s r1 * COS(a1 - t1) - r0 * COS(a2 - t0)
h1 r0 * SIN(a2 - t0)
h2 h0 + r1 * SIN(a1 - t1)
l3 ((h1 - h2)
2 + s
2)
.5
IF ABS(a1 / c) < 10 THEN
PRINT " ";
END IF
PRINT " Output deg ";
PRINT INT(a2 / c);
IF ABS(a2 / c - .5) < 10 THEN
PRINT " ";
END IF
PRINT " Slack "; INT(l0 - l3 + .5)
GOTO last
END IF
GOTO start1
ELSE
y 10
GOTO start2
END IF
last:
NEXT
=0D
=0D
|