| 查看: 272 | 回复: 0 | |||
linliuqiu新虫 (初入文坛)
|
[交流]
【求助】高手指点下该怎么改
|
我想通过编程画出下图这样的图形，但是，我画出来的是椭圆的，怎样画出大小形状一样的图。 我的程序是： SUBROUTINE DRAW ! ! USE DFLIB USE DATA_MODULE TYPE (wxycoord) poly(4) bcolor=SETBKCOLORRGB(#FFFFFF) !white CALL CLEARSCREEN( $GCLEARSCREEN ) status = SETWINDOW( .TRUE., 0.0_8, 0.0_8, DofX+1.0_8, REAL (DofY+1.0_8)) !!!!!!!!!!!!! DO j = 1, DofY DO i = 1, DofX X1=i-0.5 Y1=j-0.5 X2=i+0.5 Y2=j+0.5 IF (ET(i,j)==0) THEN color = SETCOLORRGB (#FFFFFF) !white status = ELLIPSE_W ( $GFILLINTERIOR ,X1,Y1,X2,Y2) ELSE IF (ET(i,j)==1) THEN color = SETCOLORRGB (#C0C0C0) !Gray status = ELLIPSE_W ( $GFILLINTERIOR ,X1,Y1,X2,Y2) ELSE IF (ET(i,j)==2) THEN color = SETCOLORRGB (#0000FF) !red status = ELLIPSE_W ( $GFILLINTERIOR ,X1,Y1,X2,Y2) END IF END DO END DO END SUBROUTINE DRAW 各位高手看下我该怎么改，才能出来像上图那样的图形 [ Last edited by linliuqiu on 2010-9-2 at 16:34 ] |
回复此楼» 猜你喜欢
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有13人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有18人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有18人回复
-
2027博士申请-临床检验诊断学、病原生物学、微生物方向
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有10人回复
-
售SCI文章，我:8O.5.5.1O.54,科目全,可十急
已经有22人回复
-
越来越担心硕士毕业后没有竞争力了
已经有14人回复
-
论文的挂名怎么评判贡献？基金申请中，排名第一的挂名文章
已经有3人回复
-
申博自荐 2篇一区TOP+1篇EI+2公开发明专利 2027博士申请
已经有3人回复
-
闲聊
已经有6人回复