Prediktering av tändpuls med hjälp av finita elementmetoden
Prediktering av tändpuls med hjälp av finita elementmetoden
Prediktering av tändpuls med hjälp av finita elementmetoden
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
[Bilaga 5] Makro för att hämta nodförskjutningar<br />
! 1macro_explicit<br />
!Detta macro hämtar förskjutningarna i x och y och sparar dem i en tabell.<br />
!Tabellen skrivs sedan ut till en txt-fil. Detta macro används för hoppa<br />
! mellan explicit och implicit körning. Noderna måsta ha samma<br />
!position och koordinater i de två beräkningarna. Detta kan fixas <strong>med</strong> hjälp <strong>av</strong> mesh200.<br />
!<br />
! Av: Kenneth Sjöqvist 2006-12-15<br />
!<br />
/PMACRO<br />
/UI,LSEL,S<br />
NSLL,S,1<br />
/POST1<br />
*GET,NODMIN,NODE,,NUM,MIN<br />
*GET,NODMAX,NODE,,NUM,MAX<br />
!<br />
SET,LAST<br />
*GET,SUBS,ACTIVE,,SOLU,NCMSS<br />
!<br />
SET,,1,,,,,,<br />
*DO,J,NODMIN,NODMAX<br />
!<br />
*DIM,UXX%J%,TABLE,SUBS,1,,TIME,X-DISP,<br />
*DIM,UYY%J%,TABLE,SUBS,1,,TIME,Y-DISP,<br />
!<br />
*DO,I,1,SUBS,1<br />
SET,,I,,,,,,<br />
*GET,UXX%J%(I,0),ACTIVE,,SET,TIME<br />
*GET,UYY%J%(I,0),ACTIVE,,SET,TIME<br />
*GET,UXX%J%(I,1),NODE,J,U,X,<br />
*GETUYY%J%(I,1),NODE,J,U,Y,<br />
*ENDDO<br />
XVII