|
[Sponsors] |
May 12, 2015, 10:05 |
automatic connect in figure
|
#1 |
New Member
morad
Join Date: Jul 2013
Posts: 8
Rep Power: 13 |
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 export.jpg eliptic.jpg Last edited by big-bang; May 12, 2015 at 12:43. |
|
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Overflow Error in Multiphase Modelling with Two Continuous Fluids | ashtonJ | CFX | 6 | August 11, 2014 15:32 |
[ICEM] Automatic geometry preparation for hex mesh and circle curve splitting | waiter120 | ANSYS Meshing & Geometry | 2 | May 5, 2013 12:00 |
transient simulation of a rotating rectangle | icesniffer | CFX | 1 | August 8, 2009 08:25 |
connect failed with errno%3d113 | wedsall | OpenFOAM Running, Solving & CFD | 2 | November 3, 2008 05:17 |
Abt: Schlieren figure in Tecplot using data | jinwon park | Tecplot | 2 | December 27, 2007 07:48 |