evren
Joined: 09 Apr 2013 Posts: 2
|
Posted: Tue Apr 09, 2013 11:13 pm Post subject: I have a problem about x,y axis,please help me |
|
|
c--Simple1.for
WINAPP
INTEGER N,winio@,i,k
PARAMETER(N=3
REAL*8 x(N),y(N)
real,dimension(3::der
c--Create the data to be plotted.
k=0
DO i= -180,180,10
k=k+1
der(k)=(i*3.1415962)/180
x(k)=i
y(k)=SIN(der(k))
END DO
c--Plot the data.
i=winio@('%ca[evren]%bg[blue]&')
i=winio@('%pl[x_array]&',700,700,N,x,y)
i=winio@('%ff%cn%tt[OK]')
END[/quote][/code] |
|