XANSYS Message: 18512 [Go back to message list]
[bookmark on del.icio.us]
No rating yet

Rate item: 10 (Good) 5 0 -5 -10 (Bad)

---

Subject: Re: Magnetic Field Animation
Author: Bill Bulat
Date: 2000-11-30 13:47:00

Also, at release 5.6, you could try

Utility Menu => PlotCtrls => Animate => Time-Harmonic...

which invokes the ANHARM macro (type help,ANHARM in the ANSYS Input window
for more details).

Bill Bulat
CSI

----- Original Message -----
To:
Sent: Thursday, November 30, 2000 9:29 AM

> Ara,

> I've used this macro segment for visualizing high frequency waves in the
> past. Modify it to extract and display HSUM.

> /com, Macro to create animation sequence of a harmonic analysis
> /com, Arg1 = 0 (H-field animation)
> /com, Arg1 = 1 (EF-field animation)

> !*ask,ssnum,The substep# you wish to animate,1
> !*ask,n,The number of frames per cycle,15
> ssnum=1
> n=15

> /post1

> *afun,deg
> lcdef,1,1,ssnum,0 ! real
> lcdef,2,1,ssnum,1 ! imaginary

> /com, *** get max and min values for contour intervals ***
> /graphics,full
> lcase,1
> nsort,h,sum
> *get,hremx,sort,,max
> *get,hremn,sort,,min
> nsort,ef,sum
> *get,efremx,sort,,max
> *get,efremn,sort,,min
> lcase,2
> nsort,h,sum
> *get,himmx,sort,,max
> *get,himmn,sort,,min
> nsort,ef,sum
> *get,efimmx,sort,,max
> *get,efimmn,sort,,min

> *if,hremx,gt,himmx,then
> hmax=hremx
> *else
> hmax=himmx
> *endif
> *if,hremn,lt,himmn,then
> hmin=hremn
> *else
> hmin=himmn
> *endif
> *if,efremx,gt,efimmx,then
> efmax=efremx
> *else
> efmax=efimmx
> *endif
> *if,efremn,lt,efimmn,then
> efmin=efremn
> *else
> efmin=efimmn
> *endif

> /graphics,power

> /com, *** Put graphics commands here to create plots ***

> /pbc,all,0
> /ctype,1
> /view,,1,1,1
> /plopts,minm,off
> /triad,off
> /gres,plot,gsav
> /expand,2,rect,half,,0.00001
> /dev,font,1,helvetica,medium,r,16,,,,,

> /com, *** Create looping of displays in time ***

> /seg,dele
> /seg,multi
> *do,theta,0,360-360/n,360/n
> real=cos(theta)
> imag=-sin(theta)
> lcfact,1,real
> lcfact,2,imag
> *if,real,eq,0,then
> lcfact,1,1e-10
> *endif
> *if,imag,eq,0,then
> lcfact,2,1e-10
> *endif
> lcase,1
> lcoper,add,2

> *if,arg1,eq,0,then
> /title, Contours of Magnetic Field Strength
> hinc=(hmax-hmin)/9*.05
> /contour,all,9,hmin,,hmax+hinc
> plnsol,h,sum
> *elseif,arg1,eq,1,then
> /title, Contours of Electric Field Strength
> efinc=(efmax-efmin)/9*.05
> /contour,all,9,efmin,,efmax+efinc
> plnsol,ef,sum
> *endif
> *enddo

> /seg,off
> !*ask,ncycles,The number of full period cycles,10
> !*ask,delay,Delay between successive frames,0.1
> ncycles=10
> delay=0.1

> anim,ncycles,1,delay
> /anfile,save,harm1,avi
> finish

> Best Regards,
> Steve Groothuis
> Micron Technology, Inc.
> 500 W. Renner Road, MS 323
> Richardson, TX 75080
> Tel: 972.994.3612
> Fax: 972.994.4544
> Pgr: 888.787.1328
> Email: skgroothuis@m...

> -----Original Message-----
> From: Ara.Panosyan@s...
> Sent: Thursday, November 30, 2000 11:12 AM
> To: xansys
> Subject: [xansys] Magnetic Field Animation

> Hi everyone..

> I have done a 2D linear harmonic analysis on a 3 phase cable and got
> the complex results. I got the real and imaginary part of the
> magnetic field (HSUM) and used the SSRS of the real and imaginary
> part to get the amplitude.

> Now my problem....
> how can I animate the HSUM amplitude over (Omega.t) for a full period
> (2.phi) ??

> I am new to Ansys and till now I have been using only the GUI
> commands.
> I read some of the posts here about animations, and noticed that some
> suggested some kind of macro. But I couldn't understand the
> macros...because as I said, I have been working only with GUI !!
> so I hope you guys keep the explanation simple :-)

> thank you

> Ara

---

Posts possibly associated with message #18512		Author	Date	Score
18503	Magnetic Field Animation	Ara.Panosyan@	2000/11/30
18505	Re: Magnetic Field Animation	Steve Groothuis	2000/11/30
18512	Re: Magnetic Field Animation	Bill Bulat	2000/11/30