討論區快速選單
知識庫快速選單
討論區最近新進100則主題 程式設計俱樂部Facebook粉絲團
[ 回上頁 ] [ 討論區發言規則 ]
一個秀出螢幕圖形的範列(繪出x-y雙軸及兩個圖形)
更改我的閱讀文章字型大小
作者 : changtenchun(qq) 貼文超過200則人氣指數超過30000點
[ 貼文 376 | 人氣 36017 | 評價 1040 | 評價/貼文 2.77 | 送出評價 69 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/8/19 下午 02:16:44
DIMENSION A(50,2)
CHARACTER XC,YC,C
XC='+'
YC='+'
C='*'
N=50
DO 10 K=1,N
FI=0.2*(K-1)
A(K,1)=2.0+FI*COS(FI)
A(K,2)=FI*SIN(FI)
10 CONTINUE
CALL PPLOT(N,A,XC,YC,C,XD,YD)
pause
stop
END
 
c-------------------------
     SUBROUTINE PPLOT(N,A,XC,YC,C,XD,YD)
DIMENSION A(N,2)
CHARACTER XY(72,72)
CHARACTER XC,YC,C
DO 10 I=1,72
DO 10 J=1,72
10 XY(I,J)=' '
XY(1,36)='Y'
DO 20 I=2,72
20 XY(I,36)=YC
XY(37,72)='X'
DO 30 J=1,71
30 XY(37,J)=XC
XD=0.0
YD=0.0
DO 40 K=1,N
IF (ABS(A(K,1)).GT.XD) XD=ABS(A(K,1))
IF (ABS(A(K,2)).GT.YD) YD=ABS(A(K,2))
40 CONTINUE
XD=35/XD
YD=35/YD
DO 50 K=1,N
I=37.0-YD*A(K,2)+0.5
J=XD*A(K,1)+36.0+0.5
XY(I,J)=C
50 CONTINUE
WRITE(*,*)
DO 60 I=1,72
WRITE(*,70) (XY(I,J),J=1,72)
60 CONTINUE
70 FORMAT(1X,72A1)
WRITE(*,*)
WRITE(*,80) XD
80 FORMAT(1X,'X-SCALE IS: ',E15.6)
WRITE(*,90) YD
90 FORMAT(1X,'Y-SCALE IS: ',E15.6)
WRITE(*,*)
RETURN
END
 板主 : 徵求中
 > Fortran - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Fortran - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Fortran
1 f77f95 3300 
2 dennis 470 
3 cc 350 
4 smallpotato 320 
5 qq 290 
6 冼鏡光 230 
7 eraser 220 
8 小文 210 
9 iner 200 
10 wuda 160 
Fortran
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2018 程式設計俱樂部 http://www.programmer-club.com.tw/
0.015625