forked from nasa/NASTRAN-95
-
Notifications
You must be signed in to change notification settings - Fork 7
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
1 parent
7098ee2
commit 6c3809c
Showing
2,258 changed files
with
782,355 additions
and
0 deletions.
There are no files selected for viewing
Binary file not shown.
Binary file not shown.
Binary file not shown.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1 +1,9 @@ | ||
# NASTRAN-95 | ||
|
||
NASTRAN has been released under the | ||
[NASA Open Source Agreement version 1.3](https://github.com/nasa/NASTRAN/raw/master/NASA%20Open%20Source%20Agreement-NASTRAN.doc). | ||
|
||
|
||
NASTRAN is the NASA Structural Analysis System, a finite element analysis program (FEA) completed in the early 1970's. It was the first of its kind and opened the door to computer-aided engineering. Subsections of a design can be modeled and then larger groupings of these elements can again be modeled. NASTRAN can handle elastic stability analysis, complex eigenvalues for vibration and dynamic stability analysis, dynamic response for transient and steady state loads, and random excitation, and static response to concentrated and distributed loads, thermal expansion, and enforced deformations. | ||
|
||
NOTE: There is no technical support available for this software. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,90 @@ | ||
$ COSDBCL.ALT | ||
$ | ||
$ DMAP ALTER PACKAGE FOR | ||
$ DYNAMIC DELAMINATION BUCKLING IN COMPOSITE LAMINATES UNDER | ||
$ IMPACK LOADING: COMPUTATIONAL SIMULATION | ||
$ FROM PAPER OF THE SAME TITLE BY J. E. GRADY et al | ||
$ NASA TECHNICAL MEMORANDUM 100192, 1987, CLEWIS RESEARCH CENTER, | ||
$ AND ALSO A SIMILAR PAPER BY R. A. AIELLO AND J. E. GRADY, | ||
$ NASA CONFERENCE PUBLICATION 3029, 1989 (17TH NASTRAN USERS'S | ||
$ COLLOQUIUM, PP. 187-200) | ||
$ | ||
$ VAX AND UNIX USER: MAKE SURE YOUR FILE EXTENSION LIMIT IS SET | ||
$ TO 420 BEFORE RUNNING THIS DEMO PROBLEM. | ||
$ | ||
$ ALTER 146 $ 91 COSMIC/NASTRAN RF 9, FOLLOWING LABEL P2 | ||
INSERT XYTRAN(2),-1 $ | ||
$ | ||
PARAML UPV//*TRAILER*/1/V,N,NOCUPV $ | ||
COPY TIP1/CLUSI/0 $ | ||
COPY TIP1/BUBLI/0 $ | ||
PARAM //*SUB*/SHIFT/NOCUPV/ 1 $ | ||
LABEL BUBTOP $ | ||
FILE BUBLI=SAVE/CLUSI=SAVE $ | ||
PARTN BUBLI,,BAS1/DUMMY,,,/7 $ | ||
MERGE DUMMY,,,,,TIP1/BUBLJ/7 $ | ||
ADD CLUSI,BUBLJ/CLUSJ/ $ | ||
SWITCH BUBLJ,BUBLI//-1 $ | ||
SWITCH CLUSJ,CLUSI//-1 $ | ||
REPT BUBTOP,SHIFT $ | ||
PARTN TIP1,,CLUSJ/,MNTRI,,/7 $ | ||
PARTN BUBLJ,,CLUSJ/,BOOTI,,/7 $ | ||
COPY MNTRI/MNTRJ/0 $ | ||
TA1 ECT,EPT,BGPDT,SIL,GPTT,CSTM,,EQEXIN/X1,X2,X3,ECPT,GPCT,,,/ | ||
LUSET/NOSIMP/0/NOGENL/GENEL $ | ||
DPD DYNAMICS,GPL,SIL,USET/GPLD,SILD,USETD,,,,,,,EED,EQDYN/V,N, | ||
LUSET/V,N,LUSETD/V,N,NOTFL/V,N,NODLT/V,N,NOPSDL/V,N,NOFRL/ | ||
V,N,NONLFT/V,N,NOTRL/S,N,NOEED/C,N,123/V,N,NOUE $ | ||
COND ERROR5,NOEED $ | ||
PARAM //*NOP*/V,N,COLNUM=1 $ | ||
LABEL RAALOOP $ | ||
PARAM //*ADD*/COLNUM/COLNUM/3 $ | ||
PARAM //*LE*/V,N,GETOUT/NOCUPV/COLNUM $ | ||
COND QUITRAA,GETOUT $ | ||
LABEL CORTOP $ | ||
PARTN MNTRJ,,BOOTI/DUM11,,,/7 $ | ||
MERGE DUM11,,,,,MNTRI/MNTRJ/7 $ | ||
REPT CORTOP, 2 $ | ||
PARTN UPV,MNTRJ,/,,COLUPV,/1 $ | ||
DSMG1 CASECC,GPTT,SIL,EDT,COLUPV,CSTM,MPT,ECPT,GPCT,DIT/ | ||
KDGG/DSCOSET $ | ||
EQUIV KDGG,KDNN/MPCF2 $ | ||
COND LBL2D,MPCF2 $ | ||
MCE2 USET,GM,KDGG,,,/KDNN,,, $ | ||
LABEL LBL2D $ | ||
EQUIV KDNN,KDFF/SINGLE $ | ||
COND LBL3D,SINGLE $ | ||
SCE1 USET,KDNN,,,/KDFF,KDFS,,,, $ | ||
LABEL LBL3D $ | ||
EQUIV KDFF,KDAA/OMIT $ | ||
COND LBL5D,OMIT $ | ||
SMP2 USET,GO,KDFF/KDAA $ | ||
LABEL LBL5D $ | ||
ADD KDAA,/KDAAM/C,N,(-1.0,0.0)/C,N,(0.0,0.0) $ | ||
READ KAA,KDAAM,,,EED,USET,CASECC/LAMA,PHIA,MI,OEIGS/C,N,BUCKLING/ | ||
S,N,NEIGV/C,N,2 $ | ||
COND ERROR4,NEIGV $ | ||
PARAML LAMA//*TABLE1*/2/3/V,N,EIGV $ | ||
PRTPARM //0/*EIGV* $ | ||
$ OFP OEIGS,LAMA,,,,//S,N,CARDNO $ | ||
OFP LAMA,,,,,//S,N,CARDNO $ | ||
SDR1 USET,,PHIA,,,GO,GM,,KFS,,/PHIG,,BQG/C,N,1/C,N,BKL1 $ | ||
SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,LAMA,BQG,PHIG,EST,,,/, | ||
OBQG1,OPHIG,OBES1,OBEF1,PPHIG,,/C,N,BKL1 $ | ||
$ OFP OPHIG,OBQG1,OBEF1,OBES1,,//S,N,CARDNO $ | ||
COND P3,JUMPPLOT $ | ||
PLOT PLTPAR,GPSETS,ELSETS,CASECC,BGPDT,EQEXIN,SIL,,PPHIG,GPECT, | ||
OBES1,,/PLOTX3/V,N,NSIL/V,N,LUSET/V,N,JUMPPLOT/V,N,PLTFLG/ | ||
S,N,PFILE $ | ||
PRTMSG PLOTX3// $ | ||
LABEL P3 $ | ||
REPT RAALOOP,1000 $ | ||
JUMP QUITRAA $ | ||
LABEL ERROR5 $ | ||
PRTPARM //C,N,-3/C,N,BUCKLING $ | ||
JUMP QUITRAA $ | ||
LABEL ERROR4 $ | ||
PRTPARM //C,N,-4/C,N,BUCKLING $ | ||
LABEL QUITRAA $ | ||
JUMP FINIS $ | ||
ENDALTER |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,50 @@ | ||
$ COSMIC ALTERS FOR DDAM PROBLEMS (COSDDAM) | ||
$ ALTER 71 $ | ||
INSERT READ $ | ||
DIAGONAL MI/MIS/*SQUARE*/-0.5 $ | ||
SMPYAD MIS,MI,MIS,,,/MINEW/3 $ | ||
$ ALTER 81,86 $ | ||
DELETE SDR2,1,SDR2,4 $ | ||
$ ALTER 90 $ | ||
INSERT PLOT(2),2 $ | ||
GENCOS BGPDT,CSTM/DIRCOS/C,Y,SHOCK=0/C,Y,DIRECT=123/LUSET/S,N,NSCALE $ | ||
DIAGONAL MI/MID/*SQUARE*/-1.0 $ | ||
MPYAD MGG,PHIG,/MP/0 $ | ||
MPYAD MP,DIRCOS,/PMD/1 $ | ||
MPYAD MID,PMD,/PF/0 $ | ||
DDAMAT PF,PMD/EFFW/C,Y,GG=386.4 $ | ||
LAMX, ,LAMA/LAMB/-1 $ | ||
GENPART PF/RPLAMB,CPLAMB,RPPF,CPMP/C,Y,LMODES/S,N,NMODES $ | ||
PARTN LAMB,CPLAMB,RPLAMB/,,,OMEGA/1 $ | ||
PARAM //*GE*/TEST/C,Y,LMODES/NMODES $ | ||
COND DDAM,TEST $ | ||
PARTN PF,,RPPF/,PFR,,/1 $ | ||
EQUIV PFR,PF $ | ||
PARTN EFFW,,RPPF/,EFFWR,,/1 $ | ||
EQUIV EFFWR,EFFW $ | ||
PARTN MP,CPMP,/,,MPR,/1 $ | ||
EQUIV MPR,MP $ | ||
PARTN PHIG,CPMP,/,,PHIGR,/1 $ | ||
EQUIV PHIGR,PHIG $ | ||
LABEL DDAM $ | ||
DESVEL EFFW,OMEGA/SSDV,ACC,VWG,MINAC,MINOW2/C,Y,GG=386.4/C,Y,VEL1/ | ||
C,Y,VEL2/C,Y,VEL3/C,Y,VELA/C,Y,VELB/C,Y,VELC/C,Y,ACC1/ | ||
C,Y,ACC2/C,Y,ACC3/C,Y,ACCA/C,Y,ACCB/C,Y,ACCC/C,Y,ACCD $ | ||
DDAMAT PF,MINAC/PVW/1.0 $ | ||
DDAMAT PF,MINOW2/PVOW/1.0 $ | ||
DDAMPG PHIG,PVOW/UGV/S,N,NMODES/S,N,NDIR $ | ||
DDAMPG MP,PVW/PG/NMODES/NDIR $ | ||
CASEGEN CASECC/CASEDD/C,Y,LMODES/NDIR/NMODES $ | ||
EQUIV CASEDD,CASECC $ | ||
SDR2 CASECC,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGV,EST,,,/, | ||
OQG3,OUGV3,OES3,OEF3,,,/*STATICS*/S,N,NOSORT2=-1/-1 $ | ||
SDR3 OUGV3,,OQG3,OEF3,OES3,/OUGV4,,OQG4,OEF4,OES4, $ | ||
NRLSUM OES4,OEF4/NRLSTR,NRLFOR/NMODES/NDIR/C,Y,DIRECT=123/ | ||
C,Y,SQRSS=0 $ | ||
OFP NRLSTR,NRLFOR,,,,//S,N,CARDNO $ | ||
COMBUGV UGV/UGVADD,UGVSQR,UGVADC,UGVSQC,UGVNRL/NMODES/NDIR $ | ||
CASEGEN CASECC/CASEEE/1/NDIR/NMODES $ | ||
SDR2 CASEEE,CSTM,MPT,DIT,EQEXIN,SIL,,,BGPDT,,QG,UGVNRL,EST,,,/, | ||
,OUGV5,,,,,/*STATICS*/S,N,NOSORT2/-1 $ | ||
OFP OUGV5,,,,,//S,N,CARDNO $ | ||
ENDALTER $ |
Oops, something went wrong.