- /* F_X_engine = Throttle[3]*813.4/0.2; */ /* original code */
- /* F_Z_engine = Throttle[3]*11.36/0.2; */ /* original code */
- F_X_engine = Throttle[3]*268.42/0.83;
- F_Z_engine = Throttle[3]*3.75/0.83;
+
+ if ( ! Use_External_Engine ) {
+ /* do a crude engine power calc based on throttle position */
+ v=V_rel_wind;
+ h=Altitude;
+ if(V_rel_wind < 10)
+ v=10;
+ if(Altitude < 0)
+ h=0;
+ pa=(0.00144*v + 0.546)*(1 - 1.6E-5*h)*bhp;
+ if(pa < 0)
+ pa=0;
+
+ F_X_engine = Throttle[3]*(pa*550)/v;
+ } else {
+ /* accept external settings */
+ }
+
+ /* printf("F_X_engine = %.3f\n", F_X_engine); */
+
+ M_m_engine = F_X_engine*0.734*cbar;
+ /* 0.734 - estimated (WAGged) location of thrust line in the z-axis*/