/fil, RESP
/tit, RESP kommando zur erzeugung spektrum

/stit,1, erzeuge demo model fuer amplitude=f(t) DOF result

/PREP7  	
ET,1,MASS21 
ET,2,COMBIN14  
 
KEYOPT,1,1,0
KEYOPT,1,2,0
KEYOPT,1,3,4

KEYOPT,2,1,0
KEYOPT,2,2,0
KEYOPT,2,3,2

R,1,.1, 	! masse 100g
R,2,1, , ,  	! k= 1N/mm

n   
n,,,50  

e,2 
type,2  
real,2
e,1,2 
  
/SOLU
d,1,all 
d,2,ux  
acel,,10

time,11 
nsubst,111,111,11   
outres,all,all 
antype,4
solve   

/POST1   
SET,LIST
FINISH 
fini

/stit,2, erzeuge demo spektrum aus amplitude=f(t) DOF result
 
/POST26 
NSOL,2,2,U,Y, UY_2   		! demo verschiebung= f(t) DOF
plvar,2

/wait,3

FILLDATA,3,1,111,1,0.,.1,   	! frequenzband - variable als abszisse spektrum 
RESP,4,3,2,1, , ,,, 		! verschiebungs spektrum ueber frequenzband
xvar,3	
/axlab,x,frequency  
/axlab,y,DOF UY Amplitude   				
plvar,4