| 查看: 693 | 回复: 0 | |||
| 【悬赏金币】回答本帖问题，作者izaye将赠送您 10 个金币 | |||
[求助]
关于abaqus子程序中精度的问题？
|
|||
|
大家能不能帮忙看一我这个abaqus里的vuamp子程序的精度是否正确，如果不正确的话该如何声明变量？纯新手，这两天查资料查的很多概念都蒙圈了，求大佬帮忙 SUBROUTINE VUAMP( * ampName, time, ampValueOld, dt, nprops, props, nSvars, * svars, lFlagsInfo, nSensor, sensorValues, sensorNames, * jSensorLookUpTable, * AmpValueNew, * lFlagsDefine, * AmpDerivative, AmpSecDerivative, AmpIncIntegral) INCLUDE 'VABA_PARAM.INC' C time indices parameter (iStepTime = 1, * iTotalTime = 2, * nTime = 2) C flags passed in for information parameter (iInitialization = 1, * iRegularInc = 2, * ikStep = 3, * nFlagsInfo = 3) C optional flags to be defined parameter (iComputeDeriv = 1, * iComputeSecDeriv = 2, * iComputeInteg = 3, * iStopAnalysis = 4, * iConcludeStep = 5, * nFlagsDefine = 5) dimension time(nTime), lFlagsInfo(nFlagsInfo), * lFlagsDefine(nFlagsDefine), * sensorValues(nSensor), * props(nprops), * sVars(nSvars) character*80 sensorNames(nSensor) character*80 ampName dimension jSensorLookUpTable(*) tim=time(iStepTime) if (ampName(1:6).EQ.'sinsin') then r=mod(tim,5.76) if(r.LE.0.25) then ampValueNew=1000000+7580*sind(8*pi*tim) else ampValueNew=0 end if end if return end |
回复此楼» 猜你喜欢
327求调剂
已经有9人回复
-
伙伴们，祝我生日快乐吧
已经有24人回复
-
中科院材料273求调剂
已经有3人回复
-
材料工程专硕274一志愿211求调剂
已经有5人回复
-
本人考085602 化学工程 专硕
已经有8人回复
-
求老师收留调剂
已经有5人回复
-
机械专硕调剂
已经有3人回复
-
东华理工大学化材专业26届硕士博士申请
已经有6人回复
-
欢迎申博同学联系
已经有7人回复
-
东南大学364求调剂
已经有3人回复
