Графирование в Fortran, требуется алгоритм

Question

Я пытаюсь создать программу fortran, которая будет отображать координаты X, Y на экране. У меня есть программа, получающая графики из входного файла. во входном файле первая запись - это количество очков. каждая строка после этого имеет значение x, затем пробел, а затем соответствующие значения y. Затем у меня есть программный пузырь, сортирующий значения х от наименьшего до наибольшего. следующий я хочу, чтобы график этих значений. Я хочу нарисовать их так, чтобы шкала оси x была xmax-xmin/# точек, а ось y была одинаковой. как бы я начал печатать '*' для точек как грязный граф ??? im не ищет весь ответ только в каком-то направлении, как сформировать алгоритм для записи. Ниже приведен код, который я до сих пор и пример файла ввода

Входной файл

10 
-4 16 
-3 9 
-2 4 
-1 1 
0 0 
1 1 
2 4 
3 9 
4 16 
5 25 

Код

*START OF CODE 
    PROGRAM MAIN 

*DECLARATIONS 
    INTEGER EXISTS, DONE, POINTS, USED, I, E 
    REAL XSTEP, YSTEP, XMIN, XMAX, YMIN, YMAX 
    REAL X(100), Y(100), A, B 
    CHARACTER INNAME*30, OUTNAME*30 
    LOGICAL MORE 
    CHARACTER (70) LINE 

*INITIALIZATIONS 
    INNAME='NULL.DOC' 
    EXISTS=0 
    DONE=0 
    POINTS=0 
    USED=0 
    I=0 
    E=0 
    MORE = .TRUE. 
    A=0 
    B=0 
    XSTEP = 0 
    YSTEP = 0 
    XMIN=0 
    XMAX=0 
    YMIN=0 
    YMAX=0 


*CLEAR THE ARRAYS  
    DO I=1,100 
    X(I)=0 
    Y(I)=0 
    END DO 
    I=0 

*FORMATS 
5  FORMAT(' ','POINT #', I3, ' X=', F5.2,' Y=', F5.2) 
10 FORMAT(' ','XMIN=',F5.2, ' XMAX=', F5.2) 
15 FORMAT(' ','YMIN=',F5.2, ' YMAX=', F5.2) 
20 FORMAT(' ','X STEP=',F5.2, ' Y STEP=', F5.2) 



*MAIN CODE 
**************************************************************** 


*PROMPT FOR NAME OF FILE AND INPUT 
PRINT *,'PLEASE INPUT A FILE NAME INCLUDING AN EXTENSION' 
PRINT *,'ENTER QUIT OR Q TO EXIT' 
READ (*,*) INNAME 

*OPEN IF(0)      
IF(INNAME.EQ.'Q'.OR.INNAME.EQ.'QUIT')THEN 
PRINT *,'GOODBYE' 
ELSE  

*TEST FOR FILE 
INQUIRE(FILE=INNAME, EXIST=EXISTS) 

*IF EXIST=FALSE, DISPLAY MESSAGE 
IF(.NOT.EXISTS) THEN 
PRINT *,'FILE DOES NOT EXIST, PLEASE TRY AGAIN'  

*ELSE EXIST=TRUE, OPEN (UNIT=1) 
ELSE 
OPEN(UNIT=1, FILE=INNAME, STATUS='OLD') 
END IF 

************************************************************* 

*ASK CHOICES FOR OUTPUT 
PRINT *,'PLEASE ENTER A NAME FOR AN OUTPUT FILE W/ EXTENSION' 
PRINT *,'ENTER QUIT OR Q TO EXIT' 
READ(*,*)OUTNAME 

IF(OUTNAME.EQ.'Q'.OR.OUTNAME.EQ.'QUIT')THEN 
PRINT *,'GOODBYE' 
ELSE 

************************************************************* 
*CHECK IF DONE (IF 1) 
IF(DONE.EQ.0)THEN 

*OPEN THE OUTPUT FILE DO(2) 
DO WHILE(USED.EQ.0) 
INQUIRE(FILE=OUTNAME,EXIST=EXISTS) 

*OPEN IF(2) FOR IF FILE ALREADY EXISTS 
IF(EXISTS.EQ.1)THEN 
OPEN(UNIT=2,FILE=OUTNAME,STATUS='OLD') 

*END IF FOR IF FILE ALREADY EXISTS AMD OPEN IF DID NOT EXIST,    
ELSE 
OPEN(UNIT=2,FILE=OUTNAME,STATUS='NEW') 

*END IF (2)     
END IF 

*READ IN 1 INTEGER (MAXIMUM VALUE OF 100) FOR # OF POINTS IN FILE 
READ(1,*, END=111),POINTS 

*READ IN X AND Y VALUES WITH MAX OF 100 
DO I=1, POINTS 
READ(1,*,END=111) X(I),Y(I) 
END DO 

*SORT POINTS 
E = POINTS - 1 
MORE = .TRUE. 
DO WHILE (MORE .EQ. .TRUE.) 
MORE = .FALSE. 
DO I=1, E 
IF(X(I).GT.X(I+1)) THEN 
MORE = .TRUE. 
A=X(I) 
B=y(I) 
X(I)=X(I+1) 
Y(I)=Y(I+1) 
X(I+1)=A 
Y(I+1)=B 
END IF 
END DO 
E=E-1 
END DO 

*FIND MIN AND MAX OF X AND Y 
I=1 
XMIN = X(I) 
XMAX = X(POINTS) 
YMIN = Y(I) 
YMAX = Y(I) 
DO I=1, POINTS 
IF(Y(I) .LT. YMIN) THEN 
YMIN = Y(I) 
END IF 
IF(Y(I) .GT. YMAX) THEN 
YMAX = Y(I) 
END IF 
END DO 

*fIND X AND Y STEPS  
XSTEP = (XMAX-XMIN)/POINTS 
YSTEP = (YMAX-YMIN)/POINTS 



*PRINT TO THE OUTPUT FILE 
DO I=1, POINTS 
WRITE(2,5)I,X(I),Y(I) 
END DO 
WRITE(2,10)XMIN,XMAX 
WRITE(2,15)YMIN,YMAX 
WRITE(2,20)XSTEP,YSTEP 
*PRINT GRAPH 


*END DO (2) 
END DO 

*END IF (1) 
END IF 

*END IF QUIT(S) 
END IF 
END IF 

*CLOSE THE FILES 
    CLOSE(UNIT=1) 
    CLOSE(UNIT=2) 

111 PRINT * , 'The Program Has Now Ended' 

*STOP 
    STOP 

*END 
    END  

Answer 1

если вы хотите что-то быстро и грязно, самый простой подход, безусловно, является для построения графика в боковом направлении (не так плохо, как кажется, если вы собираетесь печатать на бумаге). то вы можете просто напечатать каждую строку с длиной, пропорциональной у (теперь х) значение (с * в конце, или все * с для гистограммы):

+-------------------------------------> y 
|   * 
|   * 
|   * 
. etc 

в противном случае, если вы не делаете хотите использовать библиотеку, все усложняется довольно быстро. следующий простейший подход состоит в том, чтобы сделать 2d массив символов (размер вашего экрана), изначально заполненных пробелами, а затем «заговор» на это; после этого вы можете распечатать его, прочитав строки подряд и распечатав их. преимущество заключается в том, что он отделяет оси от данных - если вы пытаетесь сделать все, когда печатаете линию, различные задачи перепутаны.

, но график скоро становится более сложным, чем вы ожидали. например, выбор меток и печатных меток - сама по себе важная задача. вы действительно лучше используете библиотеку (именно поэтому я предложил сначала подход с боком - если это так быстро + грязно, что вы не хотите использовать библиотеку, то это часто бывает достаточно хорошим).

(this is the kind, если что вы можете сделать очень быстро - я бросил, что вместе в течение нескольких минут)

обновление: для отметки времени (это становится слишком сложно!) Вы хотите алгоритм графики гем - it's pretty much the standard, and the paper is easy to understand. что дает вам полный диапазон (а также интервал тиков), а затем масштабирование легко (персонаж «стоит» (xmax-xmin)/nchars, как вы говорите, - не знаете, что еще объяснить?).