?? sin.f90
字號:
! sin函數的繪圖范例
program Plot_Sine
use DFLIB
implicit none
integer, parameter :: lines=500 ! 用多少線段來畫函數曲線
real(kind=8), parameter :: X_Start=-5.0 ! x軸最小范圍
real(kind=8), parameter :: X_End=5.0 ! x軸最大范圍
real(kind=8), parameter :: Y_Top=2.0 ! y軸最大范圍
real(kind=8), parameter :: Y_Bottom=-2.0 ! y軸最小范圍
integer :: result ! 取回繪圖函數運行狀態
integer(kind=2) :: color ! 設定顏色用
real(kind=8) :: step ! 循環的增量
real(kind=8) :: x,y ! 繪圖時使用,每條小線段都連接
real(kind=8) :: NewX,NewY ! (x,y)及(NewX,NewY)
real(kind=8), external :: f ! 待繪圖的函數
type(wxycoord) :: wt ! 返回上一次的邏輯坐標位置
type(xycoord) :: t ! 返回上一次的實際坐標位置
! 設定邏輯坐標范圍大小
result=SetWindow( .true. , X_Start, Y_Top, X_End, Y_Bottom )
! 用索引值的方法來設定顏色
result=SetColor(2) ! 默認的2號是應該是綠色
call MoveTo(10,20,t) ! 移動畫筆到窗口的(10,20)
call OutGText("f(x)=sin(x)") ! 寫出內容
! 使用全彩RGB 0-255的256種色階來設定顏色
color=RGBToInteger(255,0,0) ! 把控制RGB的三個值轉換到color中
result=SetColorRGB(color) ! 利用color來設定顏色
call MoveTo_W(X_Start,0.0_8,wt) ! 畫X軸
result=LineTo_W(X_End,0.0_8) !
call MoveTo_W(0.0_8,Y_Top,wt) ! 畫Y軸
result=LineTo_W(0.0_8,Y_Bottom) !
step=(X_End-X_Start)/lines ! 計算小線段間的X間距
! 參數#FF0000是使用16進制的方法來表示一個整數
result=SetColorRGB(#FF0000)
! 開始繪制小線段們
do x=X_Start,X_End-step,step
y=f(x) ! 線段的左端點
NewX=x+step
NewY=f(NewX) ! 線段的右端點
call MoveTo_W(x,y,wt)
result=LineTo_W(NewX,NewY)
end do
! 設定程序結束后,窗口會繼續保留
result=SetExitQQ(QWIN$EXITPERSIST)
end
! 所要繪圖的函數
real(kind=8) function f(x)
implicit none
real(kind=8) :: x
f=sin(x)
return
end function f
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -