Free Courses

[FAQ]

[Solution]で、コマンドオブジェクトを追加します。 例： resume strs_limit=100 ! この限界よりも大きい相当応力を持つ要素が出力される my_volu_all = 0 my_volu = 0 /post1 set,last allsel *get,my_n_el,elem,,count ! 要素のカウント etable,vonMises,s,EQV etable,el_volu,volu *do,i,1,my_n_el,1 ! 全要素に対してループを実行 *dim,avg_vonMise,array,1,1 *vget,avg_vonMise(1,1),elem,i,etab,vonMises ! 要素iのvonMises応力を取得 *get,i_volu,elem,i,volu ! 要素の体積を取得 my_volu_all = my_volu_all+i_volu ! 要素の体積をモデルの総体積に追加 *if,avg_vonMise(1,1),gt,strs_limit,then my_volu = my_volu + i_volu ! ストレス限界を上回る応力が作用する体積に、要素の体積を追加 my_volu_ratio = my_volu/my_volu_all *endif *ENDDO