Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations cowski on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Path results - radial displacement

Status
Not open for further replies.

arnoldh

Automotive
Joined
Feb 25, 2004
Messages
19
Location
DE
Dear Ansys users

when I want to get the path results from a straight edge in WB, I use the code snippet

/POST1
/show,png
/gfile,650
/RGB,INDEX,100,100,100,0
/RGB,INDEX,0,0,0,15

PATH,straigth,2,6,20

PPATH,1,,41.275,41.275,52.387,
PPATH,2,,41.275,41.275,68.263,

PDEF,straigth,U,X,
PCALC,DERI,dstraigth,straigth,S,1,1,

PLPATH,zyl
PLPATH,dzyl
PAGET,PathData,TABLE
*CREATE,ansuitmp
*CFOPEN,'C:\temp\straigth','txt',' '
*VWRITE,'point','x','y','z','s','zyl','dzyl'
(A5,' ',A12,' ',A12,' ',A12,' ',A12,' ',A12,' ',A12)
*VWRITE,SEQU,PathData(1,1,1),PathData(1,2,1),PathData(1,3,1),PathData(1,4,1),PathData(1,5,1),PathData(1,6,1)
(F5.0,' ',E12.6,' ',E12.6,' ',E12.6,' ',E12.6,' ',E12.6,' ',E12.6)
*CFCLOS
*END
/INPUT,ansuitmp

I would like to change the snippet, so I can use it for a curved edge (a quarter cylinder edge) by defining two points, and then determine the radial deformation. The cylindrical CS for the radial displacement is CS 52 (which lies in the centre of the cylinder). Can anybody tell me how I have to modify this APDL code to get the radial results?

Regards,

Arnold
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top