freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

《fortran圖形操作》ppt課件-預(yù)覽頁

2025-06-05 05:50 上一頁面

下一頁面
 

【正文】 示該像素點(diǎn)不填充顏色;第 n個(gè)數(shù)組元素對(duì)應(yīng)填充元的第 n行。 USE MSFLIB REAL(8) x, y PARAMETER(pi=) INTEGER(2) status REAL(8):: DZ = , XJG = CALL SETVIEWPORT( 49, 49, 80050, 60050) DO x = 0, DZ, XJG ! 畫函數(shù)曲線 y = sin(x)**3 status=SETPIXELRGB_W(x, y, FFFFFF) END DO END xy 3sin?? 設(shè)置繪圖起點(diǎn) CALL MOVETO(x, y, xy) CALL MOVETO_W (wx, wy, wxy) wx、 wy均為 REAL(8)型,其意義為目標(biāo)點(diǎn)的視窗坐標(biāo); wxy為結(jié)構(gòu)體WXYCOORD型的變量,結(jié)構(gòu)體 WXYCOORD類型在 定義如下: TYPE wxycoord REAL(8) wx ! x坐標(biāo) REAL(8) wy ! y坐標(biāo) END TYPE wxycoord ? 繪制形狀 ? 繪制直線 result = LINETO (x, y) result = LINETO_ W (wx, wy) USE MSFLIB INTEGER(2) status TYPE (xycoord) xy status=SETCOLORRGB(FFFFFF) CALL MOVETO(INT2(80), INT2(50), xy) status = LINETO(INT2(240), INT2(150)) CALL SETLINESTYLE (FF00) status = LINETO(INT2(240), INT2(50)) READ (*,*) ! 按回車鍵結(jié)束程序 END ? 繪制矩形 result = RECTANGLE (control, xl, yl, x2, y2) result = RECTANGLE_W(control, wxl, wyl, wx2, wy2) 說明: ( 1) result為 INTEGER (2)型。 ? 繪制橢圓 result = ELLIPSE (control, xl, yl, x2, y2) result = ELLIPSE_W (control, wxl, wyl, wx2, wy2) (xl, yl)、 (wxl, wyl)為 視口坐標(biāo)系中橢圓外接矩形框左上角的 坐 標(biāo) (x2, y2)、 ( wx2, wy2)為視口坐標(biāo)系中橢圓外接矩形框右下角的坐標(biāo) 使外接矩形為正方形即可畫圓。當(dāng)前字形特征(如字體、字符的高和寬等)由 options指定,其取值及意義如表所示。 USE MSFLIB TYPE(XYCOORD) xy INTEGER(4) tcolor INTEGER(2) status CHARACTER*8::tfont,ttype(3)*20 ttype=(/39。, 39。//TRIM(ttype(i))//tfont) CALL SETGTEXTROTATION (i*150) CALL OUTGTEXT(歡迎 ) tcolor = tcolor*100 END DO 10 FORMAT(39。 分析: ( 1)用 score數(shù)組存放成績,用 p數(shù)組存放各成績段的人數(shù)( p(1) 存放 90~100的人數(shù), ……, p(5) 存放低于 60分的人數(shù))。h32p39。 y3 = 0 per = 0 DO i=1, k ! 計(jì)算扇形大小 per = per + 2*pi*p(i)/n x4 = cos(pe
點(diǎn)擊復(fù)制文檔內(nèi)容
教學(xué)課件相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖鄂ICP備17016276號(hào)-1