Function{ DefineFunction[temperature, qSurf, tref, h, hr, _radiation, _blocker_if_no_checkbox_selected, _convection, h_, hr_, _flux, qSurf_, _flow, qSurfInt, qSurfInt_, resistance_thermal, MagneticVectorPotential_2D, qVol, _velocityEffects, Velocity_x, Velocity_y, Velocity_z, Omega_Z, lambda, cp, rho, _maxTempCalculation, _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, target_power, a_litz, Nc, FillFactor, Ds, Fs, Gs, c0, eps0, mu0, nu0, sb_constant, new_xyz]; 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[workpiece_axis] = 0.000000e+00; _blocker_if_no_checkbox_selected[workpiece_surface] = 0; _convection[workpiece_surface] = 1; _flow[workpiece_surface] = 0; _flux[workpiece_surface] = 0; _radiation[workpiece_surface] = 1; h[workpiece_surface] = 1.000000e+01; hr[workpiece_surface] = 7.000000e-01; qSurfInt[workpiece_surface] = 0.000000e+00; qSurf[workpiece_surface] = 0.000000e+00; tref[workpiece_surface] = 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[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[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; _power[winding_0] = 0; _voltage[winding_0] = 0; ElectricalCircuit[winding_1] = 0.000000e+00; _current[winding_1] = 1; _power[winding_1] = 0; _voltage[winding_1] = 0; ElectricalCircuit[winding_2] = 0.000000e+00; _current[winding_2] = 1; _power[winding_2] = 0; _voltage[winding_2] = 0; ElectricalCircuit[ElectricalCircuit_source0] = 0.000000e+00; _current[ElectricalCircuit_source0] = 1; _power[ElectricalCircuit_source0] = 0; _voltage[ElectricalCircuit_source0] = 0; area[workpiece] = 0.00105; volume[workpiece] = 4.948e-05; centroidX[workpiece] = 0.0075; centroidY[workpiece] = -1.89478e-18; centroidZ[workpiece] = 0; area[winding_2] = 5.02655e-05; volume[winding_2] = 6.46316e-06; centroidX[winding_2] = 0.021; centroidY[winding_2] = 0.038; centroidZ[winding_2] = 0; area[winding_0] = 5.02655e-05; volume[winding_0] = 6.46324e-06; centroidX[winding_0] = 0.021; centroidY[winding_0] = -0.014; centroidZ[winding_0] = 0; area[winding_1] = 5.02655e-05; volume[winding_1] = 6.46323e-06; centroidX[winding_1] = 0.021; centroidY[winding_1] = 0.012; centroidZ[winding_1] = 0; area[air] = 0.0214992; volume[air] = 0.00706254; centroidX[air] = 0.0522791; centroidY[air] = 0.00361132; centroidZ[air] = 0; area[ElectricalCircuit_source0] = 0; volume[ElectricalCircuit_source0] = 0; centroidX[ElectricalCircuit_source0] = 0; centroidY[ElectricalCircuit_source0] = 0; centroidZ[ElectricalCircuit_source0] = 0; centroidX[workpiece_surface] = 0.0075; centroidY[workpiece_surface] = 0.0033871; centroidZ[workpiece_surface] = 0; centroidX[workpiece_axis] = 0.0075; centroidY[workpiece_axis] = -0.035; centroidZ[workpiece_axis] = 0; centroidX[air_infinity] = 0.0765808; centroidY[air_infinity] = 0.0035; centroidZ[air_infinity] = 0; centroidX[Edge_5] = 0.021; centroidY[Edge_5] = -0.014; centroidZ[Edge_5] = 0; centroidX[Edge_7] = 0.021; centroidY[Edge_7] = 0.038; centroidZ[Edge_7] = 0; centroidX[air_axis] = 0; centroidY[air_axis] = 0.00506051; centroidZ[air_axis] = 0; centroidX[Edge_6] = 0.021; centroidY[Edge_6] = 0.012; centroidZ[Edge_6] = 0; ATemp1[workpiece] = 768.400024; ATemp3[workpiece] = 768.400024; EndTime[workpiece] = InterpolationLinear[$1]{-10000000000.000000, 555.512085, 322.700000, 555.512106, 330.404300, 462.002222, 339.445870, 375.491776, 348.536580, 278.219725, 357.578151, 226.122763, 365.368433, 175.455974, 374.410003, 142.601642, 384.739717, 113.262651, 393.793572, 89.949938, 402.859713, 69.802792, 413.189426, 55.441502, 423.531425, 43.028377, 433.873423, 33.394500, 446.767138, 25.923343, 459.660853, 20.123665, 469.990567, 15.983404, 482.859713, 12.994806, 497.017001, 10.324669, 508.610289, 8.393220, 518.903148, 7.145250, 529.171438, 6.370753, 540.691017, 5.949720, 552.173741, 5.955647, 564.920040, 6.101712, 576.329056, 7.016773, 585.223209, 7.526628, 595.380937, 8.263304, 604.225951, 9.722671, 614.334540, 11.708675, 623.142700, 14.766116, 630.662718, 19.055440, 638.195020, 24.028655, 643.175606, 30.293110, 649.407481, 40.002832, 654.363497, 52.818927, 659.294944, 73.042031, 662.962817, 98.688340, 667.881979, 139.666205, 670.224855, 206.968935, 673.831304, 313.912974, 677.462323, 454.599470, 679.829769, 643.218189, 682.172645, 953.173914, 684.441812, 1622.703963, 685.484260, 2518.195933, 690.305144, 4287.980135, 691.101898, 10566.894670, 695.836788, 21154.665470, 703.049687, 48664.734820, 707.821433, 90896.358780, 711.194472, 213920.674000, 719.646375, 527516.034600, 728.147417, 1185904.436000, 740.402325, 3063805.465000, 768.400000, 13183361.050000, 10000000000.000000, 13183361.000000}; MartStart[workpiece] = 322.700012; StartTime[workpiece] = InterpolationLinear[$1]{-10000000000.000000, 28.131905, 322.700000, 28.131905, 339.595042, 25.683541, 351.188330, 20.878888, 362.769332, 17.370089, 374.374904, 13.797878, 380.877043, 10.955453, 388.691894, 8.116519, 392.679171, 6.011254, 401.819019, 4.060539, 413.498300, 2.807635, 423.877153, 2.032984, 434.206866, 1.614716, 445.800154, 1.312649, 467.637161, 0.996458, 481.757596, 0.848578, 495.841176, 0.774554, 512.476472, 0.707143, 530.350773, 0.692050, 550.739936, 0.726091, 566.001097, 0.797510, 578.685971, 0.917213, 590.131842, 0.984077, 601.516288, 1.185221, 617.991883, 1.461518, 628.088187, 1.801227, 638.184491, 2.219897, 645.729078, 2.735275, 657.064385, 3.613601, 665.811122, 5.115756, 673.294285, 7.076022, 682.053307, 9.788510, 688.260612, 13.537794, 693.204344, 18.293169, 698.148075, 24.718948, 704.330811, 35.805171, 707.974114, 50.666766, 714.107711, 80.502214, 717.689591, 127.878155, 718.781178, 180.916303, 726.190633, 287.481824, 732.299660, 478.387108, 735.893825, 742.550143, 735.709554, 1050.410563, 738.003291, 1707.425604, 741.622025, 2530.484432, 743.940331, 3927.371100, 744.970495, 6237.267656, 747.264232, 10138.579020, 749.570253, 16103.399990, 750.637271, 23860.710010, 751.642865, 39688.094020, 753.912033, 67565.872860, 754.954481, 104852.215900, 759.775365, 178542.190800, 768.400000, 318517.055300, 10000000000.000000, 318517.062500}; cp[workpiece] = InterpolationLinear[$1]{-10000000000.000000, 469.000000, 27.000000, 469.000000, 127.000000, 506.000000, 327.000000, 521.000000, 527.000000, 660.000000, 727.000000, 616.000000, 927.000000, 577.000000, 10000000000.000000, 577.000000}; lambda[workpiece] = InterpolationLinear[$1]{-10000000000.000000, 51.000000, 100.000000, 51.000000, 200.000000, 48.000000, 300.000000, 46.000000, 400.000000, 42.000000, 500.000000, 38.000000, 600.000000, 34.000000, 700.000000, 30.000000, 800.000000, 25.000000, 900.000000, 26.000000, 1000.000000, 28.000000, 1100.000000, 30.000000, 10000000000.000000, 30.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; nu[winding_2] = 1/(1.000000e+00); nu_nu0[winding_2] = 1/(1.000000e+00 * mu0); sigma[winding_2] = 58823528.000000; nu[workpiece] = 1/(2.000000e+02); nu_nu0[workpiece] = 1/(2.000000e+02 * mu0); sigma[workpiece] = InterpolationLinear[$1]{-10000000000.000000, 6250000.000000, 0.000000, 6250000.000000, 20.000000, 5847953.000000, 50.000000, 5291005.000000, 100.000000, 4524887.000000, 150.000000, 3891051.000000, 200.000000, 3378378.000000, 250.000000, 2949853.000000, 300.000000, 2583979.000000, 350.000000, 2283105.000000, 400.000000, 2028398.000000, 450.000000, 1808318.000000, 500.000000, 1615509.000000, 550.000000, 1451379.000000, 600.000000, 1305483.000000, 650.000000, 1184834.000000, 700.000000, 1072961.000000, 750.000000, 926784.000000, 800.000000, 900090.000000, 850.000000, 884173.000000, 900.000000, 870322.000000, 950.000000, 857633.000000, 1000.000000, 848176.000000, 1050.000000, 838223.000000, 1100.000000, 828500.000000, 1150.000000, 819672.000000, 1200.000000, 813008.000000, 1250.000000, 806452.000000, 10000000000.000000, 806452.000000}; radiationNLFlag = 1; cpNLFlag = 1; lambdaNLFlag = 1; bhNLFlag = 0; new_xyz[winding_2] = Vector[X[] * Cos[-0.000000] - Y[] *Sin[-0.000000] - 0.000000, X[] * Sin[-0.000000] + Y[] *Cos[-0.000000] - 0.000500 , Z[] - 0.000000]; new_xyz[winding_0] = Vector[X[] * Cos[-0.000000] - Y[] *Sin[-0.000000] - 0.000000, X[] * Sin[-0.000000] + Y[] *Cos[-0.000000] - 0.000500 , Z[] - 0.000000]; new_xyz[winding_1] = Vector[X[] * Cos[-0.000000] - Y[] *Sin[-0.000000] - 0.000000, X[] * Sin[-0.000000] + Y[] *Cos[-0.000000] - 0.000500 , Z[] - 0.000000]; Flag_MagTherm = 2; meshDim = 2; Breakpoints = {}; }