libMesh / libmesh

libMesh github repository
http://libmesh.github.io
GNU Lesser General Public License v2.1
657 stars 286 forks source link

automatic connect in figure #609

Closed AhmadNemati closed 9 years ago

AhmadNemati commented 9 years ago

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)=rcos(teta) y(i,j)=rsin(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

eliptic export

roystgnr commented 9 years ago

This is a tecplot issue, not a libMesh issue, and definitely not a spam-half-a-dozen-unconnected-projects issue.