N@Real Physics Turret
I@ Distance 
O@Force ForceZ    Mul Fx Fy Fz Mass A Vo
interval(T*1000)
T=0.03 Acelleration=600 K=1/2 Radius=46.920

AngularAcel=Vel/T
Mass=ForceZ/Acelleration
I=K*Mass*Radius^2
Torque=I*AngularAcel
Force=Torque/Distance

D=46.355
H=26.427
W=2.015


Force Max = Thruster Weight * (400,000/3)

Ih=(1/12)*M*(W^2+D^2)
Iw=(1/12)*M*(H^2+D^2)
Id=(1/12)*M*(H^2+W^2)

Speedconst=10
Yaw = extangvelr()
Pitch = extangvely()
Roll = extangp()

FThrustYaw=(Speedconst*TargDist-Yaw)/T*


Iy Ip Ir
 V=kX
Accel ang = (Vf-Vo)/T
F thrust = Accel * angular Mass
F thrust = accel * angular mass / (thruster constant)
F thrust =  (Vf-Vo)/T * angular mass / (thruster constant)
F thrust yaw =  (speed constant * distance from target-Vo)/T * angular mass yaw / (thruster constant)


ThrK=50
Dx=X-extposx() Dy=Y-extposy() Dz=Z-extposz()+200
Fx=-M/T/ThrK*(Dx*K-extvelabsx())
Fy=-M/T/ThrK*(Dy*K-extvelabsy())
Fz=-M/T/ThrK*(Dz*K-extvelabsz())
Mul=sqrt(Fx^2+Fy^2+Fz^2)
A=(extvelabsz()-Vo)/T
Vo = extvelabsz()
Mass=abs(Fzo*ThrK/(A+600))
Fz!=0->M=Mass;
Fz==0->M=1000;
Mass-=550
Mass = round(Mass, 0) 
Fzo=Fz
Start==0->Mass=1000 M=1000 Start=1;