#include"udf.h"#include"math.h"
Domain *domain;/*************************************************************/double TEM[]={
573.00,580.10,586.60,592.50,597.90,602.80,607.30,611.40,615.10,618.50,621.60,624.40,627.00,629.30,631.40,633.30,635.10,636.70,638.20,639.60,640.80,642.00,643.10,644.10,645.00,645.80,646.60,647.30,647.90,648.50,649.00,649.50,649.90,650.30,650.70,651.00,651.30,651.60,651.90,652.20,652.50,652.80,653.10,653.30,653.50,653.70,653.90,654.10,654.30,654.50,654.70,654.90,655.10,655.30,655.70,655.80,655.90,656.00,656.10,656.20,656.30,656.40,656.50,656.70,657.20,657.40,657.60,657.80,658.00,658.20,658.40,658.60,658.80,659.10,659.40,659.70,660.00,660.30,660.70,661.10,661.50,662.00,662.50,663.10,663.70,664.40,665.10,665.90,666.80,667.70,668.70,669.80,671.00,672.30,673.70,675.30,677.00,678.90,681.00,683.30,685.80,688.50,691.40,694.60,698.10,701.90,706.10,710.70,715.70,721.10,727.00,733.50,740.60,748.30,756.70,765.90,776.00,787.10,799.20,812.50,827.10,843.20,860.90,880.50,902.10,926.00,952.50,981.80,1014.30,1050.40,1090.60,1135.30,1185.10,1240.50,1302.20,1370.80,1447.10,1531.80,1625.70,1729.60,1844.30,1970.70,2000.00};double beta[]={
0.002463,0.002652,0.002856,0.003073,0.003307,0.003555,0.003824,0.004111,0.004415,0.004744,0.005096,0.005469,0.005878,0.006303,0.006759,0.007243,0.007782,0.008346,0.008966,0.009648,0.010331,0.011130,0.011990,0.012905,0.013866,0.014859,0.016016,0.017201,0.018381,0.019756,0.021091,0.022648,0.024095,0.025766,0.027716,0.029403,0.031323,0.033516,0.036033,0.038928,0.042259,0.046092,0.050498,0.053796,0.057425,0.061436,0.065898,0.070912,0.076608,0.083146,0.090706,0.099452,0.109470,0.120673,0.144490,0.149831,0.154401,0.157881,0.159995,0.160596,0.159706,0.157502,0.154236,0.145582,0.120604,0.111436,0.103157,0.095779,0.089238,0.083445,0.078305,0.073731,0.069645,0.064286,0.059691,0.055715,0.052245,0.049193,0.045657,0.042614,0.039971,0.037118,0.034668,0.032149,0.029995,0.027846,0.026006,0.024203,0.022474,0.020995,0.019584,0.018252,0.017009,0.015856,0.014791,0.013750,0.012807,0.011907,0.011060,0.010271,0.009541,0.008871,0.008256,0.007677,0.007137,0.006637,0.006167,0.005729,0.005324,0.004952,0.004606,0.004282,0.003981,0.003705,0.003449,0.003211,0.002989,0.002783,0.002593,0.002417,0.002253,0.002100,0.001959,0.001827,0.001705,0.001591,0.001485,0.001386,0.001294,0.001208,0.001127,0.001052,0.000982,0.000916,0.000854,0.000796,0.000741,0.000690,0.000642,0.000597,0.000555,0.000516,0.000507};#definetminimum578#defineM_M_keC11.5#defineid04#defineid111/*************************************************************/
real posx[20][2000], posy[20][2000], posz[20][2000], shear[20][2000];int fnum[20];
real ds =1E-6;int UDM_checked =0, pos_checked;#defineSIG_TKE11.176#defineSIG_OMG12.0#defineSIG_TKE21.0#defineSIG_OMG21.168#defineALPHA_10.31#defineALPHA_infstar1.0#defineALPHA_star1.0#defineALPHA_00.11111111111111111111/*****alpha_0 = 1 / 9******/#defineBETA_i10.075#defineBETA_i20.0828#defineBETA_infstar0.09#defineR_BETA8.0#defineR_TKE6.0#defineR_OMG2.95#defineZETA_star1.5#defineM_t00.25#defineK_karman0.41#definec_theta0.3const real Aplus =70.;const real Bplus =300.;const real sigmat =0.85;const real ctheta =0.2;const real zeta =1.;const real xi =0.6;const real eta =2.5;const real c_T =0.62;const real c_t=0.2, c_t1 =1.0, c_t2 =0.4, c_t3 =-1.5;#defineKronecher