本帖最后由 zengxiaodong 于 2015-12-6 08:54 编辑
*set,II,1153873.3374162411843244072844507
*AFUN,Deg
*SET,AA,-35449955*1.16*0.0
*SET,AAA,50
*SET,IA,AA*sin(90+AAA+Ang*16)
*SET,IB,AA*sin(90+AAA+Ang*16-120)
*SET,IC,-1.0*(IA+IB)
ALLSEL
/solu
antyp,static,new
RESCONTROL,define,last,last
BFA, A+,JS, , , IA,0
BFA, A-,JS, , , -IA,0
BFA, B+,JS, , , IB,0
BFA, B-,JS, , , -IB,0
BFA, C+,JS, , , IC,0
BFA, C-,JS, , , -IC,0
Cnvtol,csg,,1.0e-12
eqslv,sparse,,,,keep
SOLVE
finish
/post1
CMSEL,S,'rotor'
NSLE
ESLN
EMFT
*set,TQ,_tzsum*0.087*8
*CFOPEN, 'c:\TQres',txt, , Append
*VWRITE,Ang,TQ
(2e16.8)
*CFCLOS
finish
ALLSEL,ALL
/solu
antyp,static,restart,,,perturb
perturb,stat,TANGENT,current,allkeep
solve,elform
BFADELE,all,JS
BFA, A+,JS, , , II,0
BFA, A-,JS, , , -II,0
solve
BFADELE,all,JS
BFA, B+,JS, , , II,0
BFA, B-,JS, , , -II,0
solve
BFADELE,all,JS
BFA, C+,JS, , , II,0
BFA, C-,JS, , , -II,0
solve
BFADELE,all,JS
BFA, A+,JS, , , II,0
BFA, A-,JS, , , -II,0
BFA, B+,JS, , , II,0
BFA, B-,JS, , , -II,0
solve
BFADELE,all,JS
BFA, A+,JS, , , II,0
BFA, A-,JS, , , -II,0
BFA, C+,JS, , , II,0
BFA, C-,JS, , , -II,0
solve
BFADELE,all,JS
BFA, B+,JS, , , II,0
BFA, B-,JS, , , -II,0
BFA, C+,JS, , , II,0
BFA, C-,JS, , , -II,0
solve
finish
/post1
file,,rstp
set,1,last
etable,_iene,iene
etable,_coen,coen
ssum
*get,iene_1,ssum,,item,_iene
*get,coen_1,ssum,,item,_coen
L1=2*iene_1*8*0.087
PSIA=coen_1*8*0.087
set,2,last
etable,_iene,iene
etable,_coen,coen
ssum
*get,iene_2,ssum,,item,_iene
*get,coen_2,ssum,,item,_coen
L2=2*iene_2*8*0.087
PSIB=coen_2*8*0.087
set,3,last
etable,_iene,iene
etable,_coen,coen
ssum
*get,iene_3,ssum,,item,_iene
*get,coen_3,ssum,,item,_coen
L3=2*iene_3*8*0.087
PSIC=coen_3*8*0.087
set,4,last
etable,_iene,iene
ssum
*get,iene_12,ssum,,item,_iene
L12=(iene_12-iene_1-iene_2)*0.087*8
set,5,last
etable,_iene,iene
ssum
*get,iene_13,ssum,,item,_iene
L13=(iene_13-iene_1-iene_3)*0.087*8
set,6,last
etable,_iene,iene
ssum
*get,iene_23,ssum,,item,_iene
L23=(iene_23-iene_2-iene_3)*0.087*8
*CFOPEN, 'c:\Allres',txt, , Append
*VWRITE,Ang,L1,L2,L3,L12,L13,L23,PSIA,PSIB,PSIC
(10e16.8)
*CFCLOS
finish
|