討論區快速選單
知識庫快速選單
網路投保旅行平安險 網路投保旅行平安險
[ 回上頁 ] [ 討論區發言規則 ]
一個秀出螢幕圖形的範列
更改我的閱讀文章字型大小
作者 : changtenchun(qq) 貼文超過200則人氣指數超過30000點
[ 貼文 376 | 人氣 36017 | 評價 1040 | 評價/貼文 2.77 | 送出評價 69 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/9/3 下午 07:33:35
EXTERNAL F1
  CALL draw(-1.0,1.0,0.1,0.02,'*','I',1,2,F1)
     read(*,*)
stop
END
c-----
FUNCTION F1(X)
F1=1.0/(1.0+25.0*X*X)
RETURN
END
c----------------------------------------
SUBROUTINEdraw(A,B,H,D,YC,XC,K,N,F)
CHARACTER C(60)
CHARACTER YC,XC
WRITE(*,*)
WRITE(*,10) A,B
10 FORMAT(1X,'BEGIN=',E13.6,10X,'END=',E13.6)
WRITE(*,20) H
20 FORMAT(1X,'STEP=',E13.6)
WRITE(*,30) D
30 FORMAT(1X,'SCALE=',E13.6)
WRITE(*,*)
IF (K.LT.1) K=1
IF (K.GT.60) K=60
C(K)=XC
L=0
X=A
40 IF (X.LE.B) THEN
Y=F(X)
YY=Y/D
IF (YY.GE.0.0) M=YY+0.5
IF (YY.LT.0.0) THEN
M=ABS(YY)+0.5
M=-M
END IF
M=K+M
IF (M.LT.1) M=1
IF (M.GT.60) M=60
DO 50 I=1,60
IF (I.NE.K) C(I)=' '
50 CONTINUE
IF (M.NE.K) C(M)=YC
IF (L.EQ.0) THEN
WRITE(*,60) Y,(C(I),I=1,60)
ELSE
WRITE(*,70) (C(I),I=1,60)
END IF
L=L+1
IF (L.EQ.N) L=0
X=X+H
GOTO 40
END IF
60 FORMAT(1X,E13.6,60A1)
70 FORMAT(14X,60A1)
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.03125