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[] = 1.000000e+03*1.000000; Freq = 1.000000e+03*1.000000; FreqFactor = 1.000000; rmsCoeff[] = Sqrt[2]; 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[winding_2] = 0.000000e+00; Velocity_x[winding_2] = 0.000000e+00; Velocity_y[winding_2] = 0.000000e+00; Velocity_z[winding_2] = 0.000000e+00; _velocityEffects[winding_2] = 0; qVol[winding_2] = 0.000000e+00; Omega_Z[winding_3] = 0.000000e+00; Velocity_x[winding_3] = 0.000000e+00; Velocity_y[winding_3] = 0.000000e+00; Velocity_z[winding_3] = 0.000000e+00; _velocityEffects[winding_3] = 0; qVol[winding_3] = 0.000000e+00; Omega_Z[winding_4] = 0.000000e+00; Velocity_x[winding_4] = 0.000000e+00; Velocity_y[winding_4] = 0.000000e+00; Velocity_z[winding_4] = 0.000000e+00; _velocityEffects[winding_4] = 0; qVol[winding_4] = 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[winding_2] = 0.000000e+00; _current[winding_2] = 1; _voltage[winding_2] = 0; ElectricalCircuit[winding_3] = 0.000000e+00; _current[winding_3] = 1; _voltage[winding_3] = 0; ElectricalCircuit[winding_4] = 0.000000e+00; _current[winding_4] = 1; _voltage[winding_4] = 0; ElectricalCircuit[ElectricalCircuit_source0] = 0.000000e+00; _current[ElectricalCircuit_source0] = 1; _voltage[ElectricalCircuit_source0] = 0; area[winding_0] = 1.86884e-05; volume[winding_0] = 0.000003; centroidX[winding_0] = 0.0225; centroidY[winding_0] = 0.0225; centroidZ[winding_0] = 0; area[winding_2] = 1.86884e-05; volume[winding_2] = 0.000003; centroidX[winding_2] = 0.0225; centroidY[winding_2] = 0.04; centroidZ[winding_2] = 0; area[winding_3] = 1.86884e-05; volume[winding_3] = 0.000003; centroidX[winding_3] = 0.0225; centroidY[winding_3] = 0.04875; centroidZ[winding_3] = 0; area[workpiece] = 0.0075; volume[workpiece] = 0.000353; centroidX[workpiece] = 0.0075; centroidY[workpiece] = 1.864e-16; centroidZ[workpiece] = 0; area[winding_4] = 1.86884e-05; volume[winding_4] = 0.000003; centroidX[winding_4] = 0.0225; centroidY[winding_4] = 0.0575; centroidZ[winding_4] = 0; area[winding_1] = 1.86884e-05; volume[winding_1] = 0.000003; centroidX[winding_1] = 0.0225; centroidY[winding_1] = 0.03125; centroidZ[winding_1] = 0; area[air] = 0.0574066; volume[air] = 0.020054; centroidX[air] = 0.0555973; centroidY[air] = -6.51091e-05; centroidZ[air] = 0; area[infinity] = 0; volume[infinity] = 0.000000; centroidX[infinity] = 0; centroidY[infinity] = 0; centroidZ[infinity] = 0; area[Edge_7] = 0; volume[Edge_7] = 0.000000; centroidX[Edge_7] = 0; centroidY[Edge_7] = 0; centroidZ[Edge_7] = 0; area[Edge_9] = 0; volume[Edge_9] = 0.000000; centroidX[Edge_9] = 0; centroidY[Edge_9] = 0; centroidZ[Edge_9] = 0; area[Edge_5] = 0; volume[Edge_5] = 0.000000; centroidX[Edge_5] = 0; centroidY[Edge_5] = 0; centroidZ[Edge_5] = 0; area[Edge_14] = 0; volume[Edge_14] = 0.000000; centroidX[Edge_14] = 0; centroidY[Edge_14] = 0; centroidZ[Edge_14] = 0; area[Edge_11] = 0; volume[Edge_11] = 0.000000; centroidX[Edge_11] = 0; centroidY[Edge_11] = 0; centroidZ[Edge_11] = 0; area[Edge_13] = 0; volume[Edge_13] = 0.000000; centroidX[Edge_13] = 0; centroidY[Edge_13] = 0; centroidZ[Edge_13] = 0; area[symmetry] = 0; volume[symmetry] = 0.000000; centroidX[symmetry] = 0; centroidY[symmetry] = 0; centroidZ[symmetry] = 0; area[symmetry_axis] = 0; volume[symmetry_axis] = 0.000000; centroidX[symmetry_axis] = 0; centroidY[symmetry_axis] = 0; centroidZ[symmetry_axis] = 0; area[Edge_8] = 0; volume[Edge_8] = 0.000000; centroidX[Edge_8] = 0; centroidY[Edge_8] = 0; centroidZ[Edge_8] = 0; area[wp_air] = 0; volume[wp_air] = 0.000000; centroidX[wp_air] = 0; centroidY[wp_air] = 0; centroidZ[wp_air] = 0; area[Edge_10] = 0; volume[Edge_10] = 0.000000; centroidX[Edge_10] = 0; centroidY[Edge_10] = 0; centroidZ[Edge_10] = 0; area[Edge_6] = 0; volume[Edge_6] = 0.000000; centroidX[Edge_6] = 0; centroidY[Edge_6] = 0; centroidZ[Edge_6] = 0; area[Edge_12] = 0; volume[Edge_12] = 0.000000; centroidX[Edge_12] = 0; centroidY[Edge_12] = 0; centroidZ[Edge_12] = 0; area[ElectricalCircuit_source0] = 0; volume[ElectricalCircuit_source0] = 0.000000; centroidX[ElectricalCircuit_source0] = 0; centroidY[ElectricalCircuit_source0] = 0; centroidZ[ElectricalCircuit_source0] = 0; cp[workpiece] = InterpolationLinear[$1]{-10000000000.000000, 485.299988, 75.000000, 485.300000, 125.000000, 518.800000, 175.000000, 539.700000, 225.000000, 543.900000, 275.000000, 556.500000, 325.000000, 577.400000, 375.000000, 598.300000, 425.000000, 615.000000, 475.000000, 635.900000, 525.000000, 661.100000, 575.000000, 698.700000, 625.000000, 744.700000, 675.000000, 815.900000, 725.000000, 2087.800000, 775.000000, 648.500000, 825.000000, 656.900000, 875.000000, 619.200000, 925.000000, 619.200000, 975.000000, 661.000000, 1025.000000, 635.900000, 1075.000000, 640.100000, 1125.000000, 648.500000, 1175.000000, 656.900000, 1225.000000, 665.200000, 1275.000000, 673.600000, 10000000000.000000, 673.599976}; lambda[workpiece] = InterpolationLinear[$1]{-10000000000.000000, 45.200001, 0.000000, 45.200000, 50.000000, 45.200000, 100.000000, 44.700000, 150.000000, 43.600000, 200.000000, 42.600000, 250.000000, 41.000000, 300.000000, 40.200000, 350.000000, 38.500000, 400.000000, 37.200000, 450.000000, 36.000000, 500.000000, 34.600000, 550.000000, 33.500000, 600.000000, 31.900000, 650.000000, 30.000000, 700.000000, 28.200000, 750.000000, 26.900000, 800.000000, 23.700000, 850.000000, 23.700000, 900.000000, 24.700000, 950.000000, 25.700000, 1000.000000, 26.000000, 1050.000000, 26.800000, 1100.000000, 27.200000, 1150.000000, 28.000000, 1200.000000, 28.600000, 10000000000.000000, 28.600000}; rho[workpiece] = 7830.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; nu[winding_2] = 1/(1.000000e+00); nu_nu0[winding_2] = 1/(1.000000e+00 * mu0); sigma[winding_2] = 58823528.000000; nu[winding_3] = 1/(1.000000e+00); nu_nu0[winding_3] = 1/(1.000000e+00 * mu0); sigma[winding_3] = 58823528.000000; nu[winding_4] = 1/(1.000000e+00); nu_nu0[winding_4] = 1/(1.000000e+00 * mu0); sigma[winding_4] = 58823528.000000; TCurie[workpiece] = 750.000000; TCurieExponent[workpiece] = 5.000000; nu0= 1/mu0; TFuncBelowTc_workpiece[] = (1-($1/7.500000e+02)^5.000000e+00); TFuncAboveTc_workpiece[] = 0; TFunc_workpiece[] = $1 < 7.500000e+02 ? TFuncBelowTc_workpiece[$1] : TFuncAboveTc_workpiece[]; nu_nu0[workpiece] = 1/( (1+(1.320000e+02-1)*TFunc_workpiece[$2])*mu0); sigma[workpiece] = InterpolationLinear[$1]{-10000000000.000000, 5434783.000000, 0.000000, 5434783.000000, 20.000000, 5102041.000000, 50.000000, 4629630.000000, 100.000000, 3968254.000000, 150.000000, 3448276.000000, 200.000000, 3003003.000000, 250.000000, 2638522.000000, 300.000000, 2325581.000000, 350.000000, 2070393.000000, 400.000000, 1851852.000000, 450.000000, 1663894.000000, 500.000000, 1503759.000000, 550.000000, 1362398.000000, 600.000000, 1246883.000000, 650.000000, 1138952.000000, 700.000000, 1037344.000000, 750.000000, 884956.000000, 800.000000, 868056.000000, 850.000000, 850340.000000, 900.000000, 836120.000000, 950.000000, 825083.000000, 1000.000000, 815661.000000, 1050.000000, 807754.000000, 1100.000000, 800641.000000, 1150.000000, 793651.000000, 1200.000000, 786782.000000, 1250.000000, 780031.000000, 1300.000000, 777001.000000, 1350.000000, 772201.000000, 10000000000.000000, 772201.000000}; radiationNLFlag = 0; cpNLFlag = 1; lambdaNLFlag = 1; bhNLFlag = 0; Flag_MagTherm = 2; meshDim = 2; Breakpoints = {}; }