Silverfrost Forums

Welcome to our forums

I have a problem about x,y axis,please help me

9 Apr 2013 10:13 #12012

c--Simple1.for WINAPP INTEGER N,winio@,i,k PARAMETER(N=38) REAL*8 x(N),y(N) real,dimension(38)::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]
10 Apr 2013 12:04 #12013

Tic marks are wrongly positioned? That's a known bug Take the full version of Simplelot for which follow this link

https://forums.silverfrost.com/Forum/Topic/2204

Compile your program: FTN95 yourprogram.f95 SLINK yourprogram.obj SIMPLE.DLL

Before linking copy simple.dll from main ftn95 dir to your working one if SLINK does not find it

Please login to reply.