Function{ DefineFunction[temperature, qSurf, qSurfInt, tref, h, trefr, hr, _radiation, _blocker_if_no_checkbox_selected, _convection, h_, hr_, _flux, qSurf_, _flow, qSurfInt_, resistance_thermal, MagneticVectorPotential_2D, Lin2D, qVol, _velocityEffects, Velocity_x, Velocity_y, Velocity_z, Omega_Z, lambda, cp, rho, _phaseCalculation, ATemp1, ATemp3, MartStart, StartTime, EndTime, mu, BHModel, useBHModel, useTForMagFlux, TCurie, TCurieExponent, useSteinmetzLosses, steinmetz_k, steinmetz_a, steinmetz_b, VoltageLoad_2D, sigma, mu_C, Current_2D, Voltage_2D, ElectricalCircuit, a_litz, Nc, FillFactor, Ds, Fs, Gs, c0, eps0, mu0, nu0, sb_constant, dummy_variable]; Ds[] = InterpolationLinear[$1]{0.000000, 0.000000, 0.500000, 0.097477, 1.000000, 1.410010, 1.500000, 5.076740, 2.000000, 9.281730, 2.500000, 12.687200, 3.000000, 15.710500, 3.500000, 18.755100, 4.000000, 21.882500, 4.500000, 25.041500, 5.000000, 28.198500, 5.500000, 31.348300, 6.000000, 34.494700, 6.500000, 37.640300, 7.000000, 40.785700, 7.500000, 43.930900, 8.000000, 47.075600, 8.500000, 50.219900, 9.000000, 53.364000, 9.500000, 56.507800, 10.000000, 59.651400, 15.000000, 91.080100, 20.000000, 122.503000, 25.000000, 153.922000, 30.000000, 185.341000, 35.000000, 216.759000, 40.000000, 248.176000, 45.000000, 279.593000, 50.000000, 311.010000, 55.000000, 342.426000, 60.000000, 373.843000, 65.000000, 405.259000, 70.000000, 436.676000, 75.000000, 468.092000, 80.000000, 499.508000, 85.000000, 530.925000, 90.000000, 562.341000, 95.000000, 593.757000, 100.000000, 625.173000}; Fs[] = InterpolationLinear[$1]{0.000000, 1.000000, 0.500000, 1.000330, 1.000000, 1.005190, 1.500000, 1.025820, 2.000000, 1.078160, 2.500000, 1.175380, 3.000000, 1.318090, 3.500000, 1.492020, 4.000000, 1.677870, 4.500000, 1.862750, 5.000000, 2.042730, 5.500000, 2.218930, 6.000000, 2.393590, 6.500000, 2.568160, 7.000000, 2.743190, 7.500000, 2.918670, 8.000000, 3.094450, 8.500000, 3.270370, 9.000000, 3.446380, 9.500000, 3.622450, 10.000000, 3.798580, 15.000000, 5.562080, 20.000000, 7.327670, 25.000000, 9.094130, 30.000000, 10.861000, 35.000000, 12.628200, 40.000000, 14.395400, 45.000000, 16.162800, 50.000000, 17.930300, 55.000000, 19.697800, 60.000000, 21.465400, 65.000000, 23.233000, 70.000000, 25.000600, 75.000000, 26.768300, 80.000000, 28.535900, 85.000000, 30.303600, 90.000000, 32.071300, 95.000000, 33.839000, 100.000000, 35.606700, 150.000000, 53.283900, 200.000000, 70.961300, 250.000000, 88.638900, 300.000000, 106.316000, 350.000000, 123.994000, 400.000000, 141.672000, 450.000000, 159.349000, 500.000000, 177.027000, 550.000000, 194.705000, 600.000000, 212.382000, 650.000000, 230.060000, 700.000000, 247.738000, 750.000000, 265.415000, 800.000000, 283.093000, 850.000000, 300.771000, 900.000000, 318.448000, 950.000000, 336.126000, 1000.000000, 353.804000, 1500.000000, 530.580000, 2000.000000, 707.357000, 2500.000000, 884.134000, 3000.000000, 1060.910000, 3500.000000, 1237.690000, 4000.000000, 1414.460000, 4500.000000, 1591.240000, 5000.000000, 1768.020000, 5500.000000, 1944.790000, 6000.000000, 2121.570000, 6500.000000, 2298.350000, 7000.000000, 2475.120000, 7500.000000, 2651.900000, 8000.000000, 2828.680000, 8500.000000, 3005.450000, 9000.000000, 3182.230000, 9500.000000, 3359.010000, 10000.000000, 3535.780000, 100000.000000, 35355.600000, 1000000.000000, 353554.000000}; Gs[] = InterpolationLinear[$1]{0.000000, 0.000000, 0.500000, 0.019242, 1.000000, 0.299846, 1.500000, 1.364700, 2.000000, 3.403980, 2.500000, 5.820430, 3.000000, 7.993550, 3.500000, 9.841280, 4.000000, 11.531200, 4.500000, 13.200800, 5.000000, 14.903000, 5.500000, 16.638000, 6.000000, 18.389700, 6.500000, 20.145100, 7.000000, 21.898100, 7.500000, 23.648200, 8.000000, 25.396300, 8.500000, 27.143500, 9.000000, 28.890500, 9.500000, 30.637400, 10.000000, 32.384200, 15.000000, 49.845200, 20.000000, 67.299500, 25.000000, 84.751000, 30.000000, 102.201000, 35.000000, 119.650000, 40.000000, 137.099000, 45.000000, 154.547000, 50.000000, 171.995000, 55.000000, 189.443000, 60.000000, 206.891000, 65.000000, 224.339000, 70.000000, 241.787000, 75.000000, 259.234000, 80.000000, 276.682000, 85.000000, 294.129000, 90.000000, 311.577000, 95.000000, 329.024000, 100.000000, 346.471000, 150.000000, 520.945000, 200.000000, 695.417000, 250.000000, 869.889000, 300.000000, 1044.360000, 350.000000, 1218.830000, 400.000000, 1393.300000, 450.000000, 1567.780000, 500.000000, 1742.250000, 550.000000, 1916.720000, 600.000000, 2091.190000, 650.000000, 2265.660000, 700.000000, 2440.130000, 750.000000, 2614.610000, 800.000000, 2789.080000, 850.000000, 2963.550000, 900.000000, 3138.020000, 950.000000, 3312.490000, 1000.000000, 3486.960000, 1500.000000, 5231.680000, 2000.000000, 6976.400000, 2500.000000, 8721.110000, 3000.000000, 10465.800000, 3500.000000, 12210.500000, 4000.000000, 13955.300000, 4500.000000, 15700.000000, 5000.000000, 17444.700000, 5500.000000, 19189.400000, 6000.000000, 20934.100000, 6500.000000, 22678.800000, 7000.000000, 24423.600000, 7500.000000, 26168.300000, 8000.000000, 27913.000000, 8500.000000, 29657.700000, 9000.000000, 31402.400000, 9500.000000, 33147.100000, 10000.000000, 34891.900000, 100000.000000, 348941.000000, 1000000.000000, 3489430.000000}; c0 = 2.997924e+08; eps0 = 8.854188e-12; mu0 = 1.256600e-06; nu0 = 7.957747e+05; sb_constant = 5.680000e-08; GeomCoeff[] = 6.280000; FreqFunc[] = 2.500000e+04*1.000000; Freq = 2.500000e+04*1.000000; FreqFactor = 1.000000; rmsCoeff[] = Sqrt[2]; qSurf[symmetry] = 0.000000e+00; _blocker_if_no_checkbox_selected[wp_air] = 0; _convection[wp_air] = 1; _flow[wp_air] = 0; _flux[wp_air] = 0; _radiation[wp_air] = 1; h[wp_air] = 1.000000e+01; hr[wp_air] = 7.000000e-01; qSurfInt[wp_air] = 0.000000e+00; qSurf[wp_air] = 0.000000e+00; tref[wp_air] = 2.200000e+01; trefr[wp_air] = 2.200000e+01; Omega_Z[air] = 0.000000e+00; Velocity_x[air] = 0.000000e+00; Velocity_y[air] = 0.000000e+00; Velocity_z[air] = 0.000000e+00; _velocityEffects[air] = 0; qVol[air] = 0.000000e+00; Omega_Z[winding_0] = 0.000000e+00; Velocity_x[winding_0] = 0.000000e+00; Velocity_y[winding_0] = 0.000000e+00; Velocity_z[winding_0] = 0.000000e+00; _velocityEffects[winding_0] = 0; qVol[winding_0] = 0.000000e+00; Omega_Z[winding_1] = 0.000000e+00; Velocity_x[winding_1] = 0.000000e+00; Velocity_y[winding_1] = 0.000000e+00; Velocity_z[winding_1] = 0.000000e+00; _velocityEffects[winding_1] = 0; qVol[winding_1] = 0.000000e+00; Omega_Z[workpiece] = 0.000000e+00; Velocity_x[workpiece] = 0.000000e+00; Velocity_y[workpiece] = 0.000000e+00; Velocity_z[workpiece] = 0.000000e+00; _velocityEffects[workpiece] = 0; qVol[workpiece] = 0.000000e+00; ElectricalCircuit[winding_0] = 0.000000e+00; _current[winding_0] = 1; _voltage[winding_0] = 0; ElectricalCircuit[winding_1] = 0.000000e+00; _current[winding_1] = 1; _voltage[winding_1] = 0; ElectricalCircuit[ElectricalCircuit_source0] = 0.000000e+00; _current[ElectricalCircuit_source0] = 1; _voltage[ElectricalCircuit_source0] = 0; area[workpiece] = 1900; centroidX[workpiece] = 10.1316; centroidY[workpiece] = 38.4211; centroidZ[workpiece] = 0; area[winding_0] = 21.9911; centroidX[winding_0] = 21; centroidY[winding_0] = 6; centroidZ[winding_0] = 0; area[winding_1] = 21.9911; centroidX[winding_1] = 21; centroidY[winding_1] = 18; centroidZ[winding_1] = 0; area[air] = 54056; centroidX[air] = 82.5038; centroidY[air] = 45.2581; centroidZ[air] = 0; area[ElectricalCircuit_source0] = 0; centroidX[ElectricalCircuit_source0] = 0; centroidY[ElectricalCircuit_source0] = 0; centroidZ[ElectricalCircuit_source0] = 0; centroidX[symmetry] = 0; centroidY[symmetry] = 45; centroidZ[symmetry] = 0; centroidX[infinity] = 121.791; centroidY[infinity] = 45; centroidZ[infinity] = 0; centroidX[Edge_9] = 21; centroidY[Edge_9] = 18; centroidZ[Edge_9] = 0; centroidX[Edge_10] = 21; centroidY[Edge_10] = 18; centroidZ[Edge_10] = 0; centroidX[symmetry_axis] = 0; centroidY[symmetry_axis] = 45; centroidZ[symmetry_axis] = 0; centroidX[wp_air] = 18.4211; centroidY[wp_air] = 31.8421; centroidZ[wp_air] = 0; centroidX[Edge_7] = 21; centroidY[Edge_7] = 6; centroidZ[Edge_7] = 0; centroidX[Edge_8] = 21; centroidY[Edge_8] = 6; centroidZ[Edge_8] = 0; cp[workpiece] = InterpolationLinear[$1]{-10000000000.000000, 485.000000, 2.000000, 485.000000, 45.000000, 497.000000, 88.000000, 517.000000, 139.000000, 538.000000, 193.000000, 554.000000, 238.000000, 587.000000, 283.000000, 604.000000, 336.000000, 637.000000, 386.000000, 666.000000, 439.000000, 707.000000, 486.000000, 752.000000, 530.000000, 806.000000, 569.000000, 868.000000, 604.000000, 921.000000, 628.000000, 1004.000000, 647.000000, 1066.000000, 670.000000, 1149.000000, 696.000000, 1236.000000, 711.000000, 1335.000000, 730.000000, 1467.000000, 746.000000, 1599.000000, 763.000000, 1711.000000, 775.000000, 1484.000000, 781.000000, 1306.000000, 789.000000, 1095.000000, 794.000000, 917.000000, 806.000000, 743.000000, 862.000000, 718.000000, 903.000000, 701.000000, 956.000000, 714.000000, 1001.000000, 726.000000, 10000000000.000000, 726.000000}; lambda[workpiece] = InterpolationLinear[$1]{-10000000000.000000, 46.000000, 1.000000, 46.000000, 58.000000, 45.000000, 109.000000, 44.000000, 165.000000, 44.000000, 221.000000, 42.000000, 279.000000, 41.000000, 335.000000, 40.000000, 385.000000, 39.000000, 429.000000, 37.000000, 476.000000, 36.000000, 524.000000, 34.000000, 564.000000, 32.000000, 607.000000, 30.000000, 654.000000, 28.000000, 698.000000, 26.000000, 732.000000, 27.000000, 761.000000, 29.000000, 775.000000, 25.000000, 790.000000, 21.000000, 801.000000, 18.000000, 840.000000, 20.000000, 880.000000, 22.000000, 923.000000, 24.000000, 961.000000, 25.000000, 998.000000, 26.000000, 10000000000.000000, 26.000000}; rho[workpiece] = 7870.000000; nu[air] = 1/(1.000000e+00); nu_nu0[air] = 1/(1.000000e+00 * mu0); nu[winding_0] = 1/(1.000000e+00); nu_nu0[winding_0] = 1/(1.000000e+00 * mu0); sigma[winding_0] = 58823528.000000; nu[winding_1] = 1/(1.000000e+00); nu_nu0[winding_1] = 1/(1.000000e+00 * mu0); sigma[winding_1] = 58823528.000000; TCurie[workpiece] = 768.000000; TCurieExponent[workpiece] = 5.000000; nu0= 1/mu0; TFuncBelowTc_workpiece[] = (1-($1/7.680000e+02)^5.000000e+00); TFuncAboveTc_workpiece[] = 0; TFunc_workpiece[] = $1 < 7.680000e+02 ? TFuncBelowTc_workpiece[$1] : TFuncAboveTc_workpiece[]; nu_nu0[workpiece] = 1/( (1+(1.954000e+03-1)*TFunc_workpiece[$2])*mu0); sigma[workpiece] = InterpolationLinear[$1]{-10000000000.000000, 6289308.000000, 0.000000, 6289308.000000, 20.000000, 5917160.000000, 50.000000, 5347594.000000, 100.000000, 4566210.000000, 150.000000, 3937008.000000, 200.000000, 3424658.000000, 250.000000, 2994012.000000, 300.000000, 2624672.000000, 350.000000, 2314815.000000, 400.000000, 2053388.000000, 450.000000, 1831502.000000, 500.000000, 1663894.000000, 550.000000, 1466276.000000, 600.000000, 1319261.000000, 650.000000, 1194743.000000, 700.000000, 1081081.000000, 750.000000, 952381.000000, 800.000000, 914077.000000, 850.000000, 894454.000000, 900.000000, 880282.000000, 950.000000, 868056.000000, 1000.000000, 856898.000000, 1050.000000, 846740.000000, 1100.000000, 837521.000000, 1150.000000, 828500.000000, 1200.000000, 820345.000000, 1250.000000, 813670.000000, 1300.000000, 807103.000000, 1350.000000, 799361.000000, 10000000000.000000, 799361.000000}; radiationNLFlag = 1; cpNLFlag = 1; lambdaNLFlag = 1; bhNLFlag = 0; Flag_MagTherm = 2; meshDim = 2; Breakpoints = {}; }