0.065) { $blades = 4; } else { $blades = 3; } // estimate moment of inertia $weight = pow($ac_diameter, 2.8) / 4.8; $mass_prop = $weight / 32.174; $mass_hub = 0.1 * $mass_prop; $mass_blade = (0.9 * $mass_prop) / $blades; $L = $ac_diameter / 2; // length each blade (feet) $R = $L * 0.1; // radius of hub (feet) $ixx_blades = $blades * (0.33333 * $mass_blade * $L * $L); $ixx_hub = 0.5 * $mass_hub * $R * $R; $ixx = $ixx_blades + $ixx_hub; //***************************************************** // * // Print XML file * // * //***************************************************** print("\n"); print("\n\n"); print("\n"); printf(" %6.2f \n", $ixx); printf(" %5.1f \n", $ac_diameter * 12); print(" $blades \n"); printf(" %5.2f \n", $gearratio); print(" 1.00 \n"); print(" 1.00 \n"); if($ac_pitch == 1) { print(" 12 \n"); print(" 45 \n"); printf(" %7.0f \n", $max_rpm * 0.85); printf(" %7.0f \n", $max_rpm); } print("\n"); if($ac_pitch == 0) { // fixed pitch print(" \n"); print(" \n"); printf(" 0.0 %5.4f\n", $ct0 * 1.090); printf(" 0.1 %5.4f\n", $ct0 * 1.045); printf(" 0.2 %5.4f\n", $ct0 * 1.000); printf(" 0.3 %5.4f\n", $ct0 * 0.920); printf(" 0.4 %5.4f\n", $ct0 * 0.826); printf(" 0.5 %5.4f\n", $ct0 * 0.728); printf(" 0.6 %5.4f\n", $ct0 * 0.589); printf(" 0.7 %5.4f\n", $ct0 * 0.447); printf(" 0.8 %5.4f\n", $ct0 * 0.242); printf(" 1.0 %5.4f\n", $ct0 * -0.082); printf(" 1.2 %5.4f\n", $ct0 * -0.429); printf(" 1.4 %5.4f\n", $ct0 * -0.772); print(" \n"); print(" \n\n"); } else { // variable pitch print(" \n"); print(" \n"); print(" \n"); print(" -10 0 15 25 35 45 55 65 90\n"); printf(" -0.2 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.488, $ct0*0.275, $ct0, $ct0*1.225, $ct0*1.35, $ct0*1.425, $ct0*1.313, $ct0*1.125, 0.0); printf(" 0.0 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.725, 0.0, $ct0, $ct0*1.225, $ct0*1.35, $ct0*1.438, $ct0*1.344, $ct0*1.125, 0.0); printf(" 0.2 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.813, $ct0*-0.25, $ct0*0.863, $ct0*1.2, $ct0*1.331, $ct0*1.438, $ct0*1.344, $ct0*1.125, 0.0); printf(" 0.4 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.813, $ct0*-0.581, $ct0*0.65, $ct0*1.188, $ct0*1.306, $ct0*1.425, $ct0*1.344, $ct0*1.125, 0.0); printf(" 0.6 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.813, $ct0*-0.813, $ct0*0.344, $ct0*1.069, $ct0*1.25, $ct0*1.388, $ct0*1.325, $ct0*1.125, 0.0); printf(" 0.8 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.813, $ct0*-0.813, $ct0*0.019, $ct0*0.8, $ct0*1.213, $ct0*1.338, $ct0*1.325, $ct0*1.125, 0.0); printf(" 1.0 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.813, $ct0*-0.813, $ct0*-0.325, $ct0*0.488, $ct0*1.163, $ct0*1.269, $ct0*1.313, $ct0*1.125, 0.0); printf(" 1.2 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.813, $ct0*-0.813, $ct0*-0.669, $ct0*0.15, $ct0*0.956, $ct0*1.225, $ct0*1.313, $ct0*1.125, 0.0); printf(" 1.4 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.219, $ct0*0.688, $ct0*1.206, $ct0*1.288, $ct0*1.125, 0.0); printf(" 1.6 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.556, $ct0*0.375, $ct0*1.163, $ct0*1.263, $ct0*1.125, 0.0); printf(" 1.8 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*0.063, $ct0, $ct0*1.225, $ct0*1.125, 0.0); printf(" 2.0 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.25, $ct0*0.781, $ct0*1.22, $ct0*1.125, 0.0); printf(" 2.2 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.563, $ct0*0.563, $ct0*1.2, $ct0*1.125, 0.0); printf(" 2.4 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*0.3, $ct0*0.98, $ct0*1.125, 0.0); printf(" 2.6 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*0.038, $ct0*0.62, $ct0, 0.0); printf(" 2.8 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.225, $ct0*0.406, $ct0*0.813, 0.0); printf(" 3.0 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.488, $ct0*0.213, $ct0*0.625, 0.0); printf(" 3.2 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.75, $ct0*0.019, $ct0*0.438, 0.0); printf(" 3.4 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.175, $ct0*0.25, 0.0); printf(" 3.6 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.369, $ct0*0.063, 0.0); printf(" 3.8 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.563, $ct0*-0.125, 0.0); printf(" 4.0 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.756, $ct0*-0.313, 0.0); printf(" 6.0 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, $ct0*-0.813, 0.0); print(" \n"); print(" \n"); } print("\n"); if($ac_pitch == 0) { // fixed pitch print(" \n"); print(" \n"); printf(" 0.0 %5.4f\n", $cp0 * 1.025); printf(" 0.1 %5.4f\n", $cp0 * 1.025); printf(" 0.2 %5.4f\n", $cp0 * 1.000); printf(" 0.3 %5.4f\n", $cp0 * 0.976); printf(" 0.4 %5.4f\n", $cp0 * 0.920); printf(" 0.5 %5.4f\n", $cp0 * 0.843); printf(" 0.6 %5.4f\n", $cp0 * 0.774); printf(" 0.7 %5.4f\n", $cp0 * 0.650); printf(" 0.8 %5.4f\n", $cp0 * 0.531); printf(" 1.0 %5.4f\n", $cp0 * 0.190); printf(" 1.2 %5.4f\n", $cp0 * -0.303); printf(" 1.4 %5.4f\n", $cp0 * -0.912); printf(" 1.6 %5.4f\n", $cp0 * -1.548); print(" \n"); print(" \n"); } else { // variable pitch print(" \n"); print(" \n"); print(" \n"); print(" -10 0 15 25 35 45 55 65 90\n"); printf(" -0.2 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*0.167, $cp0*0.333, $cp0*1.167, $cp0*2.65, $cp0*4.57, $cp0*6.5, $cp0*7.5, $cp0*8.3, $cp0*8.3); printf(" 0.0 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*0.667, $cp0*0.167, $cp0, $cp0*2.47, $cp0*4.37, $cp0*6.5, $cp0*7.53, $cp0*8.3, $cp0*8.3); printf(" 0.2 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*0.95, $cp0*0.267, $cp0*0.967, $cp0*2.3, $cp0*4.18, $cp0*6.5, $cp0*7.53, $cp0*8.3, $cp0*8.3); printf(" 0.4 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*1.28, $cp0*0.583, $cp0*0.833, $cp0*2.12, $cp0*3.97, $cp0*6.5, $cp0*7.53, $cp0*8.3, $cp0*8.3); printf(" 0.6 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*1.57, $cp0*0.883, $cp0*0.55, $cp0*1.97, $cp0*3.72, $cp0*6.37, $cp0*7.5, $cp0*8.3, $cp0*8.3); printf(" 0.8 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*1.85, $cp0*1.183, $cp0*0.167, $cp0*1.67, $cp0*3.5, $cp0*6.08, $cp0*7.5, $cp0*8.3, $cp0*8.3); printf(" 1.0 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*2.13, $cp0*1.47, $cp0*0.167, $cp0*1.17, $cp0*3.3, $cp0*5.77, $cp0*7.47, $cp0*8.3, $cp0*8.3); printf(" 1.2 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*2.42, $cp0*1.175, $cp0*-0.55, $cp0*0.45, $cp0*2.92, $cp0*5.53, $cp0*7.42, $cp0*8.3, $cp0*8.3); printf(" 1.4 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*2.7, $cp0*2.03, $cp0*-0.83, $cp0*-0.333, $cp0*2.25, $cp0*5.45, $cp0*7.33, $cp0*8.3, $cp0*8.3); printf(" 1.6 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*2.98, $cp0*2.32, $cp0*-0.97, $cp0*-1.0, $cp0*1.42, $cp0*5.3, $cp0*7.17, $cp0*8.0, $cp0*8.3); printf(" 1.8 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*3.27, $cp0*2.6, $cp0*-1.0, $cp0*-1.67, $cp0*0.417, $cp0*4.7, $cp0*6.95, $cp0*7.83, $cp0*8.3); printf(" 2.0 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*3.55, $cp0*2.88, $cp0*-1.28, $cp0*-2.33, $cp0*-0.5, $cp0*4.0, $cp0*6.62, $cp0*7.67, $cp0*8.3); printf(" 2.2 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*3.83, $cp0*3.17, $cp0*-1.57, $cp0*-3.0, $cp0*-1.5, $cp0*3.25, $cp0*6.42, $cp0*7.33, $cp0*8.3); printf(" 2.4 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*4.12, $cp0*3.45, $cp0*-1.85, $cp0*-3.67, $cp0*-2.5, $cp0*2.32, $cp0*6.23, $cp0*7.17, $cp0*8.3); printf(" 2.6 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*4.4, $cp0*3.73, $cp0*-2.13, $cp0*-4.33, $cp0*-3.17, $cp0*0.97, $cp0*6.08, $cp0*6.92, $cp0*8.3); printf(" 2.8 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*4.68, $cp0*4.02, $cp0*-2.42, $cp0*-5.0, $cp0*-3.8, $cp0*-0.33, $cp0*5.95, $cp0*6.83, $cp0*8.3); printf(" 3.0 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*4.97, $cp0*4.3, $cp0*-2.7, $cp0*-5.67, $cp0*-4.5, $cp0*-1.5, $cp0*5.75, $cp0*6.83, $cp0*8.3); printf(" 3.2 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*5.25, $cp0*4.58, $cp0*-2.98, $cp0*-6.33, $cp0*-5.17, $cp0*-2.67, $cp0*5.38, $cp0*6.67, $cp0*8.3); printf(" 3.4 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*5.53, $cp0*4.87, $cp0*-3.27, $cp0*-7.0, $cp0*-5.83, $cp0*-3.83, $cp0*4.17, $cp0*6.5, $cp0*8.3); printf(" 3.6 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*5.82, $cp0*5.15, $cp0*-3.55, $cp0*-7.67, $cp0*-6.5, $cp0*-5.0, $cp0*2.93, $cp0*6.33, $cp0*8.3); printf(" 3.8 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*6.1, $cp0*5.43, $cp0*-3.83, $cp0*-8.3, $cp0*-7.17, $cp0*-6.17, $cp0*1.63, $cp0*6.13, $cp0*8.3); printf(" 4.0 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*6.38, $cp0*5.72, $cp0*-4.12, $cp0*-8.3, $cp0*-8.3, $cp0*-7.33, $cp0*0.33, $cp0*5.67, $cp0*8.3); printf(" 6.0 %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f %5.4f\n", $cp0*8.3, $cp0*8.3, $cp0*-8.3, $cp0*-8.3, $cp0*-8.3, $cp0*-8.3, $cp0*-8.3, $cp0*-5.0, $cp0*8.3); print(" \n"); print(" \n"); } print("\n"); print("\n"); print("\n"); print(" \n"); print(" 0.85 1.0\n"); print(" 1.05 0.8\n"); print(" \n"); print("\n"); print("\n"); print("\n"); print("\n"); print(" \n"); print(" 0.85 1.0\n"); print(" 1.05 1.8\n"); print(" 2.00 1.4\n"); print(" \n"); print("\n"); print("\n\n"); ?>