第9章adams用戶子程序-(陳立平)機械系統(tǒng)動力學分析及adams應用(編輯修改稿)
2025-07-26 16:42 本頁面
【文章內(nèi)容簡介】 調(diào)用ANALYS功能子程序的目的就是激活某一個ADAMS/Solver的分析子程序。(3)調(diào)用DATOUT功能子程序的目的就是處理從ADAMS/Solver仿真的輸出。當CONSUB停止執(zhí)行時，ADAMS/Solver會提醒你使用其他命令。如果程序的控制權交給了CONSUB，那么輸出的自動生成會停止，如果想處理輸出，則要調(diào)用DATOUT功能子程序。CONSUB子程序的結(jié)構：下面給出CONSUB子程序的結(jié)構，從而可以看出該子程序是怎樣工作的。SUBROUTINE CONSUB ( PAR， NPAR )======================= 定義與聲明 ===================————————————— 外部變量定義 ——————————INTEGER NPARDOUBLE PRECISION PAR( * )——————————— 本地變量和參數(shù)定義 —————————……========================可執(zhí)行代碼 =====================———————————— 用戶自己的程序代碼 —————————……RETURNENDCONSUB子程序示例：下面給出一個CONSUB子程序應用的例子，在該例中，首先對模型進行了一次靜力學仿真（Static Simulation），然后改變Part 1 的質(zhì)量后，進行一次動力學仿真（Dynamic Simulation），并輸出每次仿真的結(jié)果。首先，用交互式的命令激活CONSUB：CONTROL/ FUNCTION=USER(r1[，...，r30])相應的CONSUB 用戶子程序為：SUBROUTINE CONSUB(PAR， NPAR)======================= 定義與聲明 ===================————————————— 外部變量定義 ——————————INTEGER NPARDOUBLE PRECISION PAR( * )——————————— 本地變量和參數(shù)定義 —————————CHARACTER*10 ATYPECHARACTER*20 TITLELOGICAL ERRFLG， INIFLGCHARACTER*80 COMMND， MESSGEINTEGER STATUS DOUBLE PRECISION DPZEROPARAMETER (DPZERO = )========================可執(zhí)行代碼 ===================== ——————————首先進行一次靜力學分析 ————————— 指明分析類型和此次分析的名稱ATYPE = ’STATIC’TITLE = ’STATIC_2003’INIFLG = .TRUE.調(diào)用功能子程序ANALYS進行靜力學分析CALL ANALYS(ATYPE， TITLE， DPZERO， DPZERO， INIFLG，amp。 STATUS)如果仿真中出現(xiàn)錯誤，則調(diào)用ERRMES功能子程序返回錯誤信息并終止仿真ERRFLG = STATUS .NE. 0MESSGE = ’Error calling ANALYS for STATIC_1.’CALL ERRMES(ERRFLG， MESSGE， STATUS， ’STOP’) 調(diào)用DATOUT功能子程序輸出分析數(shù)據(jù)CALL DATOUT(STATUS)調(diào)用MODIFY功能子程序改變 PART/1 的質(zhì)量COMMND = ’PART/1， MASS = 100’CALL MODIFY(COMMND， STATUS)指明分析類型和分析的名稱進行動力學分析ATYPE = ’DYNAMIC’TITLE = ’ DYNAMIC_2003’INIFLG = .TURE.CALL ANALYS(ATYPE， TITLE， DPZERO， DPZERO， INIFLG，amp。 STATUS)ERRFLG = STATUS .NE. 0MESSGE = ’Error calling ANALYS for STATIC_2.’CALL ERRMES(ERRFLG， MESSGE， STATUS， ’STOP’)CALL DATOUT(STATUS)RETURNEND2. GFOSUB用戶子程序定義：GFOSUB計算子程序用于計算GFORCE聲明中的變量值。在GFORCE的函數(shù)表達式太復雜或計算流程需要作特殊控制時可以使用GFOSUB用戶子程序。調(diào)用：相應的調(diào)用命令為GFOCE/id，I=id，JFLOAT=id，RM=idFUNCTION=USER(r1[，…，r30])([ ])中的內(nèi)容表示是可選的。輸入?yún)?shù)構成:GFOSUB用戶子程序的 輸入?yún)?shù)構成為：SUBROUTINE GFOSUB(id， time， par， npar， dflag， iflag， result)輸入?yún)?shù)說明：dflag——邏輯型變量；當ADAMS/Solver調(diào)用GFOSUB子程序求解某些特定的偏微分方程時其值為ture，否則設為false。Id——整數(shù)變量；用于提供給GFORCE聲明其自身的標志符。當需要GFOSUB的信息時，ADAMS/Solver可自動識別相應的函數(shù)聲明中的其他信息(如par參數(shù)等)。Iflag——邏輯型變量；當需要從GFOSUB中獲得函數(shù)相關信息時，ADAMS/Solver將其設置為true；當iflag值為false時，則計算用戶定義的表達式的值。Npar——整型變量；用于指明在USER括號中使用的實參數(shù)目，也就是GFOSUB子程序中數(shù)組par的維數(shù)。Par——雙精度的常數(shù)數(shù)組；按順序存放USER括號中實參的數(shù)值。Time——雙精度變量；傳遞給ADAMS/Solver當前的仿真時間。子程序的返回結(jié)果：雙精度數(shù)組，返回GFORCE構成的六個值。GFOSUB子程序的結(jié)構： SUBROUTINE GFOSUB(ID， TIME， PAR， NPAR， DFLAG，amp。 IFLAG， RESULT)======================= 定義與聲明 ===================————————————— 外部變量定義 ——————————INTEGER IDDOUBLE PRECISION TIMEDOUBLE PRECISION PAR( * )INTEGER NPARLOGICAL DFLAGLOGICAL IFLAGDOUBLE PRECISION RESULT( 6 )——————————— 本地變量和參數(shù)定義 —————————……========================可執(zhí)行代碼 =====================———————————— 用戶自己的程序代碼 —————————……調(diào)用SYSFNC 和/或 SYSARY為后續(xù)計算獲得必要信息，如果IFLAG為真，則這些實際上是在設置函數(shù)相關性。CALL SYSFNC (...)CALL ERRMES (...)……IF (IFLAG) THEN———————————— 子程序初始化 —————————————……ENDIF—————————— GFORCE 的相關計算代碼 ——————————…… 得到計算結(jié)果 RESULT 數(shù)組的值RESULT(1) = ...RESULT(2) = ...RESULT(3) = ...RESULT(4) = ...RESULT(5) = ...RESULT(6) = ...RETURNEND。3. REQSUB用戶子程序定義: REQSUB用戶子程序用于計算REQUEST的后處理參數(shù)的輸出值，但并不是所有的REQUEST都要求有與之對應的REQSUB子程序，只有使用非標準的REQUEST輸出時才會使用到。調(diào)用: 相應的調(diào)用命令為REQUEST/，id FUNCTION USER( 1[,... , 30]) \ [TITLE c:1，…，c:8] [，COMMENT] [[ ]]中的內(nèi)容表示是可選的。輸入?yún)?shù)構成 :REQSUB用戶子程序的 輸入?yún)?shù)構成為：SUBROUTINE REQSUB (id, time, par
研究報告相關推薦
鄂ICP備17016276號-1