Gauss Femm calculator - "func.lua"

---------------------------------------------------------------------------------------------------------------
-- Функция для добавления материала
---------------------------------------------------------------------------------------------------------------
function vvod_materiala (nomer_materiala, P_or_M)
  Name_mat=P_or_M .. nomer_materiala

  if nomer_materiala== 0 then       -- если нет материала = 0 то добавляем материал воздух
     mi_addmaterial(Name_mat,1,1)
     return
  end

  if nomer_materiala == 1 then      -- FeNeB
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.1520530844294,111000)
     mi_addbhpoint(Name_mat,0.2274513081134,156000)
     mi_addbhpoint(Name_mat,0.3619114736832,233000)
     mi_addbhpoint(Name_mat,0.7954512598662,333000)
     mi_addbhpoint(Name_mat,0.8896990394712,358000)
     mi_addbhpoint(Name_mat,1.017876019734,410000)
     mi_addbhpoint(Name_mat,1.2792565285052,555000)
     mi_addbhpoint(Name_mat,1.7379290559162,833000)
     mi_addbhpoint(Name_mat,1.985486557012,1000000)
     mi_addbhpoint(Name_mat,2.1387962785028,1110000)
     mi_addbhpoint(Name_mat,2.425309528502,1330000)
     return
  end

  if nomer_materiala == 2 then      -- EA
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.50001588673106,200)
     mi_addbhpoint(Name_mat,1.00003177346212,400)
     mi_addbhpoint(Name_mat,1.39059457214524,600)
     mi_addbhpoint(Name_mat,1.5004246513116,1000)
     mi_addbhpoint(Name_mat,1.6204334906753,2500)
     mi_addbhpoint(Name_mat,1.7102830405654,5000)
     mi_addbhpoint(Name_mat,1.809557368416,10000)
     mi_addbhpoint(Name_mat,2.0005662017488,24000)
     mi_addbhpoint(Name_mat,2.0495750471434,30000)
     mi_addbhpoint(Name_mat,2.180265301529,50000)
     mi_addbhpoint(Name_mat,4.4598049309086,400000)
     return
  end

  if nomer_materiala == 3 then      -- 49K2F
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.50039287784948,200)
     mi_addbhpoint(Name_mat,1.25085653091756,400)
     mi_addbhpoint(Name_mat,1.65071844385504,600)
     mi_addbhpoint(Name_mat,1.77035029210032,800)
     mi_addbhpoint(Name_mat,2.0005662017488,2000)
     mi_addbhpoint(Name_mat,2.2016281315728,4000)
     mi_addbhpoint(Name_mat,2.2405838804762,6000)
     mi_addbhpoint(Name_mat,2.2506369769674,8000)
     mi_addbhpoint(Name_mat,2.2719998070112,20000)
     mi_addbhpoint(Name_mat,2.3486546677566,80000)
     mi_addbhpoint(Name_mat,2.752035164466,400000)
     return
  end

  if nomer_materiala == 4 then      -- 79HM
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.599993931336044,10)
     mi_addbhpoint(Name_mat,0.619999593353532,20)
     mi_addbhpoint(Name_mat,0.650008086379764,30)
     mi_addbhpoint(Name_mat,0.679991446664768,40)
     mi_addbhpoint(Name_mat,0.70000967505287,70)
     mi_addbhpoint(Name_mat,0.709999939691,100)
     mi_addbhpoint(Name_mat,0.730005601708488,200)
     mi_addbhpoint(Name_mat,0.739455512410216,270)
     mi_addbhpoint(Name_mat,0.746919936554932,300)
     mi_addbhpoint(Name_mat,0.752901528967196,400)
     mi_addbhpoint(Name_mat,0.75542736946061,450)
     return
  end

  if nomer_materiala == 5 then      -- 79HM1
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0530059188603893,0.77)
     mi_addbhpoint(Name_mat,0.061255816566704,0.83)
     mi_addbhpoint(Name_mat,0.0695057079898333,0.885)
     mi_addbhpoint(Name_mat,0.0860054971192774,1)
     mi_addbhpoint(Name_mat,0.109002131272086,1.14)
     mi_addbhpoint(Name_mat,0.131998765424895,1.28)
     mi_addbhpoint(Name_mat,0.141499029573673,1.35)
     mi_addbhpoint(Name_mat,0.15099926858971,1.4)
     mi_addbhpoint(Name_mat,0.169999834586378,1.57)
     mi_addbhpoint(Name_mat,0.192003750593422,1.73)
     mi_addbhpoint(Name_mat,0.199999970976152,1.92)
     return
  end

  if nomer_materiala == 6 then      -- 50H
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.200000071507117,8)
     mi_addbhpoint(Name_mat,0.300000107260676,8.5)
     mi_addbhpoint(Name_mat,0.399999640359409,9.6)
     mi_addbhpoint(Name_mat,0.499999550449262,11)
     mi_addbhpoint(Name_mat,0.59999958620282,12.5)
     mi_addbhpoint(Name_mat,0.699999621956379,15)
     mi_addbhpoint(Name_mat,0.799997772754345,18)
     mi_addbhpoint(Name_mat,1.00000035753558,36)
     mi_addbhpoint(Name_mat,1.09999976497061,60)
     mi_addbhpoint(Name_mat,1.2000004290427,140)
     mi_addbhpoint(Name_mat,1.40000050054982,500)
     return
  end

  if nomer_materiala == 7 then      -- 27KX
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.75046365306808,200)
     mi_addbhpoint(Name_mat,1.25085653091756,400)
     mi_addbhpoint(Name_mat,1.47981580350464,600)
     mi_addbhpoint(Name_mat,1.60070428881132,800)
     mi_addbhpoint(Name_mat,1.7504954265302,2000)
     mi_addbhpoint(Name_mat,1.9012918738982,4000)
     mi_addbhpoint(Name_mat,2.0005662017488,6000)
     mi_addbhpoint(Name_mat,2.0508316842048,8000)
     mi_addbhpoint(Name_mat,2.2506369769674,20000)
     mi_addbhpoint(Name_mat,2.4114865208266,80000)
     mi_addbhpoint(Name_mat,3.07876080043,600000)
     return
  end

  if nomer_materiala == 8 then      -- FERRIT
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.100832557806736,240)
     mi_addbhpoint(Name_mat,0.201464053683648,320)
     mi_addbhpoint(Name_mat,0.25183006710456,400)
     mi_addbhpoint(Name_mat,0.28224068399044,600)
     mi_addbhpoint(Name_mat,0.302497673420208,720)
     mi_addbhpoint(Name_mat,0.322905459297344,960)
     mi_addbhpoint(Name_mat,0.343514307104304,1360)
     mi_addbhpoint(Name_mat,0.35412032390252,1800)
     mi_addbhpoint(Name_mat,0.364625809735824,2160)
     mi_addbhpoint(Name_mat,0.38905483420944,5600)
     mi_addbhpoint(Name_mat,3.4909377565692,874000)
     return
  end

  if nomer_materiala == 9 then      -- FERPLAST
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,1.00587513579763,450)
     mi_addbhpoint(Name_mat,1.1064689325627,500)
     mi_addbhpoint(Name_mat,1.20725122488698,700)
     mi_addbhpoint(Name_mat,1.25764237104912,800)
     mi_addbhpoint(Name_mat,1.30803351721126,900)
     mi_addbhpoint(Name_mat,1.40900430509475,1250)
     mi_addbhpoint(Name_mat,1.4595839468161,1500)
     mi_addbhpoint(Name_mat,1.51016358853745,1750)
     mi_addbhpoint(Name_mat,1.6122653497762,3000)
     mi_addbhpoint(Name_mat,1.71625206660705,5750)
     mi_addbhpoint(Name_mat,22.664329048292,675700)
     return
  end

  if nomer_materiala == 10 then      -- KC37H
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.4310265120602,333000)
     mi_addbhpoint(Name_mat,0.7439291403488,567000)
     mi_addbhpoint(Name_mat,0.948760981357,700000)
     mi_addbhpoint(Name_mat,1.63362817982,1000000)
     mi_addbhpoint(Name_mat,1.90594143102538,1166700)
     mi_addbhpoint(Name_mat,2.17825468223076,1333400)
     mi_addbhpoint(Name_mat,2.67613428595744,1666600)
     mi_addbhpoint(Name_mat,3.83274303727,2500000)
     mi_addbhpoint(Name_mat,4.498760679812,3000000)
     mi_addbhpoint(Name_mat,4.93280312081956,3333400)
     mi_addbhpoint(Name_mat,5.78053048244,4000000)
     return
  end

  if nomer_materiala == 11 then      -- 1513
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.75410790054614,100)
     mi_addbhpoint(Name_mat,0.94272912346228,200)
     mi_addbhpoint(Name_mat,1.05595212269442,300)
     mi_addbhpoint(Name_mat,1.1944335268607,500)
     mi_addbhpoint(Name_mat,1.2893096249964,1000)
     mi_addbhpoint(Name_mat,1.4357078426495,2500)
     mi_addbhpoint(Name_mat,1.551946770829,5000)
     mi_addbhpoint(Name_mat,1.683893662276,10000)
     mi_addbhpoint(Name_mat,1.847256480258,20000)
     mi_addbhpoint(Name_mat,1.985486557012,40000)
     mi_addbhpoint(Name_mat,2.19911485745,100000)
     return
  end

  if nomer_materiala == 12 then      -- 12ЮВИ
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.377028817531842,30)
     mi_addbhpoint(Name_mat,0.377030074168903,31)
     mi_addbhpoint(Name_mat,0.377031330805965,32)
     mi_addbhpoint(Name_mat,0.377032587443026,33)
     mi_addbhpoint(Name_mat,0.377033844080088,34)
     mi_addbhpoint(Name_mat,0.377035100717149,35)
     mi_addbhpoint(Name_mat,0.37703635735421,36)
     mi_addbhpoint(Name_mat,0.377037613991272,37)
     mi_addbhpoint(Name_mat,0.377038870628333,38)
     mi_addbhpoint(Name_mat,0.377040127265395,39)
     mi_addbhpoint(Name_mat,0.377040252929101,39.1)
     return
  end

  if nomer_materiala == 13 then      -- 21НКМТ
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.3028495317974,1000)
     mi_addbhpoint(Name_mat,1.394867138154,500000)
     mi_addbhpoint(Name_mat,2.26232370163842,1000300)
     mi_addbhpoint(Name_mat,3.807610296042,2000000)
     mi_addbhpoint(Name_mat,4.561592532882,2500000)
     mi_addbhpoint(Name_mat,5.290442028494,3000000)
     mi_addbhpoint(Name_mat,6.710441907876,4000000)
     mi_addbhpoint(Name_mat,8.092742675416,5000000)
     mi_addbhpoint(Name_mat,9.4247779605,6000000)
     mi_addbhpoint(Name_mat,11.4052379692664,7536000)
     mi_addbhpoint(Name_mat,13.244954627156,9000000)
     return
  end

  if nomer_materiala == 14 then      -- STAL3
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.02538406864028,200)
     mi_addbhpoint(Name_mat,0.50315747938456,400)
     mi_addbhpoint(Name_mat,1.0059379676507,500)
     mi_addbhpoint(Name_mat,1.37061404286898,700)
     mi_addbhpoint(Name_mat,1.45882996457926,900)
     mi_addbhpoint(Name_mat,1.52203880876768,1200)
     mi_addbhpoint(Name_mat,1.57280694604824,1600)
     mi_addbhpoint(Name_mat,1.5984423421008,2000)
     mi_addbhpoint(Name_mat,1.63702109988578,2700)
     mi_addbhpoint(Name_mat,1.872389221486,10000)
     mi_addbhpoint(Name_mat,2.035752039468,20000)
     return
  end

  if nomer_materiala == 15 then      -- ARMCO
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,1.40001935010574,500)
     mi_addbhpoint(Name_mat,1.49992199648704,1000)
     mi_addbhpoint(Name_mat,1.59995030657448,2500)
     mi_addbhpoint(Name_mat,1.69972728924964,5000)
     mi_addbhpoint(Name_mat,1.74999277170564,7000)
     mi_addbhpoint(Name_mat,1.80754674911776,10000)
     mi_addbhpoint(Name_mat,1.9000352368368,15000)
     mi_addbhpoint(Name_mat,1.9993095646874,20000)
     mi_addbhpoint(Name_mat,2.0495750471434,30000)
     mi_addbhpoint(Name_mat,2.0998405295994,40000)
     mi_addbhpoint(Name_mat,3.323805027403,1000000)
     return
  end

  if nomer_materiala == 16 then      -- 30XGSA
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.100015743716826,510)
     mi_addbhpoint(Name_mat,0.19999378832181,750)
     mi_addbhpoint(Name_mat,0.49995305487799,950)
     mi_addbhpoint(Name_mat,0.90000346337468,1200)
     mi_addbhpoint(Name_mat,1.09999725169649,1400)
     mi_addbhpoint(Name_mat,1.19996272993086,1500)
     mi_addbhpoint(Name_mat,1.30005387187137,1750)
     mi_addbhpoint(Name_mat,1.39995651825267,2250)
     mi_addbhpoint(Name_mat,1.49998482834011,3250)
     mi_addbhpoint(Name_mat,1.59995030657448,6000)
     mi_addbhpoint(Name_mat,13.6709545909706,4130000)
     return
  end

  if nomer_materiala == 17 then      -- STAL10
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.10009114194051,50)
     mi_addbhpoint(Name_mat,0.39973624923134,100)
     mi_addbhpoint(Name_mat,0.82994594720163,150)
     mi_addbhpoint(Name_mat,1.1001857472557,200)
     mi_addbhpoint(Name_mat,1.3804158119479,500)
     mi_addbhpoint(Name_mat,1.5293273037238,1000)
     mi_addbhpoint(Name_mat,1.6298582686358,2000)
     mi_addbhpoint(Name_mat,1.7002299440742,5000)
     mi_addbhpoint(Name_mat,1.7995042719248,10000)
     mi_addbhpoint(Name_mat,2.1702122050378,50000)
     mi_addbhpoint(Name_mat,2.400176787274,200000)
     return
  end

  if nomer_materiala == 18 then      -- UN35TBA
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.07319910882655,7000)
     mi_addbhpoint(Name_mat,0.1463982176531,14000)
     mi_addbhpoint(Name_mat,0.2927964353062,28000)
     mi_addbhpoint(Name_mat,0.36599554413275,35000)
     mi_addbhpoint(Name_mat,0.51239376178585,49000)
     mi_addbhpoint(Name_mat,0.7319910882655,70000)
     mi_addbhpoint(Name_mat,0.8783893059186,84000)
     mi_addbhpoint(Name_mat,1.0247875235717,98000)
     mi_addbhpoint(Name_mat,1.1711857412248,112000)
     mi_addbhpoint(Name_mat,1.551946770829,400000)
     mi_addbhpoint(Name_mat,1.683893662276,500000)
     return
  end

  if nomer_materiala == 19 then      -- UNDK35T5N
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.050265482456,30000)
     mi_addbhpoint(Name_mat,0.087964594298,50000)
     mi_addbhpoint(Name_mat,0.138230076754,70000)
     mi_addbhpoint(Name_mat,0.219911485745,90000)
     mi_addbhpoint(Name_mat,0.282743338815,100000)
     mi_addbhpoint(Name_mat,1.13097335526,160000)
     mi_addbhpoint(Name_mat,1.206371578944,170000)
     mi_addbhpoint(Name_mat,1.262920246707,180000)
     mi_addbhpoint(Name_mat,1.338318470391,200000)
     mi_addbhpoint(Name_mat,1.419999879382,250000)
     mi_addbhpoint(Name_mat,1.489114917759,300000)
     return
  end

  if nomer_materiala == 20 then      -- STAL45
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.1897521962714,1000)
     mi_addbhpoint(Name_mat,0.7062300285068,2000)
     mi_addbhpoint(Name_mat,0.88241054451508,2200)
     mi_addbhpoint(Name_mat,1.0084512417735,2500)
     mi_addbhpoint(Name_mat,1.1347432664442,3000)
     mi_addbhpoint(Name_mat,1.2993627214876,4000)
     mi_addbhpoint(Name_mat,1.4652388135924,6000)
     mi_addbhpoint(Name_mat,1.5431503113992,8000)
     mi_addbhpoint(Name_mat,1.6487078245568,12000)
     mi_addbhpoint(Name_mat,1.715309588811,15000)
     mi_addbhpoint(Name_mat,1.784424627188,20000)
     return
  end

  if nomer_materiala == 21 then      -- (ВИАМ) 20А (5)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.55340728976936,181.545562)
     mi_addbhpoint(Name_mat,1.00697305822341,453.863906)
     mi_addbhpoint(Name_mat,1.15816164792382,680.795859)
     mi_addbhpoint(Name_mat,1.30935033085162,1043.887)
     mi_addbhpoint(Name_mat,1.40633923549812,1316.205)
     mi_addbhpoint(Name_mat,1.50903270189015,1770.069)
     mi_addbhpoint(Name_mat,1.59461174288636,2314.706)
     mi_addbhpoint(Name_mat,1.66022167869383,3222.434)
     mi_addbhpoint(Name_mat,1.7372422786294,4402.48)
     mi_addbhpoint(Name_mat,1.77147350069518,5264.821)
     mi_addbhpoint(Name_mat,1.84564127814741,7125.663)
     return
  end

  if nomer_materiala == 22 then      -- (ВИАМ) 45 (6)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0599999995740839,410.03659)
     mi_addbhpoint(Name_mat,0.997142857849104,1002.312)
     mi_addbhpoint(Name_mat,1.09714285716019,1184.55)
     mi_addbhpoint(Name_mat,1.22857142854502,1776.825)
     mi_addbhpoint(Name_mat,1.28571406340801,2095.743)
     mi_addbhpoint(Name_mat,1.39142915131329,2779.137)
     mi_addbhpoint(Name_mat,1.45142848664159,3508.091)
     mi_addbhpoint(Name_mat,1.49999996453351,4237.045)
     mi_addbhpoint(Name_mat,1.54285685648607,5330.476)
     mi_addbhpoint(Name_mat,1.63428572144556,7836.255)
     mi_addbhpoint(Name_mat,1.71428519461483,12847.813)
     return
  end

  if nomer_materiala == 23 then      -- (ВИАМ) 45 (7)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0471014492151672,345.363348)
     mi_addbhpoint(Name_mat,0.0942028989870247,633.166139)
     mi_addbhpoint(Name_mat,0.195652173876437,1093.651)
     mi_addbhpoint(Name_mat,0.347826086472565,1554.135)
     mi_addbhpoint(Name_mat,0.945652174364432,2532.665)
     mi_addbhpoint(Name_mat,1.19202898577291,3280.952)
     mi_addbhpoint(Name_mat,1.34058007026969,4489.724)
     mi_addbhpoint(Name_mat,1.4891308845895,6849.706)
     mi_addbhpoint(Name_mat,1.6123184037363,10188.219)
     mi_addbhpoint(Name_mat,1.71376853582686,15368.669)
     mi_addbhpoint(Name_mat,1.81521771161661,24578.358)
     return
  end

  if nomer_materiala == 24 then      -- (ВИАМ) 45 (8)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.050370370870241,279.764548)
     mi_addbhpoint(Name_mat,0.248888889489258,792.66622)
     mi_addbhpoint(Name_mat,0.583703704029507,1165.686)
     mi_addbhpoint(Name_mat,0.986666665482338,1585.332)
     mi_addbhpoint(Name_mat,1.23851851890363,2098.234)
     mi_addbhpoint(Name_mat,1.36888885108632,2611.136)
     mi_addbhpoint(Name_mat,1.5022228222916,3636.939)
     mi_addbhpoint(Name_mat,1.59111158644031,4709.37)
     mi_addbhpoint(Name_mat,1.70370313560219,7273.878)
     mi_addbhpoint(Name_mat,1.79259300684814,10864.19)
     mi_addbhpoint(Name_mat,1.9051846502578,19676.773)
     return
  end

  if nomer_materiala == 25 then      -- (ВИАМ) 5 (9)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0590841944349895,140.156016)
     mi_addbhpoint(Name_mat,0.162481536351212,233.593361)
     mi_addbhpoint(Name_mat,0.218611521135829,280.312033)
     mi_addbhpoint(Name_mat,0.431314622969656,373.749377)
     mi_addbhpoint(Name_mat,0.522895125911168,420.468049)
     mi_addbhpoint(Name_mat,0.995568685886075,747.498754)
     mi_addbhpoint(Name_mat,1.38256968535787,1494.998)
     mi_addbhpoint(Name_mat,1.59822717818987,2195.778)
     mi_addbhpoint(Name_mat,1.80797623624942,3690.775)
     mi_addbhpoint(Name_mat,1.92909915976628,5092.335)
     mi_addbhpoint(Name_mat,2.04726682351646,7942.174)
     return
  end

  if nomer_materiala == 26 then      -- (ВИАМ) ШХ15 (10)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0607142864180125,1913.075)
     mi_addbhpoint(Name_mat,0.128571428583277,2588.277)
     mi_addbhpoint(Name_mat,0.23571428489825,3094.679)
     mi_addbhpoint(Name_mat,0.346428571600123,3488.548)
     mi_addbhpoint(Name_mat,0.446428570911206,3938.683)
     mi_addbhpoint(Name_mat,0.514285714333108,4445.085)
     mi_addbhpoint(Name_mat,0.70357142807776,6189.359)
     mi_addbhpoint(Name_mat,0.921428571094606,9340.305)
     mi_addbhpoint(Name_mat,1.07499999981981,13278.988)
     mi_addbhpoint(Name_mat,1.23571428680555,20875.02)
     mi_addbhpoint(Name_mat,1.27500000095525,27570.781)
     return
  end

  if nomer_materiala == 27 then      -- (ВИАМ)  Х12Ф1 (11)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0412213737905987,1825.318)
     mi_addbhpoint(Name_mat,0.064122137845356,2209.596)
     mi_addbhpoint(Name_mat,0.100763358573676,2737.977)
     mi_addbhpoint(Name_mat,0.128244274434075,3218.324)
     mi_addbhpoint(Name_mat,0.169465648224674,3554.567)
     mi_addbhpoint(Name_mat,0.206106870209631,4130.983)
     mi_addbhpoint(Name_mat,0.343511449511626,5379.885)
     mi_addbhpoint(Name_mat,0.490076336194817,8069.828)
     mi_addbhpoint(Name_mat,0.554198472783536,10999.944)
     mi_addbhpoint(Name_mat,0.613740457566613,15034.858)
     mi_addbhpoint(Name_mat,0.664122136225133,23248.79)
     return
  end

  if nomer_materiala == 28 then      -- (ВИАМ) Р9 (12)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0229591835308924,645.222742)
     mi_addbhpoint(Name_mat,0.0596938782745998,1147.063)
     mi_addbhpoint(Name_mat,0.091836735420419,1648.903)
     mi_addbhpoint(Name_mat,0.128571428583277,2007.36)
     mi_addbhpoint(Name_mat,0.21581632673002,2580.891)
     mi_addbhpoint(Name_mat,0.858673469646405,4301.485)
     mi_addbhpoint(Name_mat,1.03775510195693,5376.856)
     mi_addbhpoint(Name_mat,1.18928571439531,6738.993)
     mi_addbhpoint(Name_mat,1.34540806985959,9821.724)
     mi_addbhpoint(Name_mat,1.51071432229598,16202.26)
     mi_addbhpoint(Name_mat,1.72193863582314,37351.228)
     return
  end

  if nomer_materiala == 29 then      -- (ВИАМ) Р18 (13)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0335106386081147,979.646904)
     mi_addbhpoint(Name_mat,0.0574468088902497,1356.434)
     mi_addbhpoint(Name_mat,0.0957446806459914,2110.009)
     mi_addbhpoint(Name_mat,0.172340425414112,2938.941)
     mi_addbhpoint(Name_mat,0.292021276221601,3692.515)
     mi_addbhpoint(Name_mat,0.636702127049825,4672.162)
     mi_addbhpoint(Name_mat,0.976595744851059,6932.886)
     mi_addbhpoint(Name_mat,1.12021276582005,9193.609)
     mi_addbhpoint(Name_mat,1.21117021218241,12132.55)
     mi_addbhpoint(Name_mat,1.31648908242223,19969.725)
     mi_addbhpoint(Name_mat,1.41223414005934,36096.221)
     return
  end

  if nomer_materiala == 30 then      -- (ВИАМ) Р9К5 (14)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0.0003462035104157,0)
     mi_addbhpoint(Name_mat,0.0415384610203018,1238.843)
     mi_addbhpoint(Name_mat,0.0876923074361729,1894.702)
     mi_addbhpoint(Name_mat,0.138461539247613,2477.687)
     mi_addbhpoint(Name_mat,0.295384615050956,3497.911)
     mi_addbhpoint(Name_mat,0.507692308061308,4153.769)
     mi_addbhpoint(Name_mat,1.08000000035085,5902.725)
     mi_addbhpoint(Name_mat,1.27384646342492,7578.807)
     mi_addbhpoint(Name_mat,1.41230830552207,10202.24)
     mi_addbhpoint(Name_mat,1.56461552217767,15813.472)
     mi_addbhpoint(Name_mat,1.68923093162795,23975.264)
     mi_addbhpoint(Name_mat,1.79076867142788,37092.43)
     return
  end

  if nomer_materiala == 31 then      -- (ВИАМ) ХВГ (15)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0510917024341022,941.323968)
     mi_addbhpoint(Name_mat,0.110043668511049,1550.416)
     mi_addbhpoint(Name_mat,0.129694323018869,1771.904)
     mi_addbhpoint(Name_mat,0.184716157902712,2214.88)
     mi_addbhpoint(Name_mat,0.286899562851341,2768.6)
     mi_addbhpoint(Name_mat,0.848908297608624,5204.968)
     mi_addbhpoint(Name_mat,1.0061135374411,6312.408)
     mi_addbhpoint(Name_mat,1.12794759815418,7973.568)
     mi_addbhpoint(Name_mat,1.23013100435945,10409.936)
     mi_addbhpoint(Name_mat,1.3165940505726,13732.256)
     mi_addbhpoint(Name_mat,1.41877718031772,22924.007)
     return
  end

  if nomer_materiala == 32 then      -- (ВИАМ) ХВГ (16)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0541353384831972,475.562579)
     mi_addbhpoint(Name_mat,0.144360902357128,1046.238)
     mi_addbhpoint(Name_mat,0.219548871811199,1284.019)
     mi_addbhpoint(Name_mat,0.28571428518211,1521.8)
     mi_addbhpoint(Name_mat,0.348872180277513,1616.913)
     mi_addbhpoint(Name_mat,0.995488721352442,2663.15)
     mi_addbhpoint(Name_mat,1.1819548871065,3281.382)
     mi_addbhpoint(Name_mat,1.33834578716744,4850.738)
     mi_addbhpoint(Name_mat,1.43759349064862,7228.551)
     mi_addbhpoint(Name_mat,1.53383425139407,12269.515)
     mi_addbhpoint(Name_mat,1.61202976551303,20734.528)
     return
  end

  if nomer_materiala == 33 then      -- (ВИАМ) 25ХСНВФА (ВП-25) (17)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0579185515715593,689.479898)
     mi_addbhpoint(Name_mat,0.155656107928661,1264.046)
     mi_addbhpoint(Name_mat,0.307692308182504,1896.07)
     mi_addbhpoint(Name_mat,0.647963800518012,3447.399)
     mi_addbhpoint(Name_mat,0.723981899388296,3964.509)
     mi_addbhpoint(Name_mat,0.774660633225123,4366.706)
     mi_addbhpoint(Name_mat,0.839819004044406,5056.186)
     mi_addbhpoint(Name_mat,0.966515836751517,6722.429)
     mi_addbhpoint(Name_mat,1.12579185486827,10399.655)
     mi_addbhpoint(Name_mat,1.24524886845583,15915.494)
     mi_addbhpoint(Name_mat,1.31764718280173,30739.312)
     return
  end

  if nomer_materiala == 34 then      -- (ВИАМ) 25ХСНВФА (ВП-25) (18)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.10642201790953,518.045023)
     mi_addbhpoint(Name_mat,0.179816513574811,920.968929)
     mi_addbhpoint(Name_mat,0.359633027328064,1323.893)
     mi_addbhpoint(Name_mat,0.528440367378567,1841.938)
     mi_addbhpoint(Name_mat,0.631192660721352,2302.422)
     mi_addbhpoint(Name_mat,0.744954127677664,2820.467)
     mi_addbhpoint(Name_mat,0.844036697739243,3396.073)
     mi_addbhpoint(Name_mat,1.00550458745742,4835.087)
     mi_addbhpoint(Name_mat,1.1522935777676,7943.357)
     mi_addbhpoint(Name_mat,1.3137620141229,15771.593)
     mi_addbhpoint(Name_mat,1.40917391968211,30391.975)
     return
  end

  if nomer_materiala == 35 then      -- (ВИАМ) 25ХСНВФА (ВП-25) (19)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0743276279696291,1539.216)
     mi_addbhpoint(Name_mat,0.164303178344602,2585.883)
     mi_addbhpoint(Name_mat,0.410757946489822,4679.217)
     mi_addbhpoint(Name_mat,0.684596576645279,6834.119)
     mi_addbhpoint(Name_mat,0.798044009999948,8496.473)
     mi_addbhpoint(Name_mat,0.997555012185776,12683.141)
     mi_addbhpoint(Name_mat,1.10317848370945,17362.357)
     mi_addbhpoint(Name_mat,1.19315403408443,22657.261)
     mi_addbhpoint(Name_mat,1.22444987763848,25550.987)
     mi_addbhpoint(Name_mat,1.25183374090535,28321.576)
     mi_addbhpoint(Name_mat,1.28704156474658,31707.851)
     return
  end

  if nomer_materiala == 36 then      -- (ВИАМ) 25ХСНВФА (ВП-25) (20)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0653061221523079,629.749775)
     mi_addbhpoint(Name_mat,0.101587301565635,1030.5)
     mi_addbhpoint(Name_mat,0.163265305459309,1488.499)
     mi_addbhpoint(Name_mat,0.235827663720478,2060.999)
     mi_addbhpoint(Name_mat,0.380952381499451,2805.249)
     mi_addbhpoint(Name_mat,0.439002268108385,3148.749)
     mi_addbhpoint(Name_mat,0.88526077078625,5438.748)
     mi_addbhpoint(Name_mat,1.04852607624556,7327.997)
     mi_addbhpoint(Name_mat,1.18276643965704,10476.746)
     mi_addbhpoint(Name_mat,1.28435344088642,16029.994)
     mi_addbhpoint(Name_mat,1.38956882832086,31315.739)
     return
  end

  if nomer_materiala == 37 then      -- (ВИАМ) 12ХНЗА (21)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.119999999481177,735.315445)
     mi_addbhpoint(Name_mat,0.224615384337369,931.399564)
     mi_addbhpoint(Name_mat,0.292307692710547,1078.463)
     mi_addbhpoint(Name_mat,0.366153846473286,1225.526)
     mi_addbhpoint(Name_mat,0.406153846951701,1323.568)
     mi_addbhpoint(Name_mat,0.535384615408176,1617.694)
     mi_addbhpoint(Name_mat,0.612307691511324,1911.82)
     mi_addbhpoint(Name_mat,0.987692308775749,4166.788)
     mi_addbhpoint(Name_mat,1.20307692286987,8039.449)
     mi_addbhpoint(Name_mat,1.31384557546093,11863.089)
     mi_addbhpoint(Name_mat,1.41230752892036,20098.622)
     return
  end

  if nomer_materiala == 38 then      -- (ВИАМ) 12ХН3А (22)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0382352946217475,186.509699)
     mi_addbhpoint(Name_mat,0.102941176102032,233.137124)
     mi_addbhpoint(Name_mat,0.241176470223359,326.391973)
     mi_addbhpoint(Name_mat,0.482352941703355,652.783946)
     mi_addbhpoint(Name_mat,0.632352940920051,839.293645)
     mi_addbhpoint(Name_mat,0.714705882123125,1119.058)
     mi_addbhpoint(Name_mat,1.06176470621839,2377.999)
     mi_addbhpoint(Name_mat,1.26176455655738,3963.331)
     mi_addbhpoint(Name_mat,1.48823516751514,8019.917)
     mi_addbhpoint(Name_mat,1.58529446017336,11983.248)
     mi_addbhpoint(Name_mat,1.68823574796027,20609.322)
     return
  end

  if nomer_materiala == 39 then      -- (ВИАМ) 12Х2Н4А (23)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0773626376941294,1230.415)
     mi_addbhpoint(Name_mat,0.151208791456868,1901.55)
     mi_addbhpoint(Name_mat,0.228571427894361,2460.829)
     mi_addbhpoint(Name_mat,0.316483516126024,2796.397)
     mi_addbhpoint(Name_mat,0.372747252745085,3187.893)
     mi_addbhpoint(Name_mat,0.4325274720389,3523.46)
     mi_addbhpoint(Name_mat,0.492307692589351,3970.884)
     mi_addbhpoint(Name_mat,0.685714286196356,6096.146)
     mi_addbhpoint(Name_mat,0.784175823708917,8221.407)
     mi_addbhpoint(Name_mat,0.850989012122149,11968.58)
     mi_addbhpoint(Name_mat,1.00571428625377,22147.465)
     return
  end

  if nomer_materiala == 40 then      -- (ВИАМ) 12Х2Н4А (24)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0733905574828543,1341.536)
     mi_addbhpoint(Name_mat,0.112017166750495,1768.388)
     mi_addbhpoint(Name_mat,0.200858368443061,2378.177)
     mi_addbhpoint(Name_mat,0.266523605077697,2561.114)
     mi_addbhpoint(Name_mat,0.339914163817188,2805.03)
     mi_addbhpoint(Name_mat,0.722317596697808,5000.27)
     mi_addbhpoint(Name_mat,0.927038626193296,7195.511)
     mi_addbhpoint(Name_mat,1.05064377735771,9878.583)
     mi_addbhpoint(Name_mat,1.15107296095092,13537.317)
     mi_addbhpoint(Name_mat,1.23605150159106,19391.292)
     mi_addbhpoint(Name_mat,1.3094424586845,31221.2)
     return
  end

  if nomer_materiala == 41 then      -- (ВИАМ) 12Х2Н4А (25)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0824742268372138,732.950396)
     mi_addbhpoint(Name_mat,0.158350514974128,1308.84)
     mi_addbhpoint(Name_mat,0.230927834756149,1570.608)
     mi_addbhpoint(Name_mat,0.280412371313883,1727.669)
     mi_addbhpoint(Name_mat,0.745567009678702,2827.094)
     mi_addbhpoint(Name_mat,0.927010309133755,3612.398)
     mi_addbhpoint(Name_mat,1.02927834984511,4397.702)
     mi_addbhpoint(Name_mat,1.18432989722335,6020.664)
     mi_addbhpoint(Name_mat,1.31628901323568,8219.515)
     mi_addbhpoint(Name_mat,1.53402072879416,16124.909)
     mi_addbhpoint(Name_mat,1.64948427169439,22930.877)
     return
  end

  if nomer_materiala == 42 then      -- (ВИАМ) 12Х2Н4А (26)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0944881884471986,956.944278)
     mi_addbhpoint(Name_mat,0.179527560024859,1309.503)
     mi_addbhpoint(Name_mat,0.233070865901549,1561.33)
     mi_addbhpoint(Name_mat,0.286614173034875,1762.792)
     mi_addbhpoint(Name_mat,0.743307086153851,2518.274)
     mi_addbhpoint(Name_mat,1.04566929158557,4079.605)
     mi_addbhpoint(Name_mat,1.19055118184534,5842.397)
     mi_addbhpoint(Name_mat,1.30393748106361,8058.478)
     mi_addbhpoint(Name_mat,1.41417295762916,12138.083)
     mi_addbhpoint(Name_mat,1.48346422553102,16167.322)
     mi_addbhpoint(Name_mat,1.56220473434705,23017.028)
     return
  end

  if nomer_materiala == 43 then      -- (ВИАМ) 14ХГСН2МА(ЭП176. ДИ-3А) (27)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.195738000931094,274.5)
     mi_addbhpoint(Name_mat,0.251936894862902,329.610829)
     mi_addbhpoint(Name_mat,0.993127147637623,933.897349)
     mi_addbhpoint(Name_mat,1.2646047787409,1263.508)
     mi_addbhpoint(Name_mat,1.46391791211168,1812.86)
     mi_addbhpoint(Name_mat,1.53264549786672,2087.535)
     mi_addbhpoint(Name_mat,1.62199250854287,2856.627)
     mi_addbhpoint(Name_mat,1.75257787771614,4944.162)
     mi_addbhpoint(Name_mat,1.86597945638444,8240.271)
     mi_addbhpoint(Name_mat,1.93814468591828,12250.536)
     mi_addbhpoint(Name_mat,2.04467337594914,17469.374)
     return
  end

  if nomer_materiala == 44 then      -- (ВИАМ) 14ХГСН2МА(ЭП. ДИ-3А) (28)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0649032972161,696.302876)
     mi_addbhpoint(Name_mat,0.127820594222276,1124.797)
     mi_addbhpoint(Name_mat,0.190676112281416,1499.729)
     mi_addbhpoint(Name_mat,0.5084745771984,2731.65)
     mi_addbhpoint(Name_mat,0.630508474620176,3320.829)
     mi_addbhpoint(Name_mat,0.799999999515218,4445.626)
     mi_addbhpoint(Name_mat,0.918644068198385,5784.67)
     mi_addbhpoint(Name_mat,1.03728813562491,8034.264)
     mi_addbhpoint(Name_mat,1.17627118553619,11944.272)
     mi_addbhpoint(Name_mat,1.26779661048748,15907.843)
     mi_addbhpoint(Name_mat,1.35254260918277,20996.21)
     return
  end

  if nomer_materiala == 45 then      -- (ВИАМ) 18ХНВА (18Х2Н4ВА) (29)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.068230276664543,1241.47)
     mi_addbhpoint(Name_mat,0.153518124694337,2374.987)
     mi_addbhpoint(Name_mat,0.402558635965051,3778.388)
     mi_addbhpoint(Name_mat,0.593603411631082,5127.812)
     mi_addbhpoint(Name_mat,0.798294242881348,8258.476)
     mi_addbhpoint(Name_mat,0.951812367575685,12198.795)
     mi_addbhpoint(Name_mat,1.01663112971585,17326.606)
     mi_addbhpoint(Name_mat,1.0371002130922,19809.547)
     mi_addbhpoint(Name_mat,1.05074626867644,21212.948)
     mi_addbhpoint(Name_mat,1.05271963999554,22562.372)
     mi_addbhpoint(Name_mat,1.06780383752842,24451.566)
     return
  end

  if nomer_materiala == 46 then      -- (ВИАМ) 18ХНВА (18Х2Н4ВА) (30)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0826003826474536,1166.92)
     mi_addbhpoint(Name_mat,0.255566045318191,2236.597)
     mi_addbhpoint(Name_mat,0.333460802206059,2625.57)
     mi_addbhpoint(Name_mat,0.403824092105348,2965.922)
     mi_addbhpoint(Name_mat,0.501720840373848,3354.895)
     mi_addbhpoint(Name_mat,0.605736136901386,3792.49)
     mi_addbhpoint(Name_mat,0.862715105975666,5397.006)
     mi_addbhpoint(Name_mat,1.10745697978851,7779.468)
     mi_addbhpoint(Name_mat,1.27877623553715,10307.795)
     mi_addbhpoint(Name_mat,1.40726551147254,13711.312)
     mi_addbhpoint(Name_mat,1.54493258843365,19497.291)
     return
  end

  if nomer_materiala == 47 then      -- (ВИАМ) 18ХВА (18Х2Н4ВА) (31)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.149435941713653,1610.3)
     mi_addbhpoint(Name_mat,0.265048343326902,2263)
     mi_addbhpoint(Name_mat,0.744360901993541,3220.311)
     mi_addbhpoint(Name_mat,0.915789473856789,4079.061)
     mi_addbhpoint(Name_mat,1.05563909817234,5295.623)
     mi_addbhpoint(Name_mat,1.20451127857104,6941.56)
     mi_addbhpoint(Name_mat,1.35789529998474,10018.746)
     mi_addbhpoint(Name_mat,1.49323361861269,13811.558)
     mi_addbhpoint(Name_mat,1.60601537864337,19393.431)
     mi_addbhpoint(Name_mat,1.66917301110163,26549.678)
     mi_addbhpoint(Name_mat,1.68721753013526,36139.05)
     return
  end

  if nomer_materiala == 48 then      -- (ВИАМ) 18ХНВА (18Х2Н4ВА) (32)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.157029177734401,883.355234)
     mi_addbhpoint(Name_mat,0.40742705528603,1902.611)
     mi_addbhpoint(Name_mat,0.598408487647706,2514.165)
     mi_addbhpoint(Name_mat,0.729973474525376,2921.867)
     mi_addbhpoint(Name_mat,0.810861383813866,3325.7)
     mi_addbhpoint(Name_mat,1.05251989502136,4484.727)
     mi_addbhpoint(Name_mat,1.22228116711473,5775.784)
     mi_addbhpoint(Name_mat,1.37506661836687,7882.247)
     mi_addbhpoint(Name_mat,1.49389977448531,11415.668)
     mi_addbhpoint(Name_mat,1.54482703594704,16036.295)
     mi_addbhpoint(Name_mat,1.57453626965356,34043.152)
     return
  end

  if nomer_materiala == 49 then      -- (ВИАМ) 25Х2ГНТА (ЭИ519) (33)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0645048139898418,500)
     mi_addbhpoint(Name_mat,0.126656847989853,927.116173)
     mi_addbhpoint(Name_mat,0.374079528047848,1668.809)
     mi_addbhpoint(Name_mat,0.765832105674153,2086.011)
     mi_addbhpoint(Name_mat,0.963181147990525,2317.79)
     mi_addbhpoint(Name_mat,1.19882179772689,2781.349)
     mi_addbhpoint(Name_mat,1.36377072667151,3291.262)
     mi_addbhpoint(Name_mat,1.49631771258081,4040.802)
     mi_addbhpoint(Name_mat,1.65832159696142,5248.397)
     mi_addbhpoint(Name_mat,1.8026507642062,6966.899)
     mi_addbhpoint(Name_mat,2.04712874800606,12215.297)
     return
  end

  if nomer_materiala == 50 then      -- (ВИАМ) 20Х3МВФ (ЭИ415) (34)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.163440860534486,824.79529)
     mi_addbhpoint(Name_mat,0.260931899393377,1191.371)
     mi_addbhpoint(Name_mat,0.349820789205785,1466.303)
     mi_addbhpoint(Name_mat,0.438709677761557,1649.591)
     mi_addbhpoint(Name_mat,0.524731181923722,1832.878)
     mi_addbhpoint(Name_mat,0.642293906875732,2336.92)
     mi_addbhpoint(Name_mat,0.79426523324128,3253.359)
     mi_addbhpoint(Name_mat,0.943369176469859,5040.416)
     mi_addbhpoint(Name_mat,1.08387096777426,7973.021)
     mi_addbhpoint(Name_mat,1.20430107586324,12096.998)
     mi_addbhpoint(Name_mat,1.35053729037965,18420.428)
     return
  end

  if nomer_materiala == 51 then      -- (ВИАМ) 20ХЗМВФ (9И415) (35)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0647887325569995,447.903217)
     mi_addbhpoint(Name_mat,0.340845070499177,1164.548)
     mi_addbhpoint(Name_mat,0.678873239485415,1433.29)
     mi_addbhpoint(Name_mat,1.19154929599065,1791.613)
     mi_addbhpoint(Name_mat,1.40281627988586,2194.726)
     mi_addbhpoint(Name_mat,1.56056399737137,2911.371)
     mi_addbhpoint(Name_mat,1.6901405672144,4031.129)
     mi_addbhpoint(Name_mat,1.79718366790953,5912.322)
     mi_addbhpoint(Name_mat,1.87605641264353,8062.258)
     mi_addbhpoint(Name_mat,1.95774611166922,11779.855)
     mi_addbhpoint(Name_mat,2.01690148954708,16617.209)
     return
  end

  if nomer_materiala == 52 then      -- (ВИАМ) 38ХА (36)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.139923954028278,482.287706)
     mi_addbhpoint(Name_mat,0.346768061313409,771.66033)
     mi_addbhpoint(Name_mat,0.471482890284646,868.117871)
     mi_addbhpoint(Name_mat,0.605323193396639,1061.033)
     mi_addbhpoint(Name_mat,0.711787072371055,1350.406)
     mi_addbhpoint(Name_mat,0.979467680784102,2170.295)
     mi_addbhpoint(Name_mat,1.20456273785871,3858.302)
     mi_addbhpoint(Name_mat,1.37794662944967,7186.087)
     mi_addbhpoint(Name_mat,1.46920119130892,10996.16)
     mi_addbhpoint(Name_mat,1.53916318798566,14999.148)
     mi_addbhpoint(Name_mat,1.615209370181,22088.777)
     return
  end

  if nomer_materiala == 53 then      -- (ВИАМ) 38ХА (37)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.159798995284666,574.106007)
     mi_addbhpoint(Name_mat,0.277386935290144,717.632509)
     mi_addbhpoint(Name_mat,1.00100502504317,1052.528)
     mi_addbhpoint(Name_mat,1.2512562809898,1483.107)
     mi_addbhpoint(Name_mat,1.38994998644778,2105.055)
     mi_addbhpoint(Name_mat,1.4502513042283,2631.319)
     mi_addbhpoint(Name_mat,1.51055268861059,3444.636)
     mi_addbhpoint(Name_mat,1.55577925625567,4305.795)
     mi_addbhpoint(Name_mat,1.65226094574172,8037.484)
     mi_addbhpoint(Name_mat,1.71256333040711,14065.597)
     mi_addbhpoint(Name_mat,1.7427141702531,23681.873)
     return
  end

  if nomer_materiala == 54 then      -- (ВИАМ) 38ХА (38)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.163907285120212,709.106182)
     mi_addbhpoint(Name_mat,0.39933774825634,1134.57)
     mi_addbhpoint(Name_mat,0.852612579665656,1700)
     mi_addbhpoint(Name_mat,1.05496688782236,1938.224)
     mi_addbhpoint(Name_mat,1.18013245046485,2174.592)
     mi_addbhpoint(Name_mat,1.31423898077265,2789.151)
     mi_addbhpoint(Name_mat,1.37682100182847,3167.341)
     mi_addbhpoint(Name_mat,1.49602653469404,4160.09)
     mi_addbhpoint(Name_mat,1.59139081873517,5625.576)
     mi_addbhpoint(Name_mat,1.70463596745215,9360.202)
     mi_addbhpoint(Name_mat,1.78509926661742,14654.861)
     return
  end

  if nomer_materiala == 55 then      -- (ВИАМ) 25ХГСА (39)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.160377358987415,549.384218)
     mi_addbhpoint(Name_mat,0.996855346829278,1648.153)
     mi_addbhpoint(Name_mat,1.15094339664335,2047.705)
     mi_addbhpoint(Name_mat,1.248427672646,2497.201)
     mi_addbhpoint(Name_mat,1.30490939181291,2699.9)
     mi_addbhpoint(Name_mat,1.38615613004438,3289)
     mi_addbhpoint(Name_mat,1.46540834147181,4544.906)
     mi_addbhpoint(Name_mat,1.52515680931699,6043.226)
     mi_addbhpoint(Name_mat,1.59119494797305,8290.707)
     mi_addbhpoint(Name_mat,1.66037717370717,12336.173)
     mi_addbhpoint(Name_mat,1.6949683632291,16980.967)
     return
  end

  if nomer_materiala == 56 then      -- (ВИАМ) 25ХГСА (40)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.110014104867543,1393.73)
     mi_addbhpoint(Name_mat,0.194640338511057,1933.238)
     mi_addbhpoint(Name_mat,0.851904090203712,3192.091)
     mi_addbhpoint(Name_mat,0.998589562522678,3506.804)
     mi_addbhpoint(Name_mat,1.2609308884512,5215.247)
     mi_addbhpoint(Name_mat,1.33427414988498,5889.632)
     mi_addbhpoint(Name_mat,1.40761689609756,6653.935)
     mi_addbhpoint(Name_mat,1.47249603839188,7553.116)
     mi_addbhpoint(Name_mat,1.59661553361881,9576.272)
     mi_addbhpoint(Name_mat,1.78561366597196,16230.207)
     mi_addbhpoint(Name_mat,1.90973164946449,23963.16)
     return
  end

  if nomer_materiala == 57 then      -- (ВИАМ) 25ХГСА (41)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.103448275894409,683.394317)
     mi_addbhpoint(Name_mat,0.910919540288152,1230.11)
     mi_addbhpoint(Name_mat,1.2011494250867,1685.706)
     mi_addbhpoint(Name_mat,1.26724175118948,1867.944)
     mi_addbhpoint(Name_mat,1.3247125379715,2095.743)
     mi_addbhpoint(Name_mat,1.48850622035938,3143.614)
     mi_addbhpoint(Name_mat,1.57758558996092,4373.724)
     mi_addbhpoint(Name_mat,1.65229842619871,5968.31)
     mi_addbhpoint(Name_mat,1.7097706530868,7836.255)
     mi_addbhpoint(Name_mat,1.81034527482695,14897.996)
     mi_addbhpoint(Name_mat,1.86781595479482,20410.71)
     return
  end

  if nomer_materiala == 58 then      -- (ВИАМ) 30ХГСА (42)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0326777603473391,387.832443)
     mi_addbhpoint(Name_mat,1.00484114969077,1249.682)
     mi_addbhpoint(Name_mat,1.09470499257081,1422.052)
     mi_addbhpoint(Name_mat,1.13827534021497,1637.515)
     mi_addbhpoint(Name_mat,1.20363086230955,1896.07)
     mi_addbhpoint(Name_mat,1.29077132009348,2413.18)
     mi_addbhpoint(Name_mat,1.36157290363695,2930.29)
     mi_addbhpoint(Name_mat,1.52768490924384,5602.024)
     mi_addbhpoint(Name_mat,1.63933384489287,9049.424)
     mi_addbhpoint(Name_mat,1.71013648903803,12755.378)
     mi_addbhpoint(Name_mat,1.79727703604319,19391.622)
     return
  end

  if nomer_materiala == 59 then      -- (ВИАМ) 30ХГСА (43)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.123876404216065,666.85032)
     mi_addbhpoint(Name_mat,0.851966292481615,1467.071)
     mi_addbhpoint(Name_mat,1.17050561908788,2489.575)
     mi_addbhpoint(Name_mat,1.24634831404386,2978.598)
     mi_addbhpoint(Name_mat,1.31713522006646,3689.905)
     mi_addbhpoint(Name_mat,1.3904499985646,4667.952)
     mi_addbhpoint(Name_mat,1.46882004072183,6312.85)
     mi_addbhpoint(Name_mat,1.51179804735437,8046.661)
     mi_addbhpoint(Name_mat,1.63567381405332,16048.864)
     mi_addbhpoint(Name_mat,1.67359594378788,20183.336)
     mi_addbhpoint(Name_mat,1.70304481109174,30000)
     return
  end

  if nomer_materiala == 60 then      -- (ВИАМ) 12Х2НВФА (ЭИ712) (44)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.140520446081575,1356.916)
     mi_addbhpoint(Name_mat,0.182156134367954,1611.338)
     mi_addbhpoint(Name_mat,0.255018587612481,2204.989)
     mi_addbhpoint(Name_mat,0.484014870674293,3646.712)
     mi_addbhpoint(Name_mat,0.853531598561043,5851.7)
     mi_addbhpoint(Name_mat,1.07211895955126,8311.111)
     mi_addbhpoint(Name_mat,1.19182156148965,10855.328)
     mi_addbhpoint(Name_mat,1.31152377889709,14756.462)
     mi_addbhpoint(Name_mat,1.44163592242914,23576.416)
     mi_addbhpoint(Name_mat,1.47286219101565,31463.491)
     mi_addbhpoint(Name_mat,1.49368024878714,41809.975)
     return
  end

  if nomer_materiala == 61 then      -- (ВИАМ) 12Х2НВФА (ЭИ712) (45)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0871060171319914,1081.216)
     mi_addbhpoint(Name_mat,0.201719197502683,1802.026)
     mi_addbhpoint(Name_mat,0.802292263851481,4901.511)
     mi_addbhpoint(Name_mat,1.00859598877005,6271.051)
     mi_addbhpoint(Name_mat,1.14613180622019,7640.591)
     mi_addbhpoint(Name_mat,1.22406876726377,8865.968)
     mi_addbhpoint(Name_mat,1.34326703048393,12397.939)
     mi_addbhpoint(Name_mat,1.42578800623548,16939.045)
     mi_addbhpoint(Name_mat,1.48997090876594,25949.176)
     mi_addbhpoint(Name_mat,1.54040110366812,39356.25)
     mi_addbhpoint(Name_mat,1.57033137103728,60000)
     return
  end

  if nomer_materiala == 62 then      -- (ВИАМ) 30Х2Н2ВА (46)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.09356725157431,1138.025)
     mi_addbhpoint(Name_mat,0.191812864910521,1744.972)
     mi_addbhpoint(Name_mat,0.912280701907045,4096.891)
     mi_addbhpoint(Name_mat,1.00584795348135,4476.233)
     mi_addbhpoint(Name_mat,1.1087719298361,4931.443)
     mi_addbhpoint(Name_mat,1.24912280656925,6069.468)
     mi_addbhpoint(Name_mat,1.37075986931677,8042.045)
     mi_addbhpoint(Name_mat,1.43625684978871,9862.886)
     mi_addbhpoint(Name_mat,1.48771957309876,12897.62)
     mi_addbhpoint(Name_mat,1.54853765396814,22988.111)
     mi_addbhpoint(Name_mat,1.58596469508988,30195.604)
     return
  end

  if nomer_materiala == 63 then      -- (ВИАМ) 40ХНМА (47)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0938666667170186,1007.782)
     mi_addbhpoint(Name_mat,0.187733333434037,1410.895)
     mi_addbhpoint(Name_mat,0.793599999740265,3090.532)
     mi_addbhpoint(Name_mat,1.09226666679562,4367.056)
     mi_addbhpoint(Name_mat,1.18613333351264,4904.54)
     mi_addbhpoint(Name_mat,1.24586666767769,5374.839)
     mi_addbhpoint(Name_mat,1.30986679863076,6113.879)
     mi_addbhpoint(Name_mat,1.45919988208766,8465.371)
     mi_addbhpoint(Name_mat,1.56159981062852,11824.645)
     mi_addbhpoint(Name_mat,1.6383997312731,18140.08)
     mi_addbhpoint(Name_mat,1.71093351109422,33189.628)
     return
  end

  if nomer_materiala == 64 then      -- (ВИАМ) 30ХГСНА (48)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0842433694244432,893.385335)
     mi_addbhpoint(Name_mat,1.19500779994466,3275.746)
     mi_addbhpoint(Name_mat,1.32293309088371,3821.704)
     mi_addbhpoint(Name_mat,1.40405616723187,4268.397)
     mi_addbhpoint(Name_mat,1.48517998373926,5310.679)
     mi_addbhpoint(Name_mat,1.59126320347167,6750.023)
     mi_addbhpoint(Name_mat,1.63806495436348,7742.673)
     mi_addbhpoint(Name_mat,1.70358828902787,8983.486)
     mi_addbhpoint(Name_mat,1.86271409629013,13400.78)
     mi_addbhpoint(Name_mat,1.89703638935702,14641.593)
     mi_addbhpoint(Name_mat,2.01248087912612,18314.399)
     return
  end

  if nomer_materiala == 65 then      -- (ВИАМ) 30Х2ГСН2ВМ (ВЛ1) (49)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.066393442985913,638.943202)
     mi_addbhpoint(Name_mat,0.118032787230595,987.457676)
     mi_addbhpoint(Name_mat,0.793032786443312,3194.716)
     mi_addbhpoint(Name_mat,0.89631147499802,3543.23)
     mi_addbhpoint(Name_mat,1.11393442610556,4588.774)
     mi_addbhpoint(Name_mat,1.26147541065274,5750.489)
     mi_addbhpoint(Name_mat,1.37581911023216,7493.061)
     mi_addbhpoint(Name_mat,1.48647498216023,10978.206)
     mi_addbhpoint(Name_mat,1.54918060101087,16089.752)
     mi_addbhpoint(Name_mat,1.59713161309709,23001.955)
     mi_addbhpoint(Name_mat,1.64877021156035,31598.646)
     return
  end

  if nomer_materiala == 66 then      -- (ВИАМ) 30Х2ГСН2ВМ (ВЛ1) (50)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0732057414801105,753.171098)
     mi_addbhpoint(Name_mat,1.21004784679102,4587.497)
     mi_addbhpoint(Name_mat,1.29186594773501,5135.257)
     mi_addbhpoint(Name_mat,1.38660321512144,6230.779)
     mi_addbhpoint(Name_mat,1.45550231675572,8147.942)
     mi_addbhpoint(Name_mat,1.48133950484424,9106.523)
     mi_addbhpoint(Name_mat,1.53732118299168,11845.327)
     mi_addbhpoint(Name_mat,1.61483205233694,18281.517)
     mi_addbhpoint(Name_mat,1.66650682812456,25196.997)
     mi_addbhpoint(Name_mat,1.70526374060237,32591.768)
     mi_addbhpoint(Name_mat,1.7384694098526,50000)
     return
  end

  if nomer_materiala == 67 then      -- (ВИАМ) 30Х2ГСН2ВМ (ВЛ1) (51)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0901515147494062,1470.453)
     mi_addbhpoint(Name_mat,0.201515151059839,2767.912)
     mi_addbhpoint(Name_mat,0.29696969682782,3805.879)
     mi_addbhpoint(Name_mat,0.392424242595801,4584.354)
     mi_addbhpoint(Name_mat,0.59393939365564,5795.316)
     mi_addbhpoint(Name_mat,0.758333333868638,7092.775)
     mi_addbhpoint(Name_mat,0.943939393129388,9428.2)
     mi_addbhpoint(Name_mat,1.10833333334239,13926.058)
     mi_addbhpoint(Name_mat,1.24090908995721,21105.329)
     mi_addbhpoint(Name_mat,1.3522733420198,33560.934)
     mi_addbhpoint(Name_mat,1.44772685734539,49476.428)
     return
  end

  if nomer_materiala == 68 then      -- (ВИАМ) 30Х2ГСН2ВМ(ВЛ1) (52)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0934306563823729,1530.336)
     mi_addbhpoint(Name_mat,0.167396592789805,2264.897)
     mi_addbhpoint(Name_mat,0.229683697463599,2815.818)
     mi_addbhpoint(Name_mat,0.801946471261385,6304.984)
     mi_addbhpoint(Name_mat,0.887591240659091,7345.613)
     mi_addbhpoint(Name_mat,0.981021897041464,8508.668)
     mi_addbhpoint(Name_mat,1.06666666643917,9794.15)
     mi_addbhpoint(Name_mat,1.19513382053573,13773.024)
     mi_addbhpoint(Name_mat,1.28856456362606,18670.099)
     mi_addbhpoint(Name_mat,1.35474498250012,24607.803)
     mi_addbhpoint(Name_mat,1.40924548013621,31524.921)
     return
  end

  if nomer_materiala == 69 then      -- (ВИАМ) 42Х2ГСНМА (ВКС-1) (53)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0679104474100463,588.424966)
     mi_addbhpoint(Name_mat,0.104477612163913,840.607094)
     mi_addbhpoint(Name_mat,0.710447761157386,1597.153)
     mi_addbhpoint(Name_mat,0.903731343819087,2605.882)
     mi_addbhpoint(Name_mat,1.03955223872463,4791.46)
     mi_addbhpoint(Name_mat,1.11791044838729,7313.282)
     mi_addbhpoint(Name_mat,1.18582089584006,10759.771)
     mi_addbhpoint(Name_mat,1.25895522376946,17232.445)
     mi_addbhpoint(Name_mat,1.3007462009807,23452.938)
     mi_addbhpoint(Name_mat,1.32686583207178,30850.28)
     mi_addbhpoint(Name_mat,1.38432802471293,47410.24)
     return
  end

  if nomer_materiala == 70 then      -- (ВИАМ) 42Х2ГСНМА (ВКС-1) (54)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.117518248018637,408.788381)
     mi_addbhpoint(Name_mat,0.756204380123264,899.334439)
     mi_addbhpoint(Name_mat,0.878832117173022,1471.638)
     mi_addbhpoint(Name_mat,1.06277372294684,3842.611)
     mi_addbhpoint(Name_mat,1.19562043815811,10383.225)
     mi_addbhpoint(Name_mat,1.24160583991572,14389.351)
     mi_addbhpoint(Name_mat,1.29270079456675,25099.607)
     mi_addbhpoint(Name_mat,1.3029194668138,27879.368)
     mi_addbhpoint(Name_mat,1.31313870957407,30168.583)
     mi_addbhpoint(Name_mat,1.32335799380337,35482.831)
     mi_addbhpoint(Name_mat,1.35401409222592,47174.179)
     return
  end

  if nomer_materiala == 71 then      -- (ВИАМ) 42Х2ГСНМА (ВКС-1) (55)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0561702126624035,1335.566)
     mi_addbhpoint(Name_mat,0.112340425324807,2337.24)
     mi_addbhpoint(Name_mat,0.653617021099762,4924.899)
     mi_addbhpoint(Name_mat,0.817021276688861,7345.613)
     mi_addbhpoint(Name_mat,0.89872340511173,9933.272)
     mi_addbhpoint(Name_mat,1.00085106312704,15609.427)
     mi_addbhpoint(Name_mat,1.04170212733848,19365.706)
     mi_addbhpoint(Name_mat,1.09787234125752,24958.389)
     mi_addbhpoint(Name_mat,1.14893617026517,31302.327)
     mi_addbhpoint(Name_mat,1.22553191503329,46410.917)
     mi_addbhpoint(Name_mat,1.30657581822004,100000)
     return
  end

  if nomer_materiala == 72 then      -- (ВИАМ) 42Х2ГСНМА (ВКС-1) (56)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0254545446165945,1317.144)
     mi_addbhpoint(Name_mat,0.1119999998316,1811.073)
     mi_addbhpoint(Name_mat,0.162909091578063,2469.646)
     mi_addbhpoint(Name_mat,0.636363635521055,4610.005)
     mi_addbhpoint(Name_mat,0.758545454204602,6174.114)
     mi_addbhpoint(Name_mat,0.906181818761381,8479.117)
     mi_addbhpoint(Name_mat,0.962181817420544,10619.476)
     mi_addbhpoint(Name_mat,1.10472727380799,18522.343)
     mi_addbhpoint(Name_mat,1.18109090891441,25437.35)
     mi_addbhpoint(Name_mat,1.21672727238295,33093.252)
     mi_addbhpoint(Name_mat,1.23977299203601,43000)
     return
  end

  if nomer_materiala == 73 then      -- (ВИАМ) 32Х2НГСМ (КВК-32) (57)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0575280894546376,854.141018)
     mi_addbhpoint(Name_mat,0.107865168784591,1309.683)
     mi_addbhpoint(Name_mat,0.607640449730779,4099.877)
     mi_addbhpoint(Name_mat,0.995955055596016,6776.185)
     mi_addbhpoint(Name_mat,1.20449438182912,9167.78)
     mi_addbhpoint(Name_mat,1.38786566161598,12527.402)
     mi_addbhpoint(Name_mat,1.47415716179061,14918.996)
     mi_addbhpoint(Name_mat,1.51730346982478,16171.737)
     mi_addbhpoint(Name_mat,1.54247164570464,16968.935)
     mi_addbhpoint(Name_mat,1.5568541056865,17766.133)
     mi_addbhpoint(Name_mat,1.64402056831778,27000)
     return
  end

  if nomer_materiala == 74 then      -- (ВИАМ) 37Х2НГСМ (КВК-37) (58)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.110803324029425,987.663654)
     mi_addbhpoint(Name_mat,0.678116344363866,2751.349)
     mi_addbhpoint(Name_mat,0.802216066406626,3456.823)
     mi_addbhpoint(Name_mat,0.930747922232203,4091.749)
     mi_addbhpoint(Name_mat,1.08587257572813,5432.15)
     mi_addbhpoint(Name_mat,1.21883656533652,7195.835)
     mi_addbhpoint(Name_mat,1.31191128052789,10158.826)
     mi_addbhpoint(Name_mat,1.42271517676198,14532.765)
     mi_addbhpoint(Name_mat,1.4759000269169,17001.924)
     mi_addbhpoint(Name_mat,1.54238228875647,33227.827)
     mi_addbhpoint(Name_mat,1.5734065981743,39718.188)
     return
  end

  if nomer_materiala == 75 then      -- (ВИАМ) 37Х2НГСМ (КВК-37) (59)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0847352029262941,1053.665)
     mi_addbhpoint(Name_mat,0.194392523399364,1296.818)
     mi_addbhpoint(Name_mat,0.657943925351694,3079.943)
     mi_addbhpoint(Name_mat,0.792523364628176,3728.352)
     mi_addbhpoint(Name_mat,0.966978192482155,5106.221)
     mi_addbhpoint(Name_mat,1.09158878524258,6403.039)
     mi_addbhpoint(Name_mat,1.20124610697229,7943.011)
     mi_addbhpoint(Name_mat,1.38566958153703,15561.817)
     mi_addbhpoint(Name_mat,1.43052919608054,18965.964)
     mi_addbhpoint(Name_mat,1.4903432189113,32420.451)
     mi_addbhpoint(Name_mat,1.50481031465589,42000)
     return
  end

  if nomer_materiala == 76 then      -- (ВИАМ) 37Х2НГСМ (КВК-37) (60)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0677966099580169,1069.59)
     mi_addbhpoint(Name_mat,0.375141243108106,3565.299)
     mi_addbhpoint(Name_mat,0.691525423331064,5704.478)
     mi_addbhpoint(Name_mat,0.912994351120762,7701.046)
     mi_addbhpoint(Name_mat,1.00790960481066,9840.225)
     mi_addbhpoint(Name_mat,1.1615819213857,13904.666)
     mi_addbhpoint(Name_mat,1.2564971750756,20250.898)
     mi_addbhpoint(Name_mat,1.30621427619765,26169.294)
     mi_addbhpoint(Name_mat,1.33333326424808,29805.899)
     mi_addbhpoint(Name_mat,1.35593207223999,35296.459)
     mi_addbhpoint(Name_mat,1.3865230680663,50000)
     return
  end

  if nomer_materiala == 77 then      -- (ВИАМ) 42Х2НГСМ (КВК-42) (61)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0651911464271184,1319.122)
     mi_addbhpoint(Name_mat,0.16659959712299,2122.066)
     mi_addbhpoint(Name_mat,0.405633802783486,3727.954)
     mi_addbhpoint(Name_mat,0.608450704175229,4530.897)
     mi_addbhpoint(Name_mat,0.822132797475916,5448.548)
     mi_addbhpoint(Name_mat,1.07927565464247,7570.614)
     mi_addbhpoint(Name_mat,1.27122702734654,9635.326)
     mi_addbhpoint(Name_mat,1.41247452593272,13076.514)
     mi_addbhpoint(Name_mat,1.528370044106,18066.237)
     mi_addbhpoint(Name_mat,1.61529120992626,23858.903)
     mi_addbhpoint(Name_mat,1.69398445787904,50000)
     return
  end

  if nomer_materiala == 78 then      -- (ВИАМ) 42Х2НГСМ (КВК-42) (62)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0644549757639867,1479.135)
     mi_addbhpoint(Name_mat,0.151658766799177,2248.285)
     mi_addbhpoint(Name_mat,0.208530804977187,2780.774)
     mi_addbhpoint(Name_mat,0.59146919453803,5206.556)
     mi_addbhpoint(Name_mat,0.750710901436459,6212.368)
     mi_addbhpoint(Name_mat,0.894786730649659,7514.007)
     mi_addbhpoint(Name_mat,1.00341802581165,8993.142)
     mi_addbhpoint(Name_mat,1.09952606683386,10590.608)
     mi_addbhpoint(Name_mat,1.21706161198287,15087.179)
     mi_addbhpoint(Name_mat,1.31563998532621,21832.035)
     mi_addbhpoint(Name_mat,1.36027191985366,31000)
     return
  end

  if nomer_materiala == 79 then      -- (ВИАМ) СП-28 (63)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0463235289596526,249.546078)
     mi_addbhpoint(Name_mat,0.561029411367336,665.456208)
     mi_addbhpoint(Name_mat,0.988235294110157,1663.641)
     mi_addbhpoint(Name_mat,1.091176471313,2329.097)
     mi_addbhpoint(Name_mat,1.15294117688073,3660.009)
     mi_addbhpoint(Name_mat,1.26102941256673,8401.385)
     mi_addbhpoint(Name_mat,1.31249975612392,11479.12)
     mi_addbhpoint(Name_mat,1.38455831225089,17135.497)
     mi_addbhpoint(Name_mat,1.40514729136928,19963.686)
     mi_addbhpoint(Name_mat,1.42573490075326,23207.785)
     mi_addbhpoint(Name_mat,1.48235310327142,47580.119)
     return
  end

  if nomer_materiala == 80 then      -- (ВИАМ) СП-28 (64)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0471910118144976,1356.916)
     mi_addbhpoint(Name_mat,0.131086142812149,2204.989)
     mi_addbhpoint(Name_mat,0.204494382435095,2883.447)
     mi_addbhpoint(Name_mat,0.587265916983562,4494.784)
     mi_addbhpoint(Name_mat,0.697378277046298,5597.279)
     mi_addbhpoint(Name_mat,0.838951311233154,7123.809)
     mi_addbhpoint(Name_mat,0.991011235538079,10176.87)
     mi_addbhpoint(Name_mat,1.11161048697552,15858.956)
     mi_addbhpoint(Name_mat,1.23220973841297,25442.176)
     mi_addbhpoint(Name_mat,1.2846441952865,34940.588)
     mi_addbhpoint(Name_mat,1.32134863239883,47152.832)
     return
  end

  if nomer_materiala == 81 then      -- (ВИАМ) ВКС-210 (65)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0527472522415645,955.475645)
     mi_addbhpoint(Name_mat,0.128937729490216,1624.309)
     mi_addbhpoint(Name_mat,0.586080586535574,4204.093)
     mi_addbhpoint(Name_mat,0.802930403000816,6306.139)
     mi_addbhpoint(Name_mat,0.984615385178703,9459.209)
     mi_addbhpoint(Name_mat,1.19560439592939,13854.397)
     mi_addbhpoint(Name_mat,1.34212513946588,19587.251)
     mi_addbhpoint(Name_mat,1.41245372733272,23026.963)
     mi_addbhpoint(Name_mat,1.49450566078782,28759.817)
     mi_addbhpoint(Name_mat,1.58241735066554,36594.717)
     mi_addbhpoint(Name_mat,1.67619064673562,55513.135)
     return
  end

  if nomer_materiala == 82 then      -- (ВИАМ) ВКС-210 (66)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0660944209167639,1065.646)
     mi_addbhpoint(Name_mat,0.162231760432057,1840.662)
     mi_addbhpoint(Name_mat,0.62489270433613,2809.431)
     mi_addbhpoint(Name_mat,0.799141630950962,4165.708)
     mi_addbhpoint(Name_mat,0.997424893701253,7847.031)
     mi_addbhpoint(Name_mat,1.17768240403579,16565.954)
     mi_addbhpoint(Name_mat,1.21373390509739,21216.046)
     mi_addbhpoint(Name_mat,1.26180257485504,33422.538)
     mi_addbhpoint(Name_mat,1.29184549345356,41269.569)
     mi_addbhpoint(Name_mat,1.30386266089298,46985.307)
     mi_addbhpoint(Name_mat,1.31587982833239,55122.969)
     return
  end

  if nomer_materiala == 83 then      -- (ВИАМ) ВКС-210 (67)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.059701492611776,871.892297)
     mi_addbhpoint(Name_mat,0.185074627447484,1743.785)
     mi_addbhpoint(Name_mat,0.352238805212783,2131.292)
     mi_addbhpoint(Name_mat,0.704477611682203,2712.554)
     mi_addbhpoint(Name_mat,1.00298507413161,3487.569)
     mi_addbhpoint(Name_mat,1.23582089612392,5328.231)
     mi_addbhpoint(Name_mat,1.33134320604544,6878.261)
     mi_addbhpoint(Name_mat,1.56417966892265,12884.631)
     mi_addbhpoint(Name_mat,1.70746281776071,18309.738)
     mi_addbhpoint(Name_mat,1.86268690015085,32163.138)
     mi_addbhpoint(Name_mat,1.94626923282108,55219.845)
     return
  end

  if nomer_materiala == 84 then      -- (ВИАМ) ВНС-17 (68)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0559999999157998,1164.548)
     mi_addbhpoint(Name_mat,0.402181818262546,2828.189)
     mi_addbhpoint(Name_mat,0.570181818009945,4491.829)
     mi_addbhpoint(Name_mat,0.728000000162034,6904.108)
     mi_addbhpoint(Name_mat,0.845090909419608,9482.751)
     mi_addbhpoint(Name_mat,0.962181817420544,13225.942)
     mi_addbhpoint(Name_mat,1.07927272667812,20213.232)
     mi_addbhpoint(Name_mat,1.15563636304117,29446.437)
     mi_addbhpoint(Name_mat,1.22690908997826,39095.552)
     mi_addbhpoint(Name_mat,1.25236363710813,46914.663)
     mi_addbhpoint(Name_mat,1.33913528448091,80000)
     return
  end

  if nomer_materiala == 85 then      -- (ВИАМ) ВНС-17 (69)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0658227851374479,981.092115)
     mi_addbhpoint(Name_mat,0.146835443155784,1553.396)
     mi_addbhpoint(Name_mat,0.612658227906328,4006.126)
     mi_addbhpoint(Name_mat,0.724050633665644,5396.007)
     mi_addbhpoint(Name_mat,0.830379747111685,7439.949)
     mi_addbhpoint(Name_mat,0.916455696331173,10056.194)
     mi_addbhpoint(Name_mat,1.0075949366073,14634.624)
     mi_addbhpoint(Name_mat,1.11898734236661,25344.88)
     mi_addbhpoint(Name_mat,1.17333459059979,35000)
     mi_addbhpoint(Name_mat,1.23544303792593,47419.452)
     mi_addbhpoint(Name_mat,1.29510272184945,80000)
     return
  end

  if nomer_materiala == 86 then      -- (ВИАМ) ВНЛ-1 (СН-2АЛ) (70)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0092664090182,2273.642)
     mi_addbhpoint(Name_mat,0.0463320463476371,4722.18)
     mi_addbhpoint(Name_mat,0.101930501713474,7170.717)
     mi_addbhpoint(Name_mat,0.129729730024711,9619.255)
     mi_addbhpoint(Name_mat,0.148262548061111,11543.106)
     mi_addbhpoint(Name_mat,0.166795367354148,14166.539)
     mi_addbhpoint(Name_mat,0.194594594408748,17926.793)
     mi_addbhpoint(Name_mat,0.203861004683585,20025.54)
     mi_addbhpoint(Name_mat,0.254826254283685,33405.048)
     mi_addbhpoint(Name_mat,0.282625482594922,44423.468)
     mi_addbhpoint(Name_mat,0.33608758207143,80000)
     return
  end

  if nomer_materiala == 87 then      -- (ВИАМ) ВНЛ-1 (СН-2АЛ) (71)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0444444455345228,1280.223)
     mi_addbhpoint(Name_mat,0.0851851845517884,2327.677)
     mi_addbhpoint(Name_mat,0.318518519209804,4946.315)
     mi_addbhpoint(Name_mat,0.396296295753626,6284.729)
     mi_addbhpoint(Name_mat,0.470370370806739,8205.063)
     mi_addbhpoint(Name_mat,0.603703703640397,13966.064)
     mi_addbhpoint(Name_mat,0.633333333158987,16002.782)
     mi_addbhpoint(Name_mat,0.681481481440856,19610.682)
     mi_addbhpoint(Name_mat,0.692592593452805,21938.36)
     mi_addbhpoint(Name_mat,0.717087372717296,31000)
     mi_addbhpoint(Name_mat,0.781163296478082,80000)
     return
  end

  if nomer_materiala == 88 then      -- (ВИАМ) ВНЛ-2 (72)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0341637016998279,4137.477)
     mi_addbhpoint(Name_mat,0.0811387893379763,7792.248)
     mi_addbhpoint(Name_mat,0.111032028639485,12136.599)
     mi_addbhpoint(Name_mat,0.136654804286037,16274.076)
     mi_addbhpoint(Name_mat,0.149466192737632,19721.973)
     mi_addbhpoint(Name_mat,0.16353421699399,24135.282)
     mi_addbhpoint(Name_mat,0.175929188596,28000)
     mi_addbhpoint(Name_mat,0.183629893180823,30479.413)
     mi_addbhpoint(Name_mat,0.192170817977461,32892.941)
     mi_addbhpoint(Name_mat,0.200406912782294,36478.754)
     mi_addbhpoint(Name_mat,0.323320149527606,100000)
     return
  end

  if nomer_materiala == 89 then      -- (ВИАМ) ВНЛ-2 (73)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0602352940693187,1665.921)
     mi_addbhpoint(Name_mat,0.139294117849459,2915.362)
     mi_addbhpoint(Name_mat,0.255999999794604,4164.802)
     mi_addbhpoint(Name_mat,0.478117647617695,8032.119)
     mi_addbhpoint(Name_mat,0.54588235281736,10590.497)
     mi_addbhpoint(Name_mat,0.602352940693187,12910.887)
     mi_addbhpoint(Name_mat,0.640000000114829,15171.78)
     mi_addbhpoint(Name_mat,0.67388235334298,17373.175)
     mi_addbhpoint(Name_mat,0.737882352349153,21894.96)
     mi_addbhpoint(Name_mat,0.833162938078814,31000)
     mi_addbhpoint(Name_mat,0.921441691642164,60000)
     return
  end

  if nomer_materiala == 90 then      -- (ВИАМ) ВНЛ-3 (74)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0408352670269353,1003.946)
     mi_addbhpoint(Name_mat,0.122505801080806,2303.17)
     mi_addbhpoint(Name_mat,0.222737819575721,3307.116)
     mi_addbhpoint(Name_mat,0.326682133702209,4488.228)
     mi_addbhpoint(Name_mat,0.400928075236298,5433.119)
     mi_addbhpoint(Name_mat,0.501160092474577,6968.565)
     mi_addbhpoint(Name_mat,0.601392110969492,8799.29)
     mi_addbhpoint(Name_mat,0.694199535687989,11929.239)
     mi_addbhpoint(Name_mat,0.842691414986258,20492.306)
     mi_addbhpoint(Name_mat,0.935498839704755,31771.933)
     mi_addbhpoint(Name_mat,1.0354689385936,100000)
     return
  end

  if nomer_materiala == 91 then      -- (ВИАМ) ВНЛ-3 (75)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0516129029974409,817.792198)
     mi_addbhpoint(Name_mat,0.186600496486015,2453.377)
     mi_addbhpoint(Name_mat,0.301736971945001,3585.704)
     mi_addbhpoint(Name_mat,0.404962779955528,4592.218)
     mi_addbhpoint(Name_mat,0.480397022627619,5535.824)
     mi_addbhpoint(Name_mat,0.591563275184906,7108.501)
     mi_addbhpoint(Name_mat,0.666997519113634,8806.993)
     mi_addbhpoint(Name_mat,0.750372207589122,11071.648)
     mi_addbhpoint(Name_mat,0.897270471288243,18305.964)
     mi_addbhpoint(Name_mat,1.04416873498736,31893.896)
     mi_addbhpoint(Name_mat,1.14513565494198,100000)
     return
  end

  if nomer_materiala == 92 then      -- (ВИАМ) ВНЛ-5 (76)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0360360368859202,1259.5)
     mi_addbhpoint(Name_mat,0.093693693138791,2633.499)
     mi_addbhpoint(Name_mat,0.169369369719578,4121.999)
     mi_addbhpoint(Name_mat,0.266666666923952,5553.248)
     mi_addbhpoint(Name_mat,0.381981981942967,8186.747)
     mi_addbhpoint(Name_mat,0.439639639452475,10133.246)
     mi_addbhpoint(Name_mat,0.493693694153037,12537.746)
     mi_addbhpoint(Name_mat,0.569369369477187,17461.244)
     mi_addbhpoint(Name_mat,0.630630629795641,23930.491)
     mi_addbhpoint(Name_mat,0.677477477621673,31716.489)
     mi_addbhpoint(Name_mat,0.786202411094296,100000)
     return
  end

  if nomer_materiala == 93 then      -- (ВИАМ) ВНЛ-5 (77)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0516129027486267,1063.001)
     mi_addbhpoint(Name_mat,0.117972349678277,1889.78)
     mi_addbhpoint(Name_mat,0.213824884969974,2480.337)
     mi_addbhpoint(Name_mat,0.383410138653515,3484.283)
     mi_addbhpoint(Name_mat,0.556682028696471,4960.674)
     mi_addbhpoint(Name_mat,0.700460829120743,6968.565)
     mi_addbhpoint(Name_mat,0.82580645151785,9271.735)
     mi_addbhpoint(Name_mat,0.903225806269108,11574.905)
     mi_addbhpoint(Name_mat,1.01382488448519,16889.912)
     mi_addbhpoint(Name_mat,1.06543778849046,21260.03)
     mi_addbhpoint(Name_mat,1.2013450306984,100000)
     return
  end

  if nomer_materiala == 94 then      -- (ВИАМ) ЭИ643 (78)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0733333331515027,898.455324)
     mi_addbhpoint(Name_mat,0.220000000746331,1638.36)
     mi_addbhpoint(Name_mat,0.420000000625135,2166.863)
     mi_addbhpoint(Name_mat,0.633333333158987,2589.665)
     mi_addbhpoint(Name_mat,0.833333333037792,2853.917)
     mi_addbhpoint(Name_mat,1.01333333330571,3382.42)
     mi_addbhpoint(Name_mat,1.24666666670708,4756.528)
     mi_addbhpoint(Name_mat,1.42333372493952,6711.99)
     mi_addbhpoint(Name_mat,1.6500004265709,11785.62)
     mi_addbhpoint(Name_mat,1.77666628317444,17969.106)
     mi_addbhpoint(Name_mat,1.84657789624484,50000)
     return
  end

  if nomer_materiala == 95 then      -- (ВИАМ) 1Х12Н2ВМФ (ЭИ961) (79)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0575999996295736,906.220317)
     mi_addbhpoint(Name_mat,0.18719999907226,1869.079)
     mi_addbhpoint(Name_mat,0.295199999986992,2492.106)
     mi_addbhpoint(Name_mat,0.514799999333671,3398.326)
     mi_addbhpoint(Name_mat,0.784800000363862,5267.406)
     mi_addbhpoint(Name_mat,0.874799999869502,6456.82)
     mi_addbhpoint(Name_mat,0.943200000448831,8099.344)
     mi_addbhpoint(Name_mat,1.03319999995447,10818.005)
     mi_addbhpoint(Name_mat,1.15919999976502,16425.243)
     mi_addbhpoint(Name_mat,1.28879992420784,24241.393)
     mi_addbhpoint(Name_mat,1.4338228870574,100000)
     return
  end

  if nomer_materiala == 96 then      -- (ВИАМ) 1Х12Н2ВМФ (ЭИ961) (80)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0561922368869221,648.981321)
     mi_addbhpoint(Name_mat,0.162661737652171,1251.607)
     mi_addbhpoint(Name_mat,0.363770795135884,1946.944)
     mi_addbhpoint(Name_mat,0.703881700564679,2781.349)
     mi_addbhpoint(Name_mat,0.919778189429483,3708.465)
     mi_addbhpoint(Name_mat,1.04695009252102,4867.36)
     mi_addbhpoint(Name_mat,1.17116451034165,6582.525)
     mi_addbhpoint(Name_mat,1.28650610164162,8993.027)
     mi_addbhpoint(Name_mat,1.35452868887247,11032.682)
     mi_addbhpoint(Name_mat,1.4284652652116,13489.54)
     mi_addbhpoint(Name_mat,1.55691048722153,50000)
     return
  end

  if nomer_materiala == 97 then      -- (ВИАМ) 1Х12Н2ВМФ (ЭИ961) (81)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0653979243842445,542.57367)
     mi_addbhpoint(Name_mat,0.15259515596624,887.847823)
     mi_addbhpoint(Name_mat,0.376816609231283,1233.122)
     mi_addbhpoint(Name_mat,0.766089965085878,1627.721)
     mi_addbhpoint(Name_mat,0.921799307930371,1923.67)
     mi_addbhpoint(Name_mat,1.08685121074235,2762.193)
     mi_addbhpoint(Name_mat,1.23010380570689,3945.99)
     mi_addbhpoint(Name_mat,1.3733560060874,5918.985)
     mi_addbhpoint(Name_mat,1.44809703497766,7744.006)
     mi_addbhpoint(Name_mat,1.5166090031758,11098.098)
     mi_addbhpoint(Name_mat,1.62560614434212,23725.267)
     return
  end

  if nomer_materiala == 98 then      -- (ВИАМ) 60С2А (82)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0732057413670132,406.161008)
     mi_addbhpoint(Name_mat,0.180861243410812,880.015517)
     mi_addbhpoint(Name_mat,0.658851674725915,2030.805)
     mi_addbhpoint(Name_mat,0.891387560071136,2436.966)
     mi_addbhpoint(Name_mat,1.20143540677922,3181.595)
     mi_addbhpoint(Name_mat,1.39521514116869,4873.932)
     mi_addbhpoint(Name_mat,1.47703346202416,6430.883)
     mi_addbhpoint(Name_mat,1.53301445279114,7920.14)
     mi_addbhpoint(Name_mat,1.60621973924548,11914.056)
     mi_addbhpoint(Name_mat,1.66220062571158,17397.23)
     mi_addbhpoint(Name_mat,1.70956940517469,32222.107)
     return
  end

  if nomer_materiala == 99 then      -- (ВИАМ) 65С2ВА (83)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0774193551935949,613.883352)
     mi_addbhpoint(Name_mat,0.464516128507552,1841.65)
     mi_addbhpoint(Name_mat,0.692473117427556,2455.533)
     mi_addbhpoint(Name_mat,0.954838710274372,3274.045)
     mi_addbhpoint(Name_mat,1.15268817185797,4501.811)
     mi_addbhpoint(Name_mat,1.26451637558027,5593.159)
     mi_addbhpoint(Name_mat,1.3462362426919,7093.763)
     mi_addbhpoint(Name_mat,1.40215065808399,9140.041)
     mi_addbhpoint(Name_mat,1.44516104699697,11936.621)
     mi_addbhpoint(Name_mat,1.48387136714245,17052.315)
     mi_addbhpoint(Name_mat,1.53118280876973,29193.564)
     return
  end

  if nomer_materiala == 100 then      -- (ВИАМ) 65Г (84)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0839506171800359,641.430501)
     mi_addbhpoint(Name_mat,0.177777778291525,881.966939)
     mi_addbhpoint(Name_mat,0.538271604596577,1122.503)
     mi_addbhpoint(Name_mat,0.849382715798415,1683.755)
     mi_addbhpoint(Name_mat,1.00740740740199,2004.47)
     mi_addbhpoint(Name_mat,1.08641975320378,2485.543)
     mi_addbhpoint(Name_mat,1.19999999927283,3768.404)
     mi_addbhpoint(Name_mat,1.27407426533477,4971.086)
     mi_addbhpoint(Name_mat,1.34814867716662,7456.63)
     mi_addbhpoint(Name_mat,1.38765412561625,10343.067)
     mi_addbhpoint(Name_mat,1.47160463032601,25897.756)
     return
  end

  if nomer_materiala == 101 then      -- (ВИАМ) ВКЛ-3 (85)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.102612826408436,779.28974)
     mi_addbhpoint(Name_mat,0.307838478948849,1558.579)
     mi_addbhpoint(Name_mat,0.950118765135472,3656.667)
     mi_addbhpoint(Name_mat,1.0375296914274,4196.176)
     mi_addbhpoint(Name_mat,1.12874109283014,5035.411)
     mi_addbhpoint(Name_mat,1.21995249423288,6174.373)
     mi_addbhpoint(Name_mat,1.28455995662109,7313.334)
     mi_addbhpoint(Name_mat,1.42897884900869,11809.237)
     mi_addbhpoint(Name_mat,1.5163897815838,16844.647)
     mi_addbhpoint(Name_mat,1.63800485318275,29792.846)
     mi_addbhpoint(Name_mat,1.67279755702384,50000)
     return
  end

  if nomer_materiala == 102 then      -- (ВИАМ) ВКЛ-3 (86)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0853828311745574,871.286185)
     mi_addbhpoint(Name_mat,0.289559164820119,1858.744)
     mi_addbhpoint(Name_mat,0.623665893555382,2846.202)
     mi_addbhpoint(Name_mat,0.779582366630069,3717.488)
     mi_addbhpoint(Name_mat,1.02088167064683,5634.317)
     mi_addbhpoint(Name_mat,1.16937354868847,7434.975)
     mi_addbhpoint(Name_mat,1.23990719333435,8712.862)
     mi_addbhpoint(Name_mat,1.29187913111442,9990.748)
     mi_addbhpoint(Name_mat,1.48491934213308,18471.267)
     mi_addbhpoint(Name_mat,1.65939661980816,29042.873)
     mi_addbhpoint(Name_mat,1.73180923342718,50000)
     return
  end

  if nomer_materiala == 103 then      -- (ВИАМ) 27ХГСНМЛ (87)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0818604652794543,585.128467)
     mi_addbhpoint(Name_mat,0.20837209297297,1111.744)
     mi_addbhpoint(Name_mat,1.00465116250337,3276.719)
     mi_addbhpoint(Name_mat,1.09395348842225,3861.848)
     mi_addbhpoint(Name_mat,1.19069767431078,4798.053)
     mi_addbhpoint(Name_mat,1.3134879378099,6787.49)
     mi_addbhpoint(Name_mat,1.39162737198672,8542.876)
     mi_addbhpoint(Name_mat,1.50697666772851,13340.929)
     mi_addbhpoint(Name_mat,1.58511665105572,19367.752)
     mi_addbhpoint(Name_mat,1.64093070638555,28086.166)
     mi_addbhpoint(Name_mat,1.6801237510918,50000)
     return
  end

  if nomer_materiala == 104 then      -- (ВИАМ) 27ХГСНМЛ (88)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0884792629347785,996.550288)
     mi_addbhpoint(Name_mat,0.195391705686173,1993.101)
     mi_addbhpoint(Name_mat,0.412903225758925,3341.374)
     mi_addbhpoint(Name_mat,0.637788018550507,4220.684)
     mi_addbhpoint(Name_mat,0.870046082804283,5744.819)
     mi_addbhpoint(Name_mat,0.976958525917589,6741.37)
     mi_addbhpoint(Name_mat,1.13179723542011,9203.435)
     mi_addbhpoint(Name_mat,1.29032210250332,13951.704)
     mi_addbhpoint(Name_mat,1.41198210641703,21220.659)
     mi_addbhpoint(Name_mat,1.51520741554264,30013.75)
     mi_addbhpoint(Name_mat,1.57685331738595,50000)
     return
  end

  if nomer_materiala == 105 then      -- (ВИАМ) 35ХГСЛ (89)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.123653395974477,1228.77)
     mi_addbhpoint(Name_mat,0.266042154746911,1930.924)
     mi_addbhpoint(Name_mat,0.479625292905561,2691.591)
     mi_addbhpoint(Name_mat,0.741920374590226,3510.771)
     mi_addbhpoint(Name_mat,0.906791569222862,4329.951)
     mi_addbhpoint(Name_mat,1.03793911006519,5149.131)
     mi_addbhpoint(Name_mat,1.16159250603967,6553.439)
     mi_addbhpoint(Name_mat,1.23653395848813,7431.132)
     mi_addbhpoint(Name_mat,1.28524608422652,8367.337)
     mi_addbhpoint(Name_mat,1.32646355490241,9830.158)
     mi_addbhpoint(Name_mat,1.39765816927976,13809.032)
     return
  end

  if nomer_materiala == 106 then      -- (ВИАМ) 35 ХГСЛ (90)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.11758530218857,994.718394)
     mi_addbhpoint(Name_mat,0.235170604643546,1856.808)
     mi_addbhpoint(Name_mat,0.361154856278442,2321.01)
     mi_addbhpoint(Name_mat,0.797900263286495,3050.47)
     mi_addbhpoint(Name_mat,1.0204724405046,4045.188)
     mi_addbhpoint(Name_mat,1.20104986801551,5504.108)
     mi_addbhpoint(Name_mat,1.28923882355109,7095.658)
     mi_addbhpoint(Name_mat,1.42782157298309,11870.306)
     mi_addbhpoint(Name_mat,1.51181090652142,22745.894)
     mi_addbhpoint(Name_mat,1.58740109031301,33024.651)
     mi_addbhpoint(Name_mat,1.62387667622354,50000)
     return
  end

  if nomer_materiala == 107 then      -- (ВИАМ) Х15Н5Д2Т (ЭП225. ВНС-2) (91)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0855895200926645,1468.477)
     mi_addbhpoint(Name_mat,0.262882095811793,3328.548)
     mi_addbhpoint(Name_mat,0.409606987578738,4503.33)
     mi_addbhpoint(Name_mat,0.537991266461098,5776.01)
     mi_addbhpoint(Name_mat,0.703056768599353,8321.37)
     mi_addbhpoint(Name_mat,0.776419213854506,10279.339)
     mi_addbhpoint(Name_mat,0.880349344318481,15467.958)
     mi_addbhpoint(Name_mat,0.953711790830272,23495.633)
     mi_addbhpoint(Name_mat,1.01484716124792,35537.145)
     mi_addbhpoint(Name_mat,1.0759825329222,47774.454)
     mi_addbhpoint(Name_mat,1.1649025559178,100000)
     return
  end

  if nomer_materiala == 108 then      -- (ВИАМ) Х15Н5Д2Т (ЭП225. ВНС-2) (92)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0962750719637706,1580.058)
     mi_addbhpoint(Name_mat,0.206303724918573,2801.012)
     mi_addbhpoint(Name_mat,0.334670487536934,3591.041)
     mi_addbhpoint(Name_mat,0.435530085659957,4452.891)
     mi_addbhpoint(Name_mat,0.490544413393995,4955.637)
     mi_addbhpoint(Name_mat,0.586819484101129,6032.949)
     mi_addbhpoint(Name_mat,0.669340973817231,7325.724)
     mi_addbhpoint(Name_mat,0.852722062912993,11778.615)
     mi_addbhpoint(Name_mat,0.976504298115464,15800.581)
     mi_addbhpoint(Name_mat,1.10487105947719,23700.871)
     mi_addbhpoint(Name_mat,1.21948423984788,39214.169)
     return
  end

  if nomer_materiala == 109 then      -- (ВИАМ)  Х15Н5Д2Т (ЭП410. ВНС-2) (93)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.104545454110823,1993.392)
     mi_addbhpoint(Name_mat,0.227272726163967,3061.28)
     mi_addbhpoint(Name_mat,0.336363636331167,3844.399)
     mi_addbhpoint(Name_mat,0.459090909640948,4698.71)
     mi_addbhpoint(Name_mat,0.545454545809451,5624.213)
     mi_addbhpoint(Name_mat,0.618181817578734,6763.294)
     mi_addbhpoint(Name_mat,0.690909090604655,8115.953)
     mi_addbhpoint(Name_mat,0.772727273230055,10750.078)
     mi_addbhpoint(Name_mat,0.91363636322552,16659.061)
     mi_addbhpoint(Name_mat,0.986363636251441,22283.274)
     mi_addbhpoint(Name_mat,1.06384380344001,50000)
     return
  end

  if nomer_materiala == 110 then      -- (ВИАМ) Х16Н6 (СН-2А. ЭП288) (94)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0834782605020882,2124.997)
     mi_addbhpoint(Name_mat,0.148405797146288,3004.306)
     mi_addbhpoint(Name_mat,0.227246376998064,3810.339)
     mi_addbhpoint(Name_mat,0.343188405822252,5202.579)
     mi_addbhpoint(Name_mat,0.440579710788553,6374.991)
     mi_addbhpoint(Name_mat,0.524057971290641,8206.885)
     mi_addbhpoint(Name_mat,0.626086956907254,11431.018)
     mi_addbhpoint(Name_mat,0.714202898059655,16487.045)
     mi_addbhpoint(Name_mat,0.79304347791143,24620.654)
     mi_addbhpoint(Name_mat,0.876521738413519,37590.463)
     mi_addbhpoint(Name_mat,0.965888944503882,100000)
     return
  end

  if nomer_materiala == 111 then      -- (ВИАМ) Х20Н6МД2Т (ЭП309. ВНС-4) (95)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0417391296227256,1340.252)
     mi_addbhpoint(Name_mat,0.104347826570088,2596.739)
     mi_addbhpoint(Name_mat,0.156521739855132,4607.117)
     mi_addbhpoint(Name_mat,0.193043478275017,6701.261)
     mi_addbhpoint(Name_mat,0.21391304308638,8041.513)
     mi_addbhpoint(Name_mat,0.24000000035722,10554.486)
     mi_addbhpoint(Name_mat,0.271304347574264,13653.819)
     mi_addbhpoint(Name_mat,0.328695652062149,23538.178)
     mi_addbhpoint(Name_mat,0.365217390482034,30155.673)
     mi_addbhpoint(Name_mat,0.406956521361397,40793.925)
     mi_addbhpoint(Name_mat,0.433043478632237,47495.186)
     return
  end

  if nomer_materiala == 112 then      -- (ВИАМ) Х20Н6МД2Т (ЭП309. ВНС-4) (96)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.042105262140298,1787.301)
     mi_addbhpoint(Name_mat,0.08947368346185,3063.945)
     mi_addbhpoint(Name_mat,0.110526316416955,4085.261)
     mi_addbhpoint(Name_mat,0.163157894406486,7574.754)
     mi_addbhpoint(Name_mat,0.226315788245252,12511.11)
     mi_addbhpoint(Name_mat,0.25789473704959,15575.056)
     mi_addbhpoint(Name_mat,0.300000000446525,21107.18)
     mi_addbhpoint(Name_mat,0.321052630888356,24511.563)
     mi_addbhpoint(Name_mat,0.357894737617311,32256.537)
     mi_addbhpoint(Name_mat,0.405263157682226,43661.222)
     mi_addbhpoint(Name_mat,0.421052631456077,47661.373)
     return
  end

  if nomer_materiala == 113 then      -- (ВИАМ) Х20Н6МД2Т (ЭП309. ВНС-4) (97)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0705882354731023,2933.231)
     mi_addbhpoint(Name_mat,0.121008403668175,5377.59)
     mi_addbhpoint(Name_mat,0.156302520776408,8147.864)
     mi_addbhpoint(Name_mat,0.21176470516267,12629.189)
     mi_addbhpoint(Name_mat,0.252100839718728,17110.514)
     mi_addbhpoint(Name_mat,0.272268906996757,19228.959)
     mi_addbhpoint(Name_mat,0.312605041552816,25339.857)
     mi_addbhpoint(Name_mat,0.342857143726497,32184.063)
     mi_addbhpoint(Name_mat,0.373109243386903,39761.576)
     mi_addbhpoint(Name_mat,0.388235293217107,44731.773)
     mi_addbhpoint(Name_mat,0.393277310664933,47502.047)
     return
  end

  if nomer_materiala == 114 then      -- (ВИАМ) ВНС-2М (98)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0605042018340876,1385.137)
     mi_addbhpoint(Name_mat,0.136134453498379,3666.539)
     mi_addbhpoint(Name_mat,0.181512605502263,5459.069)
     mi_addbhpoint(Name_mat,0.216806722610495,8229.343)
     mi_addbhpoint(Name_mat,0.252100839718728,11081.095)
     mi_addbhpoint(Name_mat,0.277310924444583,13769.89)
     mi_addbhpoint(Name_mat,0.327731092639656,21102.968)
     mi_addbhpoint(Name_mat,0.388235294473744,32102.584)
     mi_addbhpoint(Name_mat,0.418487394134151,40657.841)
     mi_addbhpoint(Name_mat,0.428571429029802,47339.09)
     mi_addbhpoint(Name_mat,0.495881550799054,100000)
     return
  end

  if nomer_materiala == 115 then      -- (ВИАМ) ВНС-2М (99)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0590163925622354,1750.704)
     mi_addbhpoint(Name_mat,0.122950820246545,2864.789)
     mi_addbhpoint(Name_mat,0.231147541410053,4138.029)
     mi_addbhpoint(Name_mat,0.388524589918197,5729.578)
     mi_addbhpoint(Name_mat,0.486885245864105,7480.282)
     mi_addbhpoint(Name_mat,0.644262295628886,15835.917)
     mi_addbhpoint(Name_mat,0.722950819882958,23952.819)
     mi_addbhpoint(Name_mat,0.791803278919431,34377.468)
     mi_addbhpoint(Name_mat,0.831147541046466,39947.891)
     mi_addbhpoint(Name_mat,0.865573770564703,47507.751)
     mi_addbhpoint(Name_mat,0.959932484832846,100000)
     return
  end

  if nomer_materiala == 116 then      -- (ВИАМ) ВНС-2М (100)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0736842096879993,1274.372)
     mi_addbhpoint(Name_mat,0.17368421025572,2463.786)
     mi_addbhpoint(Name_mat,0.273684210823441,3058.494)
     mi_addbhpoint(Name_mat,0.384210525983758,4077.991)
     mi_addbhpoint(Name_mat,0.457894735671758,5182.447)
     mi_addbhpoint(Name_mat,0.542105263722265,7051.527)
     mi_addbhpoint(Name_mat,0.726315788570582,15547.342)
     mi_addbhpoint(Name_mat,0.863157895867258,26676.861)
     mi_addbhpoint(Name_mat,0.93157894763064,37806.379)
     mi_addbhpoint(Name_mat,0.957894735997087,47406.65)
     mi_addbhpoint(Name_mat,1.0308947796901,100000)
     return
  end

  if nomer_materiala == 117 then      -- (ВИАМ) ВНС-2М (101)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0786026205445547,1429.032)
     mi_addbhpoint(Name_mat,0.199126637121132,2605.882)
     mi_addbhpoint(Name_mat,0.403493449531664,3782.732)
     mi_addbhpoint(Name_mat,0.518777292075477,4875.521)
     mi_addbhpoint(Name_mat,0.644541485198092,7313.282)
     mi_addbhpoint(Name_mat,0.843668122319223,14878.746)
     mi_addbhpoint(Name_mat,0.932751090929306,21855.784)
     mi_addbhpoint(Name_mat,0.990393012829531,28244.398)
     mi_addbhpoint(Name_mat,1.04803493472976,36986.712)
     mi_addbhpoint(Name_mat,1.08471615798565,47494.301)
     mi_addbhpoint(Name_mat,1.16161016681693,100000)
     return
  end

  if nomer_materiala == 118 then      -- (ВИАМ) ВНС-2Н (102)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.091139240276126,1312.618)
     mi_addbhpoint(Name_mat,0.167088608638974,1886.889)
     mi_addbhpoint(Name_mat,0.511392404260288,3445.622)
     mi_addbhpoint(Name_mat,0.754430380005474,5988.82)
     mi_addbhpoint(Name_mat,0.815189872685133,7219.399)
     mi_addbhpoint(Name_mat,0.982278481324107,14028.606)
     mi_addbhpoint(Name_mat,1.09873417688342,23791.203)
     mi_addbhpoint(Name_mat,1.14936708870644,29944.1)
     mi_addbhpoint(Name_mat,1.18987341715955,37081.461)
     mi_addbhpoint(Name_mat,1.22531645455602,47418.328)
     mi_addbhpoint(Name_mat,1.301335641674,100000)
     return
  end

  if nomer_materiala == 119 then      -- (ВИАМ) ВНС-2Н (103)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0502092044000016,813.398346)
     mi_addbhpoint(Name_mat,0.115481172261565,1626.797)
     mi_addbhpoint(Name_mat,0.642677824577634,4311.011)
     mi_addbhpoint(Name_mat,0.878661087612328,8133.983)
     mi_addbhpoint(Name_mat,1.05439330588878,15698.588)
     mi_addbhpoint(Name_mat,1.12970711372154,21717.736)
     mi_addbhpoint(Name_mat,1.18995815973642,28631.622)
     mi_addbhpoint(Name_mat,1.22510460314039,35138.809)
     mi_addbhpoint(Name_mat,1.24016736370163,42134.034)
     mi_addbhpoint(Name_mat,1.25020920449467,47583.803)
     mi_addbhpoint(Name_mat,1.31881546319807,100000)
     return
  end

  if nomer_materiala == 120 then      -- (ВИАМ) 9Х18 (Х18. ЭИ229) (104)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0842105267938701,2472.586)
     mi_addbhpoint(Name_mat,0.189473685286208,4518.864)
     mi_addbhpoint(Name_mat,0.484210526551479,7332.496)
     mi_addbhpoint(Name_mat,0.668421052656433,9805.081)
     mi_addbhpoint(Name_mat,0.789473684922621,13556.591)
     mi_addbhpoint(Name_mat,0.836842104987536,16370.223)
     mi_addbhpoint(Name_mat,0.93157894763064,23617.457)
     mi_addbhpoint(Name_mat,1.00526315731864,31546.783)
     mi_addbhpoint(Name_mat,1.07894736826328,41266.603)
     mi_addbhpoint(Name_mat,1.11052631581098,45529.682)
     mi_addbhpoint(Name_mat,1.12631578958483,46979.129)
     return
  end

  if nomer_materiala == 121 then      -- (ВИАМ) 9Х18 (Х18. ЭИ229) (105)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.049172576407241,2360.092)
     mi_addbhpoint(Name_mat,0.0907801424128233,3812.457)
     mi_addbhpoint(Name_mat,0.427423168118489,8774.702)
     mi_addbhpoint(Name_mat,0.627895981461556,13736.948)
     mi_addbhpoint(Name_mat,0.684633569527093,16157.555)
     mi_addbhpoint(Name_mat,0.767848699024983,21422.376)
     mi_addbhpoint(Name_mat,0.80189125337227,24448.136)
     mi_addbhpoint(Name_mat,0.828368794804623,27050.289)
     mi_addbhpoint(Name_mat,0.832151300005453,28684.199)
     mi_addbhpoint(Name_mat,0.839716312920386,30560.17)
     mi_addbhpoint(Name_mat,0.917985939723314,80000)
     return
  end

  if nomer_materiala == 122 then      -- (ВИАМ) 9Х18 (Х18. ЭИ29) (106)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0455958543216753,2287.126)
     mi_addbhpoint(Name_mat,0.124352331224842,4835.638)
     mi_addbhpoint(Name_mat,0.538860104068712,12546.521)
     mi_addbhpoint(Name_mat,0.630051812712063,14964.34)
     mi_addbhpoint(Name_mat,0.683937823621589,17186.12)
     mi_addbhpoint(Name_mat,0.737823834531115,21825.719)
     mi_addbhpoint(Name_mat,0.77098445585597,26922.743)
     mi_addbhpoint(Name_mat,0.787564766518398,29144.523)
     mi_addbhpoint(Name_mat,0.808290154846432,32281.153)
     mi_addbhpoint(Name_mat,0.820725389099889,34502.933)
     mi_addbhpoint(Name_mat,0.91376363919701,80000)
     return
  end

  if nomer_materiala == 123 then      -- (ВИАМ) 9Х18 (Х18. ЭИ229) (107)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.042290749310383,1793.696)
     mi_addbhpoint(Name_mat,0.105726872647639,4014.463)
     mi_addbhpoint(Name_mat,0.385903084158573,9053.895)
     mi_addbhpoint(Name_mat,0.60264317233225,13324.6)
     mi_addbhpoint(Name_mat,0.697797356709816,17766.133)
     mi_addbhpoint(Name_mat,0.808810572235855,26820.028)
     mi_addbhpoint(Name_mat,0.840528634532801,30407.42)
     mi_addbhpoint(Name_mat,0.872246696829748,33994.813)
     mi_addbhpoint(Name_mat,0.893392069599984,37155.134)
     mi_addbhpoint(Name_mat,0.909251100748457,40486.284)
     mi_addbhpoint(Name_mat,0.919823787761893,41340.425)
     return
  end

  if nomer_materiala == 124 then      -- (ВИАМ) 2Х13 (ЭЖ2) (108)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0621710531064307,559.529097)
     mi_addbhpoint(Name_mat,0.17467105245455,885.92107)
     mi_addbhpoint(Name_mat,1.08355263144732,1865.097)
     mi_addbhpoint(Name_mat,1.24046052581832,2797.645)
     mi_addbhpoint(Name_mat,1.32631548912737,3963.331)
     mi_addbhpoint(Name_mat,1.54243429091135,11237.209)
     mi_addbhpoint(Name_mat,1.5868424874932,14501.129)
     mi_addbhpoint(Name_mat,1.61348708499986,16366.226)
     mi_addbhpoint(Name_mat,1.63717057686423,18277.95)
     mi_addbhpoint(Name_mat,1.65493427395711,21168.851)
     mi_addbhpoint(Name_mat,1.70367312962244,50000)
     return
  end

  if nomer_materiala == 125 then      -- (ВИАМ) 1Х13 (ЭЖ1) (109)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0653061224551574,140.156016)
     mi_addbhpoint(Name_mat,0.881632652739988,513.905394)
     mi_addbhpoint(Name_mat,1.0538033400456,840.936099)
     mi_addbhpoint(Name_mat,1.14879406220645,1074.529)
     mi_addbhpoint(Name_mat,1.24675324648734,1681.872)
     mi_addbhpoint(Name_mat,1.34174456818848,2756.402)
     mi_addbhpoint(Name_mat,1.46345099855842,6260.302)
     mi_addbhpoint(Name_mat,1.5109456289666,9577.328)
     mi_addbhpoint(Name_mat,1.54656802365756,12333.729)
     mi_addbhpoint(Name_mat,1.56437861090575,14622.944)
     mi_addbhpoint(Name_mat,1.61931508369065,50000)
     return
  end

  if nomer_materiala == 126 then      -- (ВИАМ) 1Х21Н5Т (ЭИ811) (110)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0854209445129306,311.196816)
     mi_addbhpoint(Name_mat,0.630800821179414,3163.834)
     mi_addbhpoint(Name_mat,0.873921971218419,6172.07)
     mi_addbhpoint(Name_mat,1.00533880812637,9335.904)
     mi_addbhpoint(Name_mat,1.06447638574026,11410.55)
     mi_addbhpoint(Name_mat,1.11704312125743,14159.455)
     mi_addbhpoint(Name_mat,1.14332648838769,16078.502)
     mi_addbhpoint(Name_mat,1.16303901467786,18931.14)
     mi_addbhpoint(Name_mat,1.17946611866304,21109.517)
     mi_addbhpoint(Name_mat,1.19260780285649,24325.218)
     mi_addbhpoint(Name_mat,1.23315051472243,50000)
     return
  end

  if nomer_materiala == 127 then      -- (ВИАМ) 1Х21Н5Т (ЭИ811) (111)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0829875516828675,629.426329)
     mi_addbhpoint(Name_mat,0.278838174527244,1521.114)
     mi_addbhpoint(Name_mat,0.421576763464653,2150.54)
     mi_addbhpoint(Name_mat,0.617427385465827,3514.297)
     mi_addbhpoint(Name_mat,0.720331949291252,4668.245)
     mi_addbhpoint(Name_mat,0.823236514373314,6608.976)
     mi_addbhpoint(Name_mat,0.912863070246958,9126.682)
     mi_addbhpoint(Name_mat,0.989211618168819,12693.431)
     mi_addbhpoint(Name_mat,1.04232365123258,17833.746)
     mi_addbhpoint(Name_mat,1.06556016609068,20508.808)
     mi_addbhpoint(Name_mat,1.09543568429635,23183.87)
     return
  end

  if nomer_materiala == 128 then      -- (ВИАМ) Х17Н7Ю (ЭИ973) (112)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0733067724634225,1110.048)
     mi_addbhpoint(Name_mat,0.162549800192652,2018.269)
     mi_addbhpoint(Name_mat,0.286852589757986,2876.034)
     mi_addbhpoint(Name_mat,0.427091633332491,4187.909)
     mi_addbhpoint(Name_mat,0.516334661061721,5550.24)
     mi_addbhpoint(Name_mat,0.58964143478178,7114.399)
     mi_addbhpoint(Name_mat,0.647011953236032,8880.385)
     mi_addbhpoint(Name_mat,0.691542149170351,10495)
     mi_addbhpoint(Name_mat,0.710756971785988,11352.764)
     mi_addbhpoint(Name_mat,0.758565736326773,13825.144)
     mi_addbhpoint(Name_mat,0.857370516712833,24219.23)
     return
  end

  if nomer_materiala == 129 then      -- (ВИАМ) 1Х16Н2АМ (ЭП479) (113)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0877192984118625,895.071736)
     mi_addbhpoint(Name_mat,0.259649121767825,2125.795)
     mi_addbhpoint(Name_mat,0.487719298501224,3524.345)
     mi_addbhpoint(Name_mat,0.596491228943306,4419.417)
     mi_addbhpoint(Name_mat,0.768421051967517,6209.56)
     mi_addbhpoint(Name_mat,0.915789473856789,8111.588)
     mi_addbhpoint(Name_mat,0.992982455494533,9622.021)
     mi_addbhpoint(Name_mat,1.08070175549479,11579.991)
     mi_addbhpoint(Name_mat,1.12631578958483,13314.192)
     mi_addbhpoint(Name_mat,1.16842105172513,15328.103)
     mi_addbhpoint(Name_mat,1.23859649197665,31383.453)
     return
  end

  if nomer_materiala == 130 then      -- (ВИАМ) 1Х12НМВФАФ (ЭП517Ш. ВНС-11) (114)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0635761590079451,846.568846)
     mi_addbhpoint(Name_mat,0.169536424537246,1523.824)
     mi_addbhpoint(Name_mat,0.335540839392208,2370.393)
     mi_addbhpoint(Name_mat,0.582781458090146,3273.4)
     mi_addbhpoint(Name_mat,0.755849889796402,4571.472)
     mi_addbhpoint(Name_mat,0.946578367400803,6941.865)
     mi_addbhpoint(Name_mat,1.03841059526408,8635.002)
     mi_addbhpoint(Name_mat,1.13024282564064,11344.023)
     mi_addbhpoint(Name_mat,1.17262693177495,13883.729)
     mi_addbhpoint(Name_mat,1.20441501137568,16987.815)
     mi_addbhpoint(Name_mat,1.28565121396202,31097.296)
     return
  end

  if nomer_materiala == 131 then      -- (ВИАМ) ЭП310 (ВНС-5) (115)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0401673644288012,2346.861)
     mi_addbhpoint(Name_mat,0.105439330211887,5017.427)
     mi_addbhpoint(Name_mat,0.13556485259101,6150.394)
     mi_addbhpoint(Name_mat,0.16569037622677,7607.067)
     mi_addbhpoint(Name_mat,0.192057243119852,8740.034)
     mi_addbhpoint(Name_mat,0.220920502473451,10277.633)
     mi_addbhpoint(Name_mat,0.251046024852574,12058.01)
     mi_addbhpoint(Name_mat,0.286192468256536,15456.912)
     mi_addbhpoint(Name_mat,0.326359832685338,20393.413)
     mi_addbhpoint(Name_mat,0.386610878700221,31723.087)
     mi_addbhpoint(Name_mat,0.471966527326025,47503.704)
     return
  end

  if nomer_materiala == 132 then      -- (ВИАМ) ЭП310 (ВНС-5) (116)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.122033897421775,1230.579)
     mi_addbhpoint(Name_mat,0.27457627108395,1968.927)
     mi_addbhpoint(Name_mat,0.376271186020976,2379.12)
     mi_addbhpoint(Name_mat,0.488135592200376,2789.313)
     mi_addbhpoint(Name_mat,0.681355932088689,3937.854)
     mi_addbhpoint(Name_mat,0.783050848282351,5414.55)
     mi_addbhpoint(Name_mat,0.864406779477989,7301.438)
     mi_addbhpoint(Name_mat,0.940677966309076,10418.906)
     mi_addbhpoint(Name_mat,1.0271186431259,16817.919)
     mi_addbhpoint(Name_mat,1.08813559309343,27893.134)
     mi_addbhpoint(Name_mat,1.14406779743976,47336.29)
     return
  end

  if nomer_materiala == 133 then      -- (ВИАМ) ЭП310 (ВНС-5) (117)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0705882342164652,1230.579)
     mi_addbhpoint(Name_mat,0.196638655332466,2050.966)
     mi_addbhpoint(Name_mat,0.287394958083598,2543.198)
     mi_addbhpoint(Name_mat,0.438655462668817,3199.507)
     mi_addbhpoint(Name_mat,0.534453781611137,3855.816)
     mi_addbhpoint(Name_mat,0.574789914910559,4348.047)
     mi_addbhpoint(Name_mat,0.675630252557342,5824.743)
     mi_addbhpoint(Name_mat,0.786554621329865,9762.597)
     mi_addbhpoint(Name_mat,0.847058823163953,14110.644)
     mi_addbhpoint(Name_mat,0.942857142106273,27893.134)
     mi_addbhpoint(Name_mat,1.00840336138819,47500.367)
     return
  end

  if nomer_materiala == 134 then      -- (ВИАМ) ЭИ310 (ВНС-5) (118)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0311688314763428,1521.127)
     mi_addbhpoint(Name_mat,0.0623376616960485,2366.197)
     mi_addbhpoint(Name_mat,0.114285714575499,3802.817)
     mi_addbhpoint(Name_mat,0.161038960533376,5323.944)
     mi_addbhpoint(Name_mat,0.238961039224233,7774.649)
     mi_addbhpoint(Name_mat,0.285714286438747,10056.339)
     mi_addbhpoint(Name_mat,0.34285714246986,13352.114)
     mi_addbhpoint(Name_mat,0.384415585276075,16563.382)
     mi_addbhpoint(Name_mat,0.415584416752417,19690.143)
     mi_addbhpoint(Name_mat,0.47272727278353,28056.34)
     mi_addbhpoint(Name_mat,0.581818181694093,47492.962)
     return
  end

  if nomer_materiala == 135 then      -- (ВИАМ) ЭИ310 (ВНС-5) (119)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0566523604267585,1842.847)
     mi_addbhpoint(Name_mat,0.149356223171752,3685.693)
     mi_addbhpoint(Name_mat,0.252360514971007,5109.711)
     mi_addbhpoint(Name_mat,0.345064377716,7036.324)
     mi_addbhpoint(Name_mat,0.437768240460994,9381.765)
     mi_addbhpoint(Name_mat,0.494420600887752,11978.504)
     mi_addbhpoint(Name_mat,0.545922747415698,15077.837)
     mi_addbhpoint(Name_mat,0.581974248477296,17590.809)
     mi_addbhpoint(Name_mat,0.62317596595098,20857.674)
     mi_addbhpoint(Name_mat,0.643776824059504,23203.115)
     mi_addbhpoint(Name_mat,0.829184549549491,46992.591)
     return
  end

  if nomer_materiala == 136 then      -- (ВИАМ) ЭИ310 (ВНС-5) (120)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0517241390046648,1239.096)
     mi_addbhpoint(Name_mat,0.124137931349249,2478.191)
     mi_addbhpoint(Name_mat,0.175862069097277,3469.468)
     mi_addbhpoint(Name_mat,0.227586206845304,4130.319)
     mi_addbhpoint(Name_mat,0.284482759499108,4791.17)
     mi_addbhpoint(Name_mat,0.418965516889998,7186.754)
     mi_addbhpoint(Name_mat,0.465517240988887,7847.605)
     mi_addbhpoint(Name_mat,0.532758619684332,10738.828)
     mi_addbhpoint(Name_mat,0.65689655103358,18751.646)
     mi_addbhpoint(Name_mat,0.760344827786273,31307.815)
     mi_addbhpoint(Name_mat,0.868965516931467,47168.238)
     return
  end

  if nomer_materiala == 137 then      -- (ВИАМ) ЭИ310 (ВНС-5) (121)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0349999999473749,1068.338)
     mi_addbhpoint(Name_mat,0.0899999995056391,2465.395)
     mi_addbhpoint(Name_mat,0.144999999063903,3205.013)
     mi_addbhpoint(Name_mat,0.219999999489694,4273.351)
     mi_addbhpoint(Name_mat,0.320000000057415,5588.229)
     mi_addbhpoint(Name_mat,0.384999999421124,6903.106)
     mi_addbhpoint(Name_mat,0.459999999846914,8875.422)
     mi_addbhpoint(Name_mat,0.564999999689039,13724.032)
     mi_addbhpoint(Name_mat,0.64500000064587,19805.34)
     mi_addbhpoint(Name_mat,0.735000000151509,31146.157)
     mi_addbhpoint(Name_mat,0.820000000382744,47253.404)
     return
  end

  if nomer_materiala == 138 then      -- (ВИАМ) ЭИ310 (ВНС-5) (122)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0782608692992475,1853.955)
     mi_addbhpoint(Name_mat,0.204347825881172,3921.829)
     mi_addbhpoint(Name_mat,0.304347825192255,5205.336)
     mi_addbhpoint(Name_mat,0.513043478332432,9626.307)
     mi_addbhpoint(Name_mat,0.569565216363206,11622.874)
     mi_addbhpoint(Name_mat,0.652173912921458,15045.561)
     mi_addbhpoint(Name_mat,0.6913043481994,17683.883)
     mi_addbhpoint(Name_mat,0.730434783477342,20607.428)
     mi_addbhpoint(Name_mat,0.752173913489178,22675.301)
     mi_addbhpoint(Name_mat,0.782608695505749,26026.682)
     mi_addbhpoint(Name_mat,0.860869564804996,39360.9)
     return
  end

  if nomer_materiala == 139 then      -- (ВИАМ) СН3М (123)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0200626957471567,3965.386)
     mi_addbhpoint(Name_mat,0.0250000001419302,5179.28)
     mi_addbhpoint(Name_mat,0.0392755341328739,8254.477)
     mi_addbhpoint(Name_mat,0.0562566366196642,13110.051)
     mi_addbhpoint(Name_mat,0.0689047502178712,16832.658)
     mi_addbhpoint(Name_mat,0.0900000007622761,22902.127)
     mi_addbhpoint(Name_mat,0.0950000000366799,24601.578)
     mi_addbhpoint(Name_mat,0.110000000373165,28971.595)
     mi_addbhpoint(Name_mat,0.119999998921973,32532.349)
     mi_addbhpoint(Name_mat,0.129999999984055,35850.325)
     mi_addbhpoint(Name_mat,0.135000000515096,38439.965)
     return
  end

  if nomer_materiala == 140 then      -- (ВИАМ) СН3М (124)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0352941183648697,2530.156)
     mi_addbhpoint(Name_mat,0.0655462180252764,4733.839)
     mi_addbhpoint(Name_mat,0.105882352581335,8896.353)
     mi_addbhpoint(Name_mat,0.126050421116001,11426.509)
     mi_addbhpoint(Name_mat,0.156302520776408,15262.551)
     mi_addbhpoint(Name_mat,0.196638655332466,19996.39)
     mi_addbhpoint(Name_mat,0.22689075624951,22934.635)
     mi_addbhpoint(Name_mat,0.257142857166554,26689.06)
     mi_addbhpoint(Name_mat,0.282352940635772,29382.451)
     mi_addbhpoint(Name_mat,0.322689076448467,33789.819)
     mi_addbhpoint(Name_mat,0.443697478860006,47420.011)
     return
  end

  if nomer_materiala == 141 then      -- (ВИАМ) СН3М (125)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0446280992711353,2086.401)
     mi_addbhpoint(Name_mat,0.158677686716249,4493.787)
     mi_addbhpoint(Name_mat,0.292561983273018,7061.665)
     mi_addbhpoint(Name_mat,0.391735536371116,10271.512)
     mi_addbhpoint(Name_mat,0.466115703079645,14283.822)
     mi_addbhpoint(Name_mat,0.500826446538315,17573.916)
     mi_addbhpoint(Name_mat,0.525619834184521,20302.286)
     mi_addbhpoint(Name_mat,0.540495868531537,22709.672)
     mi_addbhpoint(Name_mat,0.570247933455657,27524.443)
     mi_addbhpoint(Name_mat,0.5950413223585,31376.26)
     mi_addbhpoint(Name_mat,0.679338842366219,47104.513)
     return
  end

  if nomer_materiala == 142 then      -- (ВИАМ) СН3М (126)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0449999997528195,1550.74)
     mi_addbhpoint(Name_mat,0.25999999996811,4570.603)
     mi_addbhpoint(Name_mat,0.339999999668304,6121.344)
     mi_addbhpoint(Name_mat,0.424999999899539,8733.117)
     mi_addbhpoint(Name_mat,0.494999999794289,12242.688)
     mi_addbhpoint(Name_mat,0.564999999689039,16894.909)
     mi_addbhpoint(Name_mat,0.605000000167454,20730.952)
     mi_addbhpoint(Name_mat,0.634999999583788,26199.352)
     mi_addbhpoint(Name_mat,0.665000000256759,31749.371)
     mi_addbhpoint(Name_mat,0.694999999673093,36319.974)
     mi_addbhpoint(Name_mat,0.729999999620468,43257.497)
     return
  end

  if nomer_materiala == 143 then      -- (ВИАМ) 1-3Х14Н ВФРА (ЭИ736) (127)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0713375793683008,704.430925)
     mi_addbhpoint(Name_mat,0.417834395251565,2384.228)
     mi_addbhpoint(Name_mat,0.652229299199939,3197.033)
     mi_addbhpoint(Name_mat,0.750743100247883,3576.342)
     mi_addbhpoint(Name_mat,0.852653928051524,4172.399)
     mi_addbhpoint(Name_mat,0.998726113732318,5418.699)
     mi_addbhpoint(Name_mat,1.0870488319999,6556.626)
     mi_addbhpoint(Name_mat,1.14140127391405,7531.992)
     mi_addbhpoint(Name_mat,1.22292993615696,9536.911)
     mi_addbhpoint(Name_mat,1.30106107275927,12896.505)
     mi_addbhpoint(Name_mat,1.4029720903151,23679.716)
     return
  end

  if nomer_materiala == 144 then      -- (ВИАМ) ДИ-1 (128)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0959435623557528,900.877036)
     mi_addbhpoint(Name_mat,0.189065255621786,1441.403)
     mi_addbhpoint(Name_mat,0.341446207970239,1846.798)
     mi_addbhpoint(Name_mat,0.476895942553327,2026.973)
     mi_addbhpoint(Name_mat,0.691358025451478,2522.456)
     mi_addbhpoint(Name_mat,1.02716049416659,4008.903)
     mi_addbhpoint(Name_mat,1.1569664907512,5450.306)
     mi_addbhpoint(Name_mat,1.21904761878762,6711.534)
     mi_addbhpoint(Name_mat,1.33756662443716,10990.7)
     mi_addbhpoint(Name_mat,1.37142827456973,14323.945)
     mi_addbhpoint(Name_mat,1.38271591644279,17837.365)
     return
  end

  if nomer_materiala == 145 then      -- (ВИАМ) Х17Н2 (ЭИ268. 1Х17Н2) (129)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0755244750652582,532.488657)
     mi_addbhpoint(Name_mat,0.394405594816881,1638.794)
     mi_addbhpoint(Name_mat,0.6265734275031,2347.462)
     mi_addbhpoint(Name_mat,0.772027971041668,2878.962)
     mi_addbhpoint(Name_mat,0.858741257676045,3594.298)
     mi_addbhpoint(Name_mat,0.953846154234788,4562.048)
     mi_addbhpoint(Name_mat,1.07972027922417,6599.467)
     mi_addbhpoint(Name_mat,1.17762237699664,8769.762)
     mi_addbhpoint(Name_mat,1.3146856549294,13907.603)
     mi_addbhpoint(Name_mat,1.39020984516907,19080.844)
     mi_addbhpoint(Name_mat,1.44895075021488,23651.371)
     return
  end

  if nomer_materiala == 146 then      -- (ВИАМ) Х17Н2 (ЭИ268. 1Х17Н2) (130)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.104269663744869,1015.883)
     mi_addbhpoint(Name_mat,0.363146066817269,2765.458)
     mi_addbhpoint(Name_mat,0.492584269610106,3499.151)
     mi_addbhpoint(Name_mat,0.589662922018893,4007.093)
     mi_addbhpoint(Name_mat,0.697528089546847,4797.223)
     mi_addbhpoint(Name_mat,0.801797753291716,5982.42)
     mi_addbhpoint(Name_mat,0.884494381771702,7111.178)
     mi_addbhpoint(Name_mat,0.94561797750008,8239.937)
     mi_addbhpoint(Name_mat,1.04269662865223,10328.14)
     mi_addbhpoint(Name_mat,1.16134831506926,14109.481)
     mi_addbhpoint(Name_mat,1.30516914748996,22631.607)
     return
  end

  if nomer_materiala == 147 then      -- (ВИАМ) Х17Н2 (ЭИ268. 1Х17Н2) (131)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0630005929487465,920.968929)
     mi_addbhpoint(Name_mat,0.202603820985064,1899.498)
     mi_addbhpoint(Name_mat,0.540255012675889,3971.679)
     mi_addbhpoint(Name_mat,0.698406973967768,5238.011)
     mi_addbhpoint(Name_mat,0.846210962598804,7022.388)
     mi_addbhpoint(Name_mat,0.932121003053623,8864.326)
     mi_addbhpoint(Name_mat,1.0268176923727,12030.157)
     mi_addbhpoint(Name_mat,1.07621606635369,13814.534)
     mi_addbhpoint(Name_mat,1.11487595137071,15771.593)
     mi_addbhpoint(Name_mat,1.14806378140122,18764.742)
     mi_addbhpoint(Name_mat,1.21002277939492,24348.116)
     return
  end

  if nomer_materiala == 148 then      -- (ВИАМ)  Х17Н2 (ЭИ268. 1Х17Н2) (132)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,1.02811244938239,614.384891)
     mi_addbhpoint(Name_mat,2.34538209582219,1228.77)
     mi_addbhpoint(Name_mat,5.87951846794324,2611.136)
     mi_addbhpoint(Name_mat,8.48192807295948,4095.899)
     mi_addbhpoint(Name_mat,9.09236916206299,4761.483)
     mi_addbhpoint(Name_mat,9.70281150780356,5427.067)
     mi_addbhpoint(Name_mat,10.4738960359519,6604.638)
     mi_addbhpoint(Name_mat,11.1807226617001,8345.395)
     mi_addbhpoint(Name_mat,11.9196782185421,10444.543)
     mi_addbhpoint(Name_mat,12.5301200088491,12799.685)
     mi_addbhpoint(Name_mat,13.5261046192922,22169.055)
     return
  end

  if nomer_materiala == 149 then      -- (ВИАМ) Х17Н2 (ЭИ268. 1Х17Н2) (133)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.717241379293046,439.654539)
     mi_addbhpoint(Name_mat,1.57241409387046,791.37817)
     mi_addbhpoint(Name_mat,2.4275867257599,1099.136)
     mi_addbhpoint(Name_mat,6.20689647070138,2198.273)
     mi_addbhpoint(Name_mat,9.98620655996143,4220.684)
     mi_addbhpoint(Name_mat,11.4206899140955,6023.267)
     mi_addbhpoint(Name_mat,12.3310346736183,8133.609)
     mi_addbhpoint(Name_mat,12.8827592213553,10112.054)
     mi_addbhpoint(Name_mat,13.2413793866455,11562.914)
     mi_addbhpoint(Name_mat,13.6827585460564,14904.289)
     mi_addbhpoint(Name_mat,14.3172417360558,21674.969)
     return
  end

  if nomer_materiala == 150 then      -- (ВИАМ) 268Л (ЭИ268Л) (134)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0909090909682418,1777.947)
     mi_addbhpoint(Name_mat,0.280000000835636,4129.426)
     mi_addbhpoint(Name_mat,0.392727273083335,5620.607)
     mi_addbhpoint(Name_mat,0.534545454541403,7914.732)
     mi_addbhpoint(Name_mat,0.639999998858192,10552.976)
     mi_addbhpoint(Name_mat,0.785454544910034,16058.877)
     mi_addbhpoint(Name_mat,0.854545454598818,20016.243)
     mi_addbhpoint(Name_mat,0.912727273019555,25120.672)
     mi_addbhpoint(Name_mat,0.930909090961875,26382.441)
     mi_addbhpoint(Name_mat,0.94545454556706,27988.329)
     mi_addbhpoint(Name_mat,0.95272727349797,29651.57)
     return
  end

  if nomer_materiala == 151 then      -- (ВИАМ) 268Л (ЭИ268Л) (135)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0771428569413644,979.415034)
     mi_addbhpoint(Name_mat,0.171428570606611,1795.594)
     mi_addbhpoint(Name_mat,0.334285714065193,2611.773)
     mi_addbhpoint(Name_mat,0.445714285839136,3101.481)
     mi_addbhpoint(Name_mat,0.642857142916385,4244.132)
     mi_addbhpoint(Name_mat,0.711428571410357,4897.075)
     mi_addbhpoint(Name_mat,0.788571428308996,6039.726)
     mi_addbhpoint(Name_mat,0.882857142016968,7672.084)
     mi_addbhpoint(Name_mat,1.02857142866622,12814.013)
     mi_addbhpoint(Name_mat,1.10571428682149,16731.674)
     mi_addbhpoint(Name_mat,1.20000000052946,39584.691)
     return
  end

  if nomer_materiala == 152 then      -- (ВИАМ) 268Л (ЭИ28Л) (136)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0579185529563734,1059.072)
     mi_addbhpoint(Name_mat,0.130316741638566,1647.445)
     mi_addbhpoint(Name_mat,0.253393665414222,2706.517)
     mi_addbhpoint(Name_mat,0.311312217113959,3000.703)
     mi_addbhpoint(Name_mat,0.409049773342883,3589.076)
     mi_addbhpoint(Name_mat,0.593665159006368,5118.847)
     mi_addbhpoint(Name_mat,0.70950226240584,6354.43)
     mi_addbhpoint(Name_mat,0.839819005301043,8296.062)
     mi_addbhpoint(Name_mat,0.980995474990611,12767.698)
     mi_addbhpoint(Name_mat,1.06425339298044,19357.477)
     mi_addbhpoint(Name_mat,1.12217194468018,31066.103)
     return
  end

  if nomer_materiala == 153 then      -- (ВИАМ) 268Л (ЭИ268Л) (137)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0689938393867286,515.779908)
     mi_addbhpoint(Name_mat,0.384394251348683,1805.23)
     mi_addbhpoint(Name_mat,0.512525668464911,2269.432)
     mi_addbhpoint(Name_mat,0.597946611952426,2578.9)
     mi_addbhpoint(Name_mat,0.703080081730116,3094.679)
     mi_addbhpoint(Name_mat,0.965913758059297,5570.423)
     mi_addbhpoint(Name_mat,1.04476386070672,7324.075)
     mi_addbhpoint(Name_mat,1.10390143706397,9077.726)
     mi_addbhpoint(Name_mat,1.16960985677459,11656.626)
     mi_addbhpoint(Name_mat,1.21560574893839,14390.259)
     mi_addbhpoint(Name_mat,1.30102665221352,22230.114)
     return
  end

  if nomer_materiala == 154 then    -- экпериментально подобранный материал (простое железо)
     mi_addmaterial(Name_mat,"","","","","",0)
     mi_addbhpoint(Name_mat,0,0)
     mi_addbhpoint(Name_mat,0.0253,200)
     mi_addbhpoint(Name_mat,0.5031,400)
     mi_addbhpoint(Name_mat,1.0059,500)
     mi_addbhpoint(Name_mat,1.3706,700)
     mi_addbhpoint(Name_mat,1.4588,900)
     mi_addbhpoint(Name_mat,1.51,1200)
     mi_addbhpoint(Name_mat,1.55,1600)
     mi_addbhpoint(Name_mat,1.58,2000)
     mi_addbhpoint(Name_mat,1.62,2700)
     mi_addbhpoint(Name_mat,1.77,10000)
     mi_addbhpoint(Name_mat,1.84,20000)
     mi_addbhpoint(Name_mat,1.93,42000)
     mi_addbhpoint(Name_mat,2.01,75000)
     mi_addbhpoint(Name_mat,2.10,123300)
     mi_addbhpoint(Name_mat,2.25,207000)
     mi_addbhpoint(Name_mat,2.35,350000)
     mi_addbhpoint(Name_mat,2.9,1000000)
     mi_addbhpoint(Name_mat,6.7,5000000)
     mi_addbhpoint(Name_mat,11.2,10000000)
     return
end

end



----------------------------------------------------------------------------------------------------------
--- это функция названия материала
----------------------------------------------------------------------------------------------------------
function vyvod_name_materiala (nomer_materiala2)
  if nomer_materiala2 == 0 then return  "Воздух" end
  if nomer_materiala2 == 1 then return  "FeNeB" end
  if nomer_materiala2 == 2 then return  "EA        CTAЛЬ" end
  if nomer_materiala2 == 3 then return  "49K2F     ГOCT (CПЛAB)" end
  if nomer_materiala2 == 4 then return  "79HM      CTOMA" end
  if nomer_materiala2 == 5 then return  "79HM1     наташа" end
  if nomer_materiala2 == 6 then return  "50H       опять НАТАША" end
  if nomer_materiala2 == 7 then return  "27KX      CTAЛЬ" end
  if nomer_materiala2 == 8 then return  "FERRIT" end
  if nomer_materiala2 == 9 then return  "FERPLAST  ФEPPOПЛACT" end
  if nomer_materiala2 == 10 then return  "KC37H" end
  if nomer_materiala2 == 11 then return  "1513     электротехническая сталь ГОСТ 3836-73" end
  if nomer_materiala2 == 12 then return  "12ЮВИ    На основе данных: mu=10000, Mнасыщения=300 кА/м" end
  if nomer_materiala2 == 13 then return  "21НКМТ" end
  if nomer_materiala2 == 14 then return  "STAL3    Сталь 3 от Сильванского ИВ, 02.07.91" end
  if nomer_materiala2 == 15 then return  "ARMCO    Сталь" end
  if nomer_materiala2 == 16 then return  "30XGSA" end
  if nomer_materiala2 == 17 then return  "STAL10   Сталь 10 со слов г-на Фролова" end
  if nomer_materiala2 == 18 then return  "UN35TBA  Кривая начального намагничивания ЮНДК35Т5БА" end
  if nomer_materiala2 == 19 then return  "UNDK35T5N " end
  if nomer_materiala2 == 20 then return  "STAL45   Сталь 45 от Сильванского ИВ 02.07.91." end
  if nomer_materiala2 == 21 then return  "(ВИАМ) 20А (5) (справочник ВИАМ, стр. 5) Термическая обработка: в состоянии поставки.         Нс=4э, Вr=11700 гс.                   " end
  if nomer_materiala2 == 22 then return  "(ВИАМ) 45 (6) Сталь 45 (справочник ВИАМ, стр. 6) Термическая обработка:в состоянии поставки.Hc=8 э, Br=11250 гс. " end
  if nomer_materiala2 == 23 then return  "(ВИАМ) 45 (7) Сталь 45 (справочник ВИАМ, стр. 7)  Термическая обработка:Закалка с 820-+10град, в масле,  отпуск при 160 град.Hc=27 э, Br=11800 гс. " end
  if nomer_materiala2 == 24 then return  "(ВИАМ) 45 (8) Сталь 45 (справочник ВИАМ, стр. 8) Термическая обработка: Закалка с 820-+10град, в масле отпуск при 350град.Hc=13 э, Br=12200 гс. " end
  if nomer_materiala2 == 25 then return  "(ВИАМ) 5 (9) Сталь 5 (справочник ВИАМ, стр. 9)      Термическая обработка:в состоянии поставки. Hc=6 э,  Br=11000 гс.   " end
  if nomer_materiala2 == 26 then return  "(ВИАМ) ШХ15 (10) Сталь (справочник ВИАМ, стр. 10). Термическая обработка: Закалка с 840град, в масле. отпуск при 160град. охлаждение на воздухеHc=45 э, Br=7900 гс. " end
  if nomer_materiala2 == 27 then return  "(ВИАМ)  Х12Ф1 (11) Сталь (справочник ВИАМ, стр. 11) . Термическая обработка: Закалка с 1050град, отпуск при 470град.Hc=85 э, Br=4100 гс. " end
  if nomer_materiala2 == 28 then return  "(ВИАМ) Р9 (12) Сталь (справочник ВИАМ, стр. 12)  Термическая обработка: Закалка с 1240град,  отпуск при 550град.Hc=43 э, Br=10400 гс. " end
  if nomer_materiala2 == 29 then return  "(ВИАМ) Р18 (13) Сталь (справочник ВИАМ, стр. 13) Термическая обработка: Закалка с 1270град,  отпуск при 550град.Hc=52 э, Br=9100 гс. " end
  if nomer_materiala2 == 30 then return  "(ВИАМ) Р9К5 (14) Сталь (справочник ВИАМ, стр. 14) Термическая обработка: Закалка с 1290град,  отпуск при 590град.Hc=52 э, Br=10800 гс. " end
  if nomer_materiala2 == 31 then return  "(ВИАМ) ХВГ (15) Сталь (справочник ВИАМ, стр. 15) Термическая обработка: Закалка с 830град в масле ,  отпуск при 160град. охлаждение на  воздухе.Hc=49 э, Br=8500 гс. " end
  if nomer_materiala2 == 32 then return  "(ВИАМ) ХВГ (16) Сталь (справочник ВИАМ, стр. 16) Термическая обработка: Закалка с 830град в масле ,  отпуск при 250град.Hc=26 э, Br=11800 гс. " end
  if nomer_materiala2 == 33 then return  "(ВИАМ) 25ХСНВФА (ВП-25) (17) Сталь (справочник ВИАМ, стр. 17) Термическая обработка:в состоянии поставки.Hc=9 э, Br=5900 гс. " end
  if nomer_materiala2 == 34 then return  "(ВИАМ) 25ХСНВФА (ВП-25) (18) Сталь (справочник ВИАМ, стр. 18) Термическая обработка:отжиг при 750-+10град.-1 час, охлаждение на воздухе.Hc=11 э, Br=5000 гс. " end
  if nomer_materiala2 == 35 then return  "(ВИАМ) 25ХСНВФА (ВП-25) (19) Сталь (справочник ВИАМ, стр. 19) Термическая обработка: Закалка в соляной ванне с 900-+10град,-8 мин. охлаждение в масле.Hc=42 э, Br=6500 гс. " end
  if nomer_materiala2 == 36 then return  "(ВИАМ) 25ХСНВФА (ВП-25) (20) Сталь (справочник ВИАМ, стр. 20) Термическая обработка:отжиг при 750-+10град,-1 час, охлаждение на воздухе; нормализация в соляной ванне при        900 -+10-град.-8 мин, охлаждение в масле; отпуск в селитровой ванне при 450град.-30мин, охлаждение на воздухе.Hc=25 э, Br=6300 гс. " end
  if nomer_materiala2 == 37 then return  "(ВИАМ) 12ХНЗА (21) Сталь (справочник ВИАМ, стр. 21) Термическая обработка:цементация при 910-+10град, на всю глубину.Hc=15 э, Br=7000 гс. " end
  if nomer_materiala2 == 38 then return  "(ВИАМ) 12ХН3А (22) Сталь (справочник ВИАМ, стр. 22) Термическая обработка: Закалка с 860град охлаждение в масле, закалка с 790град.  отпуск при 160град.Hc=13 э, Br=8000 гс. " end
  if nomer_materiala2 == 39 then return  "(ВИАМ) 12Х2Н4А (23) Сталь (справочник ВИАМ, стр. 23) Термическая обработка:нормализация при 860-+20град.    отпуск при 650град., цементация при 910-+10град., закалка с 830град. в масле, отпуск при 160град.Hc=36э, Br=7400 гс. " end
  if nomer_materiala2 == 40 then return  "(ВИАМ) 12Х2Н4А (24) Сталь (справочник ВИАМ, стр. 24)  Термическая обработка:цементация при 910-+10град. Закалка с 790град,  отпуск при 160 град.Hc=34 э, Br=8300 гс. " end
  if nomer_materiala2 == 41 then return  "(ВИАМ) 12Х2Н4А (25) Сталь (справочник ВИАМ, стр. 25) Термическая обработка: Закалка с 830град, в масле,  отпуск при 160град.Hc=25 э, Br=8500 гс. " end
  if nomer_materiala2 == 42 then return  "(ВИАМ) 12Х2Н4А (26) Сталь (справочник ВИАМ, стр. 26) Термическая обработка: Закалка с 790град, в масле  отпуск при 160град., охлаждение на воздухе.Hc=23 э, Br=9400 гс. " end
  if nomer_materiala2 == 43 then return  "(ВИАМ) 14ХГСН2МА(ЭП176, ДИ-3А) (27) Сталь (справочник ВИАМ, стр. 27) Термическая обработка:нормализация при 950град, отпуск при 650град.Hc=7 э, Br=8250 гс. " end
  if nomer_materiala2 == 44 then return  "(ВИАМ) 14ХГСН2МА(ЭП, ДИ-3А) (28) Сталь (справочник ВИАМ, стр. 28) Термическая обработка: Закалка с  830град, в масле, обработка холодом при -70град. в течении 1 час,  отпуск при 160град.Hc=30 э, Br=6200 гс. " end
  if nomer_materiala2 == 45 then return  "(ВИАМ) 18ХНВА (18Х2Н4ВА) (29) Сталь (справочник ВИАМ, стр. 29) Термическая обработка:цементация с твердым карбирюзатором при 910+-10град. Закалка с 860град,  отпуск при 160 град                                                       .Hc=43 э, Br=7050 гс. " end
  if nomer_materiala2 == 46 then return  "(ВИАМ) 18ХНВА (18Х2Н4ВА) (30) Сталь (справочник ВИАМ, стр. 30) Термическая обработка: Закалка с 860град, охлаждение на воздухе;  отпуск при 160град.охлаждение на воздухе                                            Hc=26 э, Br=8300 гс. " end
  if nomer_materiala2 == 47 then return  "(ВИАМ) 18ХВА (18Х2Н4ВА) (31) Сталь (справочник ВИАМ, стр. 31) Термическая обработка: Закалка с 860град,  отпуск при 535град.Hc=24 э, Br=8000 гс. " end
  if nomer_materiala2 == 48 then return  "(ВИАМ) 18ХНВА (18Х2Н4ВА) (32) Сталь (справочник ВИАМ, стр. 32) Термическая обработка: Закалка с 860град,  отпуск при 650град.Hc=10 э, Br=11100 гс. " end
  if nomer_materiala2 == 49 then return  "(ВИАМ) 25Х2ГНТА (ЭИ519) (33) Сталь (справочник ВИАМ, стр. 33) Термическая обработка:Закалка с 860-+10град, в масле,  отпуск при 200+-20град.-1 часHc=26 э, Br=13150 гс. " end
  if nomer_materiala2 == 50 then return  "(ВИАМ) 20Х3МВФ (ЭИ415) (34) Сталь (справочник ВИАМ, стр. 34) Термическая обработка:в состоянии поставки.Hc=18 э, Br=6700 гс. " end
  if nomer_materiala2 == 51 then return  "(ВИАМ) 20ХЗМВФ (9И415) (35) Сталь (справочник ВИАМ, стр. 35) Термическая обработка: Закалка с 1050 град,  отпуск при 680 град. охлаждение на воздухеHc=17 э, Br=13300 гс. " end
  if nomer_materiala2 == 52 then return  "(ВИАМ) 38ХА (36) Сталь (справочник ВИАМ, стр. 36) Термическая обработка:в состоянии поставки.Hc=10 э, Br=9600 гс. " end
  if nomer_materiala2 == 53 then return  "(ВИАМ) 38ХА (37) Сталь (справочник ВИАМ, стр. 37) Термическая обработка: Закалка с 860град, в масле,  отпуск при 550град.Hc=15 э, Br=14500 гс. " end
  if nomer_materiala2 == 54 then return  "(ВИАМ) 38ХА (38) Сталь (справочник ВИАМ, стр. 38) Термическая обработка: Закалка с 830град, в масле  отпуск при 580град. охлаждение на воздухе.Hc=12 э, Br=11900 гс. " end
  if nomer_materiala2 == 55 then return  "(ВИАМ) 25ХГСА (39) Сталь (справочник ВИАМ, стр. 39) Термическая обработка:в состоянии поставки.Hc=14 э, Br=11200 гс. " end
  if nomer_materiala2 == 56 then return  "(ВИАМ) 25ХГСА (40) Сталь (справочник ВИАМ, стр. 40) Термическая обработка: Закалка с 890град, в масле,  отпуск при 225град., охлаждение в воде.Hc=34 э, Br=11200 гс. " end
  if nomer_materiala2 == 57 then return  "(ВИАМ) 25ХГСА (41) Сталь (справочник ВИАМ, стр. 41) Термическая обработка:  Закалка с 890 град в масле ,  отпуск при 630 град.охлаждение в воде.Hc=12 э, Br=14300 гс. " end
  if nomer_materiala2 == 58 then return  "(ВИАМ) 30ХГСА (42) Сталь (справочник ВИАМ, стр. 42) Термическая обработка:в состоянии поставки.Hc=10 э, Br=10700 гс. " end
  if nomer_materiala2 == 59 then return  "(ВИАМ) 30ХГСА (43) Сталь (справочник ВИАМ, стр. 43) Термическая обработка: Закалка с 900град, в масле, отпуск при 500град.-1 часHc=15 э, Br=13300 гс. " end
  if nomer_materiala2 == 60 then return  "(ВИАМ) 12Х2НВФА (ЭИ712) (44) Сталь (справочник ВИАМ, стр. 44)  Термическая обработка: Закалка с 910 град,в масле  отпуск при 520+-10 град.Hc=47 э, Br=7600 гс. " end
  if nomer_materiala2 == 61 then return  "(ВИАМ) 12Х2НВФА (ЭИ712) (45) Сталь (справочник ВИАМ, стр. 45) Термическая обработка: Закалка с 910град,  отпуск при 550град.Hc=22 э, Br=9000 гс. " end
  if nomer_materiala2 == 62 then return  "(ВИАМ) 30Х2Н2ВА (46) Сталь (справочник ВИАМ, стр. 46) Термическая обработка: Закалка с 860град, в масле,  отпуск при  580град., охлаждение на воздухе.Hc=18 э, Br=10200 гс. " end
  if nomer_materiala2 == 63 then return  "(ВИАМ) 40ХНМА (47) Сталь (справочник ВИАМ, стр. 47) Термическая обработка: Закалка с 840град, отпуск при 580 град.Hc=15 э, Br=11500 гс. " end
  if nomer_materiala2 == 64 then return  "(ВИАМ) 30ХГСНА (48) Сталь (справочник ВИАМ, стр. 48) Термическая обработка:Закалка с 900град, в селитре при 320град.-45 мин. отпуск при 250-300град-3 часа   .Hc=24 э, Br=11600 гс. " end
  if nomer_materiala2 == 65 then return  "(ВИАМ) 30Х2ГСН2ВМ (ВЛ1) (49) Сталь (справочник ВИАМ, стр. 49) Термическая обработка:в состоянии поставки.Hc=13 э, Br=6600 гс. " end
  if nomer_materiala2 == 66 then return  "(ВИАМ) 30Х2ГСН2ВМ (ВЛ1) (50) Сталь (справочник ВИАМ, стр. 50)  Термическая обработка:отжиг при 650 град.-10 час.Hc=11 э, Br=8500 гс. " end
  if nomer_materiala2 == 67 then return  "(ВИАМ) 30Х2ГСН2ВМ (ВЛ1) (51) Сталь (справочник ВИАМ, стр. 51) Термическая обработка: Закалка с 930град,-13 мин.Hc=50 э, Br=6300 гс. " end
  if nomer_materiala2 == 68 then return  "(ВИАМ) 30Х2ГСН2ВМ(ВЛ1) (52) Сталь (справочник ВИАМ, стр. 52) Термическая обработка: Закалка с 930град,  отпуск при 410град.-1часHc=40 э, Br=7200 гс. " end
  if nomer_materiala2 == 69 then return  "(ВИАМ) 42Х2ГСНМА (ВКС-1) (53) Сталь (справочник ВИАМ, стр. (53)) Термическая обработка:в состоянии поставки.Hc=11 э, Br=7400 гс. " end
  if nomer_materiala2 == 70 then return  "(ВИАМ) 42Х2ГСНМА (ВКС-1) (54) Сталь (справочник ВИАМ, стр. (54)) Термическая обработка: отжиг  при 800град.Hc=8 э, Br=9600 гс. " end
  if nomer_materiala2 == 71 then return  "(ВИАМ) 42Х2ГСНМА (ВКС-1) (55) Сталь (справочник ВИАМ, стр. 55) Термическая обработка: Закалка с 930град, охлаждение на воздухе,   отпуск при 200град.                       Hc=52 э, Br=6700 гс. " end
  if nomer_materiala2 == 72 then return  "(ВИАМ) 42Х2ГСНМА (ВКС-1) (56) Сталь (справочник ВИАМ, стр. 56)  Термическая обработка: Закалка с930 град,охлаждение на воздухе, отпуск при 280 град.-4 часаHc=45 э, Br=7500 гс. " end
  if nomer_materiala2 == 73 then return  "(ВИАМ) 32Х2НГСМ (КВК-32) (57) Сталь (справочник ВИАМ, стр. 57) Термическая обработка: Закалка с 940град,-30 мин, охлаждение на воздухе. отпуск при 220+-10град.-4 часа.Hc=35 э, Br=6800 гс. " end
  if nomer_materiala2 == 74 then return  "(ВИАМ) 37Х2НГСМ (КВК-37) (58) Сталь (справочник ВИАМ, стр. 58) Термическая обработка:отжиг при 670-+10град.Hc=25 э, Br=6500 гс. " end
  if nomer_materiala2 == 75 then return  "(ВИАМ) 37Х2НГСМ (КВК-37) (59) Сталь (справочник ВИАМ, стр. 59) Термическая обработка: Закалка с 940град, Hc=30 э, Br=6300 гс. " end
  if nomer_materiala2 == 76 then return  "(ВИАМ) 37Х2НГСМ (КВК-37) (60) Сталь (справочник ВИАМ, стр. 60)  Термическая обработка: Закалка с 940 град, отпуск при 210 град.Hc=55 э, Br=7000 гс. " end
  if nomer_materiala2 == 77 then return  "(ВИАМ) 42Х2НГСМ (КВК-42) (61) Сталь (справочник ВИАМ, стр. 61) Термическая обработка: Закалка с 940град, Hc=55 э, Br=11000 гс. " end
  if nomer_materiala2 == 78 then return  "(ВИАМ) 42Х2НГСМ (КВК-42) (62) Сталь (справочник ВИАМ, стр. 62) Термическая обработка: Закалка с 940град,-30 мин , охлаждение на воздухе , отпуск при 220-+10град.-4 часа.Hc=45 э, Br=5100 гс. " end
  if nomer_materiala2 == 79 then return  "(ВИАМ) СП-28 (63) Сталь (справочник ВИАМ, стр. 63) Термическая обработка:в состоянии поставки.Hc=18 э, Br=11200 гс. " end
  if nomer_materiala2 == 80 then return  "(ВИАМ) СП-28 (64) Сталь (справочник ВИАМ, стр. 64) Термическая обработка:Закалка: подогрев до 600-630град, быстрый перенос в электрическую печь с температурой 930-960град., охлаждение в масле;  отпуск при 320+-30град. охлаждение на воздухе.Hc=43 э, Br=6930 гс. " end
  if nomer_materiala2 == 81 then return  "(ВИАМ) ВКС-210 (65) Сталь (справочник ВИАМ, стр. 65) Термическая обработка:в состоянии постовки.Hc=25 э, Br=5400 гс. " end
  if nomer_materiala2 == 82 then return  "(ВИАМ) ВКС-210 (66) Сталь (справочник ВИАМ, стр. 66) Термическая обработка: Закалка с 1200град,-2 часа, охлаждение в воде; три раза перекристализация при 970град.-2 часа, охлаждение в воде; старение при 520град.-3 часа, охлаждение на воздухе.Hc=28 э, Br=6950 гс. " end
  if nomer_materiala2 == 83 then return  "(ВИАМ) ВКС-210 (67) Сталь (справочник ВИАМ, стр. 67) Термическая обработка: Закалка с 820 град-1 час охлаждение в воде старение при 480 град.,выдержка 3 часа в селитре.Hc=24 э, Br=7400 гс. " end
  if nomer_materiala2 == 84 then return  "(ВИАМ) ВНС-17 (68) Сталь (справочник ВИАМ, стр. 68) Термическая обработка:в состоянии поставки.Hc=25 э, Br=5000 гс. " end
  if nomer_materiala2 == 85 then return  "(ВИАМ) ВНС-17 (69) Сталь (справочник ВИАМ, стр. 69)  Термическая обработка:Закалка с 860 град,-40 мин. охлаждение на воздухе;старение  при 500град.-2 часа, охлаждение на воздухе.Hc=23 э, B-=5000 гс. " end
  if nomer_materiala2 == 86 then return  "(ВИАМ) ВНЛ-1 (СН-2АЛ) (70) Сталь (справочник ВИАМ, стр. 70) Термическая обработка:литое состояние.Hc=48 э, Br=900 гс. " end
  if nomer_materiala2 == 87 then return  "(ВИАМ) ВНЛ-1 (СН-2АЛ) (71) Сталь (справочник ВИАМ, стр. 71) Термическая обработка: нормализация при 1100град-2часа,обработка холодом при -70град в течение 2 час, отпуск при 350град.-2часа.Hc=38 э, Br=3900 гс. " end
  if nomer_materiala2 == 88 then return  "(ВИАМ) ВНЛ-2 (72) Сталь (справочник ВИАМ, стр. 72) Литое состояние.Hc=64 э, Br=650 гс. " end
  if nomer_materiala2 == 89 then return  "(ВИАМ) ВНЛ-2 (73) Сталь (справочник ВИАМ, стр. 73) Термическая обработка:780 +-10 град-6 час,охлаждение на воздухе; нормализация при 1100+-20 град.-2 часа, обработка холодом при -70 град. в течение 2 часа  отпуск при 450 град -2 часа.Hc=47 э, Br=3800 гс. " end
  if nomer_materiala2 == 90 then return  "(ВИАМ) ВНЛ-3 (74) Сталь (справочник ВИАМ, стр. 74)  Литое состояние.Hc=37 э, Br=4000 гс. " end
  if nomer_materiala2 == 91 then return  "(ВИАМ) ВНЛ-3 (75) Сталь (справочник ВИАМ, стр. 75) Термическая обработка: нормализация при 1100+-20 град- 1час, отпуск при 650 град- 30 мин; закалка с 950+-20 град- 1 час,  отпуск при 450 град- 1 час, обработка холодом при -70 град в течение 2 часов.Hc=35 э, Br=4400 гс. " end
  if nomer_materiala2 == 92 then return  "(ВИАМ) ВНЛ-5 (76) Сталь (справочник ВИАМ, стр. 76) Литое состояние.Hc=55 э, Br=3200 гс. " end
  if nomer_materiala2 == 93 then return  "(ВИАМ) ВНЛ-5 (77) Сталь (справочник ВИАМ, стр. 77) Термическая обработка: закалка с 1130 град- 3 часа, охлаждение на воздухе; обработка холодом при -70 град в течение 2 час; отпуск при 480 град- 3 часа, охлаждение на воздухе.Hc=30 э, Br=4600 гс. " end
  if nomer_materiala2 == 94 then return  "(ВИАМ) ЭИ643 (78) Сталь (справочник ВИАМ, стр. 78) Термическая обработка: закалка с 900 град в масле, отпуск при 250 град- 3 часа.Hc=33 э, Br=12000 гс. " end
  if nomer_materiala2 == 95 then return  "(ВИАМ) 1Х12Н2ВМФ (ЭИ961) (79) Сталь (справочник ВИАМ, стр. 79) Термическая обработка: Закалка с 1000 град, отпуск при 550 град.Hc=29 э, Br=6700 гс. " end
  if nomer_materiala2 == 96 then return  "(ВИАМ) 1Х12Н2ВМФ (ЭИ961) (80) Сталь (справочник ВИАМ, стр. 80) Термическая обработка: закалка с 1000 град в масле,  отпуск при 570 град.Hc=22 э, Br=7600 гс. " end
  if nomer_materiala2 == 97 then return  "(ВИАМ) 1Х12Н2ВМФ (ЭИ961) (81) Сталь (справочник ВИАМ, стр. 81) Термическая обработка: закалка с 1000 град, отпуск при 680 град.Hc=12 э, Br=9300 гс. " end
  if nomer_materiala2 == 98 then return  "(ВИАМ) 60С2А (82) Сталь (справочник ВИАМ, стр. 82) Термическая обработка: отжиг при 650-700 град- 1,5 часа, охлаждение с печью до 500 град, затем на воздухе; закалка в соляной ванне с 860 град- 5 мин, охлаждение в масле, отпуск в электрической печи при 420+-10 град- 1,5 часа, охлаждение на воздухе.Hc=23 э, Br=10500 гс." end
  if nomer_materiala2 == 99 then return  "(ВИАМ) 65С2ВА (83) Сталь (справочник ВИАМ, стр. 83) Термическая обработка: отжиг при 650-700 град- 1,5 часа, охлаждение с печью до 500 град, затем на воздухе; закалка в соляной ванне с 860 град- 5 мин, полное охлаждение в масле, отпуск в электрической печи при 420+-10 град- 1,5 часа, охлаждение на воздухе.Hc=17 э, Br=11100 гс. " end
  if nomer_materiala2 == 100 then return  "(ВИАМ) 65Г (84) Сталь (справочник ВИАМ, стр. 84) Термическая обработка: закалка с 810+-10 град в масле,  отпуск при 360+-20 град- 1 час, охлаждение на воздухе.Hc=20 э, Br=10900 гс. " end
  if nomer_materiala2 == 101 then return  "(ВИАМ) ВКЛ-3 (85) Сталь (справочник ВИАМ, стр. 85) Термическая обработка: отжиг при 900 град- 2 часа, охлаждение с печью до 680 град, затем на воздухе.Hc=9 э, Br=5800 гс. " end
  if nomer_materiala2 == 102 then return  "(ВИАМ) ВКЛ-3 (86) Сталь (справочник ВИАМ, стр. 86) Термическая обработка: отжиг при 900 град- 2 часа, охлаждение с печью до 680 град, затем на воздухе; закалка с 900 град- 30 мин, охлаждение в масле; отпуск при 550 град- 2 часа, охлаждение на воздухе.Hc=18 э, Br=6100 гс." end
  if nomer_materiala2 == 103 then return  "(ВИАМ) 27ХГСНМЛ (87) Сталь (справочник ВИАМ, стр. 87) Термическая обработка: нормализация при 870+-20 град- 2 часа, охлаждение на воздухе; отпуск при 640+-10 град- 2 часа, охлаждение на воздухе.Hc=11 э, Br=4100 гс. " end
  if nomer_materiala2 == 104 then return  "(ВИАМ) 27ХГСНМЛ (88) Сталь (справочник ВИАМ, стр. 88) Термическая обработка: нормализация при 890 град- 2 часа, охлаждение на воздухе; отпуск при 650 град- 2 часа, охлаждение на воздухе; закалка с 890 град- 30 мин, охлаждение в масле; отпуск при 220 град- 2 часа, охлаждение на воздухе.Hc=33 э, Br=6500 гс. " end
  if nomer_materiala2 == 105 then return  "(ВИАМ) 35ХГСЛ (89) Сталь (справочник ВИАМ, стр. 89) Термическая обработка: нормализация при 900+-20 град- 2 часа, охлаждение на воздухе; отпуск при 680+-10 град- 2 часа, охлаждение на воздухе.Hc=17 э, Br=8000 гс. " end
  if nomer_materiala2 == 106 then return  "(ВИАМ) 35 ХГСЛ (90) Сталь (справочник ВИАМ, стр. 90) Термическая обработка: нормализация при 900+-20 град- 2 часа, охлаждение на воздухе; отпуск при 680+-10- 2 часа, охлаждение на воздухе; закалка с 890+-10 град- 30 мин в масле,  отпуск при 570 град- 2 часа, охлаждение на воздухе.Hc=16 э, Br=10200 гс." end
  if nomer_materiala2 == 107 then return  "(ВИАМ) Х15Н5Д2Т (ЭП225, ВНС-2) (91) Сталь (справочник ВИАМ, стр. 91) Термическая обработка: в состоянии поставки.Hc=35 э, Br=6500 гс. " end
  if nomer_materiala2 == 108 then return  "(ВИАМ) Х15Н5Д2Т (ЭП225, ВНС-2) (92) Сталь (справочник ВИАМ, стр. 92) Термическая обработка: Закалка с 950 град, охлаждение на воздухе, старение при 450 град- 1 час.Hc=40 э, Br=6900 гс. " end
  if nomer_materiala2 == 109 then return  "(ВИАМ)  Х15Н5Д2Т (ЭП410, ВНС-2) (93) Сталь (справочник ВИАМ, стр. 93) Термическая обработка: Закалка с 950 град, отпуск при 250 град.Hc=33 э, Br=5900 гс. " end
  if nomer_materiala2 == 110 then return  "(ВИАМ) Х16Н6 (СН-2А, ЭП288) (94) Сталь (справочник ВИАМ, стр. 94) Термическая обработка: Закалка с 990+-10 град- 15 мин, охлаждение в воде; обработка холодом при -70 град в течение 2 час, охлаждение на воздухе; отпуск при 250+-10 град- 1 час, охлаждение на воздухе.Hc=50 э, Br=5000 гс." end
  if nomer_materiala2 == 111 then return  "(ВИАМ) Х20Н6МД2Т (ЭП309, ВНС-4) (95) Сталь (справочник ВИАМ, стр. 95) Термическая обработка: в состоянии поставки.Hc=14 э, Br=800 гс. " end
  if nomer_materiala2 == 112 then return  "(ВИАМ) Х20Н6МД2Т (ЭП309, ВНС-4) (96) Сталь (справочник ВИАМ, стр. 96) Термическая обработка: нормализация при 1050 град- 5 мин.Hc=16 э, Br=590 гс. " end
  if nomer_materiala2 == 113 then return  "(ВИАМ) Х20Н6МД2Т (ЭП309, ВНС-4) (97) Сталь (справочник ВИАМ, стр. 97) Термическая обработка: нормализация при 1050 град- 5 мин, отпуск при 550 град- 2 часа.Hc=16 э, Br=550 гс. " end
  if nomer_materiala2 == 114 then return  "(ВИАМ) ВНС-2М (98) Сталь (справочник ВИАМ, стр. 98) Термическая обработка: в состоянии поставки.Hc=12 э, Br=700 гс. " end
  if nomer_materiala2 == 115 then return  "(ВИАМ) ВНС-2М (99) Сталь (справочник ВИАМ, стр. 99) Термическая обработка: смягчающий отжиг при 640 град- 1 час.Hc=65 э, Br=4400 гс. " end
  if nomer_materiala2 == 116 then return  "(ВИАМ) ВНС-2М (100) Сталь (справочник ВИАМ, стр. 100) Термическая обработка: смягчающий отжиг при 640 град- 1 час, нормализация при 950 град- 5 мин.Hc=38 э, Br=4300 гс. " end
  if nomer_materiala2 == 117 then return  "(ВИАМ) ВНС-2М (101) Сталь (справочник ВИАМ, стр. 101) Термическая обработка: смягчающий отжиг при 640 град- 1 час, нормализация при 950 град- 5 мин, отпуск при 450 град- 1 час.Hc=38 э, Br=9100 гс. " end
  if nomer_materiala2 == 118 then return  "(ВИАМ) ВНС-2Н (102) Сталь (справочник ВИАМ, стр. 102) Термическая обработка: в состоянии поставки.Hc=35 э, Br=9600 гс. " end
  if nomer_materiala2 == 119 then return  "(ВИАМ) ВНС-2Н (103) Сталь (справочник ВИАМ, стр. 103) Термическая обработка: Закалка с 950 град, отпуск при 450 град- 1 час.Hc=30 э, Br=9800 гс. " end
  if nomer_materiala2 == 120 then return  "(ВИАМ) 9Х18 (Х18, ЭИ229) (104) Сталь (справочник ВИАМ, стр. 104) Термическая обработка: Закалка с 1030 град, отпуск при 180 град.Hc=80 э, Br=6100 гс. " end
  if nomer_materiala2 == 121 then return  "(ВИАМ) 9Х18 (Х18, ЭИ229) (105) Сталь (справочник ВИАМ, стр. 105) Термическая обработка: Закалка с 1030 град, отпуск при 400 град.Hc=85 э, Br=5000 гс. " end
  if nomer_materiala2 == 122 then return  "(ВИАМ) 9Х18 (Х18, ЭИ29) (106) Сталь (справочник ВИАМ, стр. 106) Термическая обработка: Закалка с 1050 град- 30 минут в масле, обработка холодом при -70 град- 30 минут, охлаждение на воздухе; отпуск при 550 град- 2 часа, охлаждение на воздухе.Hc=100 э, Br=4500 гс. " end
  if nomer_materiala2 == 123 then return  "(ВИАМ) 9Х18 (Х18, ЭИ229) (107) Сталь (справочник ВИАМ, стр. 107) Термическая обработка: Закалка с 1050+-10 град- 30 мин, охлаждение на воздухе; обработка холодом при -100-110 град в течение 2 час; при 150+-10 град- 2 часа, охлаждение на воздухе; стабилизация при 120 град - 24 часа, охлаждение на воздухе. Hc=92 э, Br=5000 гс. " end
  if nomer_materiala2 == 124 then return  "(ВИАМ) 2Х13 (ЭЖ2) (108) Сталь (справочник ВИАМ, стр. 108) Термическая обработка: Закалка с 1020 град в масле,  отпуск при 620 град- 3 часа.Hc=14 э, Br=5800 гс. " end
  if nomer_materiala2 == 125 then return  "(ВИАМ) 1Х13 (ЭЖ1) (109) Сталь (справочник ВИАМ, стр. 109) Термическая обработка: нормализация при 1020 град,  отпуск при 660-760 град.Hc=5 э, Br=11100 гс. " end
  if nomer_materiala2 == 126 then return  "(ВИАМ) 1Х21Н5Т (ЭИ811) (110) Сталь (справочник ВИАМ, стр. 110) Термическая обработка:в состоянии поставки.Hc=10 э, Br=4100 гс. " end
  if nomer_materiala2 == 127 then return  "(ВИАМ) 1Х21Н5Т (ЭИ811) (111) Сталь (справочник ВИАМ, стр. 111) Термическая обработка: Закалка с 950 град, охлаждение на воздухе.Hc=12 э, Br=4500 гс. " end
  if nomer_materiala2 == 128 then return  "(ВИАМ) Х17Н7Ю (ЭИ973) (112) Сталь (справочник ВИАМ, стр. 112) Термическая обработка: Закалка с 1050+-20 град, озлаждение на воздухе; отпуск при 750+-10 град, охлаждение на воздухе; повторный отпуск при 550-600 град, охдаждение на воздухе.Hc=22 э, Br=3600 гс. " end
  if nomer_materiala2 == 129 then return  "(ВИАМ) 1Х16Н2АМ (ЭП479) (113) Сталь (справочник ВИАМ, стр. 113) Термическая обработка:Закалка с 1040 град,  отпуск при 680 град.Hc=26 э, Br=6800 гс." end
  if nomer_materiala2 == 130 then return  "(ВИАМ) 1Х12НМВФАФ (ЭП517Ш, ВНС-11) (114) Сталь (справочник ВИАМ, стр. 114) Термическая обработка:Закалка с 1130 град,  отпуск при 760 град.Hc=22 э, Br=6000 гс. " end
  if nomer_materiala2 == 131 then return  "(ВИАМ) ЭП310 (ВНС-5) (115) Сталь (справочник ВИАМ, стр. 115) Термическая обработка:в состоянии поставки.Hc=55 э, Br=1700 гс. " end
  if nomer_materiala2 == 132 then return  "(ВИАМ) ЭП310 (ВНС-5) (116) Сталь (справочник ВИАМ, стр. 116) Термическая обработка:охрупчивающий отжиг при 780 град- 11час, при 590 град- 2,5 часа.Hc=29 э, Br=6700 гс. " end
  if nomer_materiala2 == 133 then return  "(ВИАМ) ЭП310 (ВНС-5) (117) Сталь (справочник ВИАМ, стр. 117) Термическая обработка:охрупчивающий отжиг при 780 град- 11 час, при 590 град- 2,5 часа;  смягчающий отжиг при 600 град- 2 часа.Hc=34 э, Br=5600 гс. " end
  if nomer_materiala2 == 134 then return  "(ВИАМ) ЭИ310 (ВНС-5) (118) Сталь (справочник ВИАМ, стр. 118) Термическая обработка: охрупчивающий отжиг при 780 град- 11 час, при 590 град- 2,5 часа; смягчающий отжиг при 600 град- 2 часа, нормализация при 1050 град- 28 мин.Hc=49 э, Br=2300 гс. " end
  if nomer_materiala2 == 135 then return  "(ВИАМ) ЭИ310 (ВНС-5) (119) Сталь (справочник ВИАМ, стр. 119) Термическая обработка:охрупчивающий обжиг при 780 град - 11 час, при 590 град- 2,5 часа; смягчающий обжиг при 600 град- 2 часа; нормализация при 1050 град- 28мин, обработка холодом при -70 град.Hc=53 э, Br=3250 гс. " end
  if nomer_materiala2 == 136 then return  "(ВИАМ) ЭИ310 (ВНС-5) (120) Сталь (справочник ВИАМ, стр. 120) Термическая обработка: охрупчивающий отжиг при 780 град- 11 час, при 590 град- 2,5 часа; смягчающий отжиг при 600 град- 2 часа, нормализация при 1050 град- 28 мин, обработка холодом при -70 град в течение 2 час, отпуск при 350 град- 1 час.Hc=50 э, Br=4000 гс. " end
  if nomer_materiala2 == 137 then return  "(ВИАМ) ЭИ310 (ВНС-5) (121) Сталь (справочник ВИАМ, стр. 121) Термическая обработка: охрупчивающий отжиг при 780 град- 11 час, при 590 град-2,5 часа; смягчающий отжиг при 660 град- 2 часа; нормализация при 1050 град- 28 мин, обработка холодом при -70 град в течение 2 час, отпуск при 350 град- 1 час, смягчающий отжиг при 600 град - 2часа.Hc=51 э, Br=3600 гс. " end
  if nomer_materiala2 == 138 then return  "(ВИАМ) ЭИ310 (ВНС-5) (122) Сталь (справочник ВИАМ, стр. 122) Термическая обработка: закалка с 1050+-10 град, охлаждение на воздухе; обработка холодом при -70 град в течение 2 час, отпуск при 450 град.-1 часHc=60 э, Br=4600 гс. " end
  if nomer_materiala2 == 139 then return  "(ВИАМ) СН3М (123) Сталь (справочник ВИАМ, стр. 123) Термическая обработка: в состоянии поставки.Hc=45 э, Br=400 гс. " end
  if nomer_materiala2 == 140 then return  "(ВИАМ) СН3М (124) Сталь (справочник ВИАМ, стр. 124) Термическая обработка: нормализация при 940 град- 5 мин Hc=32 э, Br=150 гс. " end
  if nomer_materiala2 == 141 then return  "(ВИАМ) СН3М (125) Сталь (справочник ВИАМ, стр. 125) Термическая обработка: нормализация при 940 град-5 мин,  обработка холодом при -70 град.в течение 2 часHc=60 э, Br=3300 гс. " end
  if nomer_materiala2 == 142 then return  "(ВИАМ) СН3М (126) Сталь (справочник ВИАМ, стр. 126) Термическая обработка: нормализация при 640 град.-5 мин обработка холодом при -70 град. в течение 2 час, отпуск при 450 град.- 1 час.Hc=52 э, Br=3550 гс. " end
  if nomer_materiala2 == 143 then return  "(ВИАМ) 1-3Х14Н ВФРА (ЭИ736) (127) Сталь (справочник ВИАМ, стр. 127) Термическая обработка: Закалка с 1050 град в масле, отпуск при 550+-10 град. - 3 часа.Hc=29 э, Br=8000 гс. " end
  if nomer_materiala2 == 144 then return  "(ВИАМ) ДИ-1 (128) Сталь (справочник ВИАМ, стр. 128) Термическая обработка: Закалка с 960 град в масле, отпуск при 560 град.Hc=23 э, Br=8700 гс. " end
  if nomer_materiala2 == 145 then return  "(ВИАМ) Х17Н2 (ЭИ268, 1Х17Н2) (129) Сталь (справочник ВИАМ, стр. 129) Термическая обработка:В состоянии поставки.Hc=22 э, Br=5900 гс. " end
  if nomer_materiala2 == 146 then return  "(ВИАМ) Х17Н2 (ЭИ268, 1Х17Н2) (130) Сталь (справочник ВИАМ, стр. 130) Термическая обработка: закалка с 1030 град.Hc=45 э, Br=6250 гс. " end
  if nomer_materiala2 == 147 then return  "(ВИАМ) Х17Н2 (ЭИ268, 1Х17Н2) (131) Сталь (справочник ВИАМ, стр. 131) Термическая обработка: закалка с 1030 град., отпуск при 350 град. Hc=40э, Br=6300 гс." end
  if nomer_materiala2 == 148 then return  "(ВИАМ)  Х17Н2 (ЭИ268, 1Х17Н2) (132) Сталь (справочник ВИАМ, стр. 132) Термическая обработка: Закалка с 1030 град в масле,  отпуск при 520 град.Hc=18 э, Br=6800 гс. " end
  if nomer_materiala2 == 149 then return  "(ВИАМ) Х17Н2 (ЭИ268, 1Х17Н2) (133) Сталь (справочник ВИАМ, стр. 133) Термическая обработка: Закалка с 1030 град, отпуск при 680 град.Hc=20 э, Br=7000 гс. " end
  if nomer_materiala2 == 150 then return  "(ВИАМ) 268Л (ЭИ268Л) (134) Сталь (справочник ВИАМ, стр. 134) Литое состояние. Hc=48 э, Br=4200 гс" end
  if nomer_materiala2 == 151 then return  "(ВИАМ) 268Л (ЭИ268Л) (135) Сталь (справочник ВИАМ, стр. 135) Термическая обработка: нормализация при 1050 град, охлаждение на воздухе." end
  if nomer_materiala2 == 152 then return  "(ВИАМ) 268Л (ЭИ28Л) (136) Сталь (справочник ВИАМ, стр. 136) Термическая обработка: закалка с 1050+-10 град в масле, отпуск при 550+-10 град- 3 часа, охлаждение на воздухе. Hc=30 э, Br=5400 гс." end
  if nomer_materiala2 == 153 then return  "(ВИАМ) 268Л (ЭИ268Л) (137) Сталь (справочник ВИАМ, стр. 137) Термическая обработка: закалка с 1030 град. в масле, отпуск при 680 град, охлаждение на воздухе. Hc=20э Br=6950 гс" end
  if nomer_materiala2 == 154 then return  "Экпериментально подобранный материал (простое железо)" end
end