!ƶغ£񶯣ıκӦȾغôƶغɵֶЧӦǲɺӵģغɴľλͬʱ㹲ôᷢϴĶ̬ӦӶƻƶغΪƶĳģƶغµĶ̬ӦΪ߷ЧʣǰڳʼλȷѾ˺ꡰMODEL.MACڱֻҪֱӵøú꣬ԪĳӦֵΪ0.0043ɵõƶغ÷Ԫģ͡
!
FINI								!˳
/CLE
/FILNAME,CABLE_BRIDGE,1
/TITLE,YIDONG HEZAI OF CABLE_BRIDGE
!ģ
!"MODEL"ļӦڹĿ¼¡
MODEL								!кģ
!ؼ
!еƶغΪٳغзغMG2000N򻯳ĸϵȼغɣּΪ8MΪ浥ԪĳȣгF=500COS(10T)غƶٶV120/Сʱ
!
!
DELTL=4							!浥Ԫ
V=120								!غƶٶ
DELTT=DELTL/V*3.6				!ؾһԪʱ
F=1000								!С
W=10								!гԲƵ
LF=8								!ǰּ
NUM=54							!浥Ԫ
MM=NUM+1+LF/DELTL			!ѭĿ
!÷ѡ
FINI
/SOLU
ANTYPE,4							!ָΪ˲̬ѧ
TRNOPT,FULL						!˲̬ѧFULL
NLGEOM,ON
NROPT,FULL  
!Ӱ
TIMINT,OFF
TIME,1E-8
KBC,1
NSUBST,5
SSTIF,ON
ACEL,,9.8
ALLS
SOLVE                                 	!
!ʩӳƶغɲ
TIMINT,ON                             !ʱֿ
KBC,0
*DO,I,1,MM,1
OUTRES,ALL,ALL					!ÿһĽ
TIME,I*DELTT
NSUBST,5

!******************************
*IF,I,LT,LF/DELTL,THEN
	FDELE,ALL,ALL					!ɾмغ
	NSEL,S,LOC,X,I*DELTL
	NSEL,R,LOC,Y
	NSEL,R,LOC,Z,1.89
	F,ALL,FY,-F					!ʩӳغ
	ALLS
	NSEL,S,LOC,X,I*DELTL
	NSEL,R,LOC,Y
	NSEL,R,LOC,Z,BW-1.89
	F,ALL,FY,-F					!ʩӳغ
	ALLS
	SOLV
*ELSEIF,I,LT,(NUM+1)
	FDELE,ALL,ALL
	NSEL,S,LOC,X,I*DELTL
	NSEL,R,LOC,Y
	NSEL,R,LOC,Z,1.89
	F,ALL,FY,-F					!ʩӳغ
	ALLS
	NSEL,S,LOC,X,I*DELTL
	NSEL,R,LOC,Y
	NSEL,R,LOC,Z,BW-1.89
	F,ALL,FY,-F					!ʩӳغ
	ALLS
	NSEL,S,LOC,X,(I-2)*DELTL
	NSEL,R,LOC,Y
	NSEL,R,LOC,Z,1.89
	F,ALL,FY,-F					!ʩӳغ
	ALLS
	NSEL,S,LOC,X,(I-2)*DELTL
	NSEL,R,LOC,Y
	NSEL,R,LOC,Z,BW-1.89
	F,ALL,FY,-F					!ʩӳغ
	ALLS
	SOLV
*ELSE
	FDELE,ALL,ALL
	NSEL,S,LOC,X,(I-2)*DELTL
	NSEL,R,LOC,Y
	NSEL,R,LOC,Z,1.89
	F,ALL,FY,-F					!ʩӳغ
	ALLS
	NSEL,S,LOC,X,(I-2)*DELTL
	NSEL,R,LOC,Y
	NSEL,R,LOC,Z,BW-1.89
	F,ALL,FY,-F					!ʩӳغ
	ALLS
	SOLV
*ENDIF
*ENDDO
!************************
!**************г******************
*IF,I,LT,LF/DELTL,THEN
	FDELE,ALL,ALL					!ɾмغ
	NSEL,S,LOC,X,I*DELTL
	NSEL,R,LOC,Y
	NSEL,R,LOC,Z,1.89
	F,ALL,FY,-F					!ʩӳغ
	ALLS
	NSEL,S,LOC,X,I*DELTL
	NSEL,R,LOC,Y
	NSEL,R,LOC,Z,BW-1.89
	F,ALL,FY,-F					!ʩӳغ
	ALLS
	SOLV
*ELSEIF,I,LT,(NUM+1)
	FDELE,ALL,ALL
	NSEL,S,LOC,X,I*DELTL
	NSEL,R,LOC,Y
	NSEL,R,LOC,Z,1.89
	F,ALL,FY,-F					!ʩӳغ
	ALLS
	NSEL,S,LOC,X,I*DELTL
	NSEL,R,LOC,Y
	NSEL,R,LOC,Z,BW-1.89
	F,ALL,FY,-F					!ʩӳغ
	ALLS
	NSEL,S,LOC,X,(I-2)*DELTL
	NSEL,R,LOC,Y
	NSEL,R,LOC,Z,1.89
	F,ALL,FY,-F					!ʩӳغ
	ALLS
	NSEL,S,LOC,X,(I-2)*DELTL
	NSEL,R,LOC,Y
	NSEL,R,LOC,Z,BW-1.89
	F,ALL,FY,-F					!ʩӳغ
	ALLS
	SOLV
*ELSE
	FDELE,ALL,ALL
	NSEL,S,LOC,X,(I-2)*DELTL
	NSEL,R,LOC,Y
	NSEL,R,LOC,Z,1.89
	F,ALL,FY,-F					!ʩӳغ
	ALLS
	NSEL,S,LOC,X,(I-2)*DELTL
	NSEL,R,LOC,Y
	NSEL,R,LOC,Z,BW-1.89
	F,ALL,FY,-F					!ʩӳغ
	ALLS
	SOLV
*ENDIF
*ENDDO
!***************************************
FINI
/POST1						!ͨú
SET,30,2					!鿴302ӲغƶиĽ
PLNSOL, U,Y				!ʾyλͼ
PLNSOL, S,EQV				!ʾЧӦͼ
/POST26					!ʱ̺
NUMVAR,20				!ָı
NSOL,2,677,U,Y, UY_CENT  !ȡмڵYλ
DERIV,3,2,1,,VY_CENT		!мڵYλ΢㣬õYٶ
PLVAR,2					!ʾмڵYλʱ仯
PLVAR,3					!ʾмڵYٶʱ仯

