11.01.2013 Views

NX Nastran DMAP Programmer's Guide - Kxcad.net

NX Nastran DMAP Programmer's Guide - Kxcad.net

NX Nastran DMAP Programmer's Guide - Kxcad.net

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Examples:<br />

1. Static analysis:<br />

CYCLIC4<br />

Transforms cyclic components of load vectors or displacements<br />

FILE UX=APPEND $<br />

PARAML KVAL//'TRAILER'/1/S,N,NKVAL $ NUMBER OF ANALYSIS HARMONICS<br />

PARAML KVAL//'DTI'/1/NKVAL//S,N,KMAX $ LAST ANALYSIS HARMONIC INDEX<br />

PARAML KVAL//'IMATCH'/1/S,N,HINDEX//S,N,KVAL $<br />

DO WHILE ( HINDEX=0 ) THEN $<br />

IF ( NOKVAL>=0 ) THEN $<br />

.<br />

.<br />

.<br />

CYCLIC4 HARMF,GC,GS,PXF,,,/<br />

PKF,,,/<br />

'FORE'/HINDEX/RFNAME/NFREQ $<br />

.<br />

.<br />

.<br />

CYCLIC4 HARMF,GC,GS,UKVF,,,/<br />

UXVF,,,/<br />

'BACK'/HINDEX/RFNAME/NFREQ $<br />

ENDIF $ NOKVAL>=0<br />

HINDEX=HINDEX+1<br />

ENDIF $ DONE>=0<br />

ENDDO $ DONE>=0<br />

MPYAD UXVF,BACKF,/UDVF $<br />

833

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!