Is there any way to plot the input force-deflection curve for Combin39 elements?
|
The macro (plt39rc) plots the real inputs for a COMBIN39. A sample input that demonstrates it's use is included too. The macro does not do any data validity checking and ignores keyopt settings. Macro named plt39rc : ! Plot reals for combin39 ! arg1 is the real set number ! does not check validity of data ! *dim,r_data,array,40 *vget,r_data(1),rcon,arg1,const,1,,,4 *vscfun,r_last,last,r_data(1) ! retrieve real into array *if,mod(r_last,2),ne,0,then ! assure that last is even r_last=r_last+1 *endif *dim,rt_data,table,r_last/2 ! create table array *do,kk,1,r_last/2 rt_data(kk,0)=r_data(kk*2-1) ! put in D values rt_data(kk,1)=r_data(kk*2) ! put in F values *enddo *del,kk ! cleanup *del,r_data(1) *del,r_last *vplot,rt_data(1,0),rt_data(1,1) ! plot *del,rt_data(1) Sample test input: /prep7 ! r,2,0 *do,jj,1,40 rmod,2,jj,jj *enddo r,3,0 *do,jj,-8,8,2 rmod,3,(jj+8)+1,jj,sign(jj*jj,jj) *enddo jj= ! rlist,2 ! *use,plt39rc,2 /wait,3 *use,plt39rc,3 |
||
|