stdiag.mac
Апроксимация диаграммы σ-ε степенной функцией.
Рис. Вид диаграммы после выполнения макроса stdiag,206e6,305000,460000,63,0.3
| /nopr ! Модель материала - мультилинейная изотропная (степенная диаг. деформир.) ! Входные данные: ! arg1 - модуль упругости, кПа ! arg2 - условный предел текучести, кПа ! arg3 - предел прочности, кПа ! arg4 - относительное сужение при разрыве, % ! arg5 - коэффициент Пуассона ! Например для стали 09Г2С: ! stdiag,206e6,305000,460000,63,0.3 !----------------------------------- finish /prep7 ! показатель упрочнения ar20=0.75*log(arg3*(1+1.4*(arg4/100))/arg2)/log(log(100/(100-arg4))/((arg2/arg1)+0.002)) ! "истинный" предел текучести ar21=(arg2/(arg1*0.002+arg2)**ar20)**(1/(1-ar20)) ! напряжение, соответствующее предельной деформации ar22=ar21*(log(100/(100-arg4))/(ar21/arg1))**ar20 *get,ar30,active,,mat mp,ex,ar30,arg1 mp,nuxy,ar30,arg5 tb,miso,ar30,1,20 ! закон упрочнения материала tbpt,,(ar21/arg1),ar21 ! начальная точка графика sigma=f(e) *do,ar23,1,18 tbpt,,(ar21/arg1)*(1+((ar22/ar21)-1)*(ar23/19))**(1/ar20),ar21+(ar22-ar21)*(ar23/19) *enddo tbpt,,log(100/(100-arg4)),ar22 ! конечная точка графика sigma=f(e) /go |
