第9章adams用戶子程序-(陳立平)機(jī)械系統(tǒng)動(dòng)力學(xué)分析及adams應(yīng)用-資料下載頁
2025-06-29 16:42本頁面
【正文】 nes）表96 自定義約束子程序名及功能子程序名功 能UCOVAR和UCOSUB一起使用，通知ADAMS/Solver在用戶自定義約束中使用哪一個(gè)慣性主軸。(3) 調(diào)用ADAMS自帶函數(shù)子程序（General Subroutines）表97 調(diào)用ADAMS自帶函數(shù)子程序名及功能子程序名功 能BISTOP調(diào)用BISTOP函數(shù)CHEBY計(jì)算Chebyshev多項(xiàng)式FORCOS計(jì)算傅里葉余弦級(jí)數(shù)FORSIN計(jì)算傅里葉正弦級(jí)數(shù)HAVSIN計(jì)算HAVSIN函數(shù)IMPACT計(jì)算模型碰撞力函數(shù)ISTRNG將整型變量轉(zhuǎn)換成字符型POLY計(jì)算多項(xiàng)式的值RCNVRT轉(zhuǎn)換旋轉(zhuǎn)標(biāo)架RSTRNG將一個(gè)雙精度變量轉(zhuǎn)換為字符串SHF計(jì)算一個(gè)簡(jiǎn)諧函數(shù)STEP用三次多項(xiàng)式逼近STEP函數(shù)STEP5用五次多項(xiàng)式逼近STEP5函數(shù)TCNVRT將移動(dòng)標(biāo)架從一種類型轉(zhuǎn)換成另一種類型 功能子程序SYSARY和SYSFNC如前節(jié)所述，在用戶子程序中調(diào)用功能子程序可以實(shí)現(xiàn)許多非常有用的功能，其中SYSARY和SYSFNC功能子程序最為常用。本節(jié)將分別介紹這兩個(gè)子程序的使用情況。1. SYSARY功能子程序SYSARY子程序可以向用戶子程序提供系統(tǒng)的狀態(tài)值，如位移和速度等，這些ADAMS/Solver的系統(tǒng)狀態(tài)值的各個(gè)分量一起被保存在特定的數(shù)組中，并以數(shù)組的形式傳遞給用戶子程序。SYSARY功能子程序常常被下列用戶子程序調(diào)用：CONSUB、DIFSUB、GFOSUB、REQSUB、SENSUB、SFOSUB、VARSUB、VFOSUB和VTOSUB等等，其調(diào)用格式為：CALL SYSARY (fnam， ipar， nsize， states， nstates， errflg)參數(shù)表中各參數(shù)的含義為：fnam——字符型變量，用于SYSARY所調(diào)用的ADAMS函數(shù)的名字。ipar——nsize大小的整型數(shù)組，包含fnam所對(duì)應(yīng)函數(shù)的參數(shù)表。nsize——整型變量，其值為fnam所對(duì)應(yīng)函數(shù)的參數(shù)個(gè)數(shù)。states——個(gè)雙精度數(shù)組，其大小與包含SYSARY返回值的fnanam有關(guān)。nstates——整型變量，用于返回ADAMS/Solver放入states中數(shù)值的數(shù)目。errflg——邏輯型變量，當(dāng)調(diào)用SYSARY時(shí)發(fā)生錯(cuò)誤時(shí)，返回值為真。在上述參數(shù)中，ADAMS通過讀取fnam來判斷用戶子程序需要調(diào)用的是哪一個(gè)ADAMS函數(shù)，fnam的合法取值及其含義見下表所示：表98 位移函數(shù)位移函數(shù)DISP 返回位移的六個(gè)分量TDISP 返回位移的三個(gè)平動(dòng)分量RDISP 返回B313歐拉旋轉(zhuǎn)角Q 對(duì)于柔性體返回通用模態(tài)坐標(biāo)UVX 返回標(biāo)架 I 的X軸在標(biāo)架 J中的方向余弦值UVY 返回標(biāo)架 I 的Y軸在標(biāo)架 J中的方向余弦值UVZ 返回標(biāo)架 I 的Z軸在標(biāo)架 J中的方向余弦值DC 返回標(biāo)架 I 的X軸、Y軸和Z軸在標(biāo)架 J中的方向余弦值表99 速度函數(shù)速度函數(shù)VEL 返回速度的六個(gè)分量TVEL 返回平動(dòng)速度的三個(gè)分量RVEL 返回角速度的三個(gè)分量QDOT 對(duì)于柔性體返回通用模態(tài)坐標(biāo)的一階導(dǎo)數(shù)表910 加速度函數(shù)加速度函數(shù)ACC 返回加速度的六個(gè)分量TACC 返回平動(dòng)加速度的三個(gè)分量RACC 返回角加速度的三個(gè)分量QDDOT 對(duì)于柔性體返回通用模態(tài)坐標(biāo)的二階導(dǎo)數(shù)表911 一般力函數(shù)一般力函數(shù)FORCE 返回作用在標(biāo)架上合力的六個(gè)分量（力和力矩）TFORCE 返回作用在標(biāo)架上的三個(gè)力分量RFORCE 返回作用在標(biāo)架上的三個(gè)力矩分量表912 系統(tǒng)元素變量系統(tǒng)元素變量PINPUT 返回PINPUT中所有分量的瞬時(shí)值POUTPUT 返回POUTPUT中所有分量的瞬時(shí)值A(chǔ)RRAY 返回ARRAY中所有分量的瞬時(shí)值上一小節(jié)在介紹REQSUB用戶子程序的例子中，調(diào)用了SYSARY功能子程序，為了更清楚地說明問題，將該例子出去無關(guān)部分，作為調(diào)用SYSARY的示例如下所示：SUBROUTINE REQSUB ( ID, TIME, PAR, NPAR, IFLAG,amp。 RESULT )……INTEGER IPAR( 1 )DOUBLE PRECISION DIFVAL, DERVALLOGICAL ERRFLG……—————通過調(diào)用SYSARY將標(biāo)架的移動(dòng)和轉(zhuǎn)動(dòng)速度值賦給 VEL 數(shù)組————VEL（1）～VEL（3）分別代表力的三個(gè)分量 VEL（4）～VEL（6）分別代表力矩的三個(gè)分量在調(diào)用STSARY之前，將相關(guān)標(biāo)架的ID賦給數(shù)組IPARIPAR(1) = IMIPAR(2) = JMIPAR(3) = RMCALL SYSARY(’VEL’， IPAR， 3， VEL， NSTATES， ERRFLG)……RETURNEND2 SYSFNC功能子程序SYSFNC子程序的功能與即為類似，也是向用戶子程序提供系統(tǒng)的狀態(tài)值。不同之處在于SYSARY子程序提供的是狀態(tài)值數(shù)組，如位移的六個(gè)分量組成的數(shù)組，而SYSFNC子程序提供的是單個(gè)狀態(tài)值，如沿X方向的位移值。SYSFNC子程序的調(diào)用格式為：CALL SYSFNC (fnam，ipar，nsize，state，errflg )參數(shù)表中各參數(shù)的含義與SYSARY子程序相同，這里不在贅述。在上述參數(shù)中，ADAMS通過讀取fnam來判斷用戶子程序需要調(diào)用的是哪一個(gè)ADAMS函數(shù)，fnam的合法取值及其含義見下表所示： 表913 函數(shù)變量及其字符串函數(shù)變量：字符串：位移DM， DX， DY， DZ， AX， AY， AZ， PSI， PHI，THETA， YAW， PITCH， ROLL速度VM， VR， VX， VY， VZ， WM， WX， WY， WZ加速度ACCM， ACCX， ACCY， ACCZ， WDTM， WDTX，WDTY， WDTZ力FM， FX， FY， FZ， TM， TX， TY， TZ約束反力BEAM， BUSH， FIELD， SPDP， SFORCE，VFORCE， VTORQ， GFORCE， NFORCE，JOINT， JPRIM， MOTION， CVCV， PTCV系統(tǒng)狀態(tài)變量DIF， DIF1， PINVAL， POUVAL， VARVAL，ARYVAL作為對(duì)比，將上面調(diào)用SYSARY的例子改用調(diào)用SYSFNC子程序來實(shí)現(xiàn)，相應(yīng)的代碼如下：SUBROUTINE REQSUB ( ID, TIME, PAR, NPAR, IFLAG,amp。 RESULT )……INTEGER IPAR(3) IM， JM，RM，NSTATESDOUBLE PRECISION DIFVAL, DERVAL，VX，VY，WY，WZLOGICAL ERRFLG……———通過調(diào)用SYSFNC將標(biāo)架的移動(dòng)和轉(zhuǎn)動(dòng)速度分別賦給變量VX，VY，WY，WZ———IPAR(1) = IMIPAR(2) = JMIPAR(3) = RMCALL SYSFNC(’VX’, IPAR, 3, VX, ERRFLG)CALL SYSFNC(’VY’, IPAR, 3, VY, ERRFLG)CALL SYSFNC(’WY’, IPAR, 3, WY, ERRFLG)CALL SYSFNC(’WZ’, IPAR, 3, WZ, ERRFLG)DIFVAL＝SQRT(VX ** 2 + VY ** 2 )DERVAL＝SQRT(WY ** 2 +WZ ** 2 )……RETURNEND25 / 25
研究報(bào)告相關(guān)推薦
鄂ICP備17016276號(hào)-1