automatic connect in tecplot

Moderators: davetaflin, salter, steve, jprenaud, straton, Chris Idso

meisam
Newbie
Posts: 1
Joined: Tue May 12, 2015 9:59 am
Location: share-rey

automatic connect in tecplot

Postby meisam » Tue May 12, 2015 10:04 am

hi!
I have a problem with tecplot
I want to plot 2 separate circule in one figure but.......
tecplot connect last node of first to first node of second circle automatically.
Its make problem for my other work
in the second figure this connect is between airfoil and circle
this is the code(or attached file)
with regad! :)

implicit none
integer::i,j
real::r1,teta,r2,r
real,dimension(0:361,2):: x, y
r1=2
r2=5


do j=1,2
teta=0
if(j==1)then
r=r1
j=1
else
r=r2
end if
do i=0,360
x(i,j)=r*cos(teta)
y(i,j)=r*sin(teta)
teta=3.1415/180+teta
!print*,i,teta,x(i,j)
end do
end do



OPEN(UNIT=10,FILE='RESULT circle.PLT')
WRITE(10,*)'VARIABLES="X","Y"'
WRITE(10,*)'ZONE I=',361*2,'F=POINT'
do j=1,2

do i=0,360


WRITE(10,*)x(i,j),y(i,j)
END DO
enddo

close(10)

end
Attachments
export.jpg
export.jpg (2.11 KiB) Viewed 3541 times
eliptic.jpg
eliptic.jpg (2.91 KiB) Viewed 3541 times

Return to “Loading Data”

Who is online

Users browsing this forum: No registered users and 1 guest