24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 232  |  回复: 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 ]
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 linliuqiu 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 材料与化工306分找调剂 +17 沧海轻舟e 2026-04-02 18/900 2026-04-02 23:08 by 马儿快快地跑
[考研] 一志愿南开大学0710生物学359求调剂 +6 兔兔兔111223314 2026-03-29 8/400 2026-04-02 22:37 by louise0220
[考研] 282求调剂 +3 aaa车辆 2026-04-02 3/150 2026-04-02 21:55 by zllcz
[考研] 0703化学 +5 goldtt 2026-04-02 7/350 2026-04-02 21:32 by dongzh2009
[考研] 一志愿山东大学,085600,344 +7 魏子per 2026-04-02 8/400 2026-04-02 21:12 by 百灵童888
[考研] 285求调剂 +8 AZMK 2026-04-02 11/550 2026-04-02 20:16 by yulian1987
[考研] 22408 266求调剂 +3 masss11222 2026-04-02 3/150 2026-04-02 18:11 by 笔落锦州
[考研] 318求调剂,计算材料方向 +10 吸喵有害笙命 2026-04-01 11/550 2026-04-02 16:29 by oooqiao
[考研] 321求调剂 一志愿 浙江工业大学生物医药 +5 嘿嘿HC 2026-04-01 6/300 2026-04-02 15:23 by sophie2180
[考研] 292分,材料与化工,申请调剂 +19 程晴之 2026-04-01 23/1150 2026-04-02 11:59 by 程晴之
[考研] 考研调剂 +12 Amber00 2026-03-31 12/600 2026-04-02 09:04 by sanrepian
[考研] 材料科学与工程339求调剂 +11 hyz0119 2026-03-31 12/600 2026-04-01 18:40 by 伟大河北
[考研] 349求调剂 +6 吃的不少 2026-04-01 6/300 2026-04-01 17:55 by JYD2011
[考研] 0710生物学考研调剂 +3 李多米lee. 2026-03-27 4/200 2026-04-01 16:21 by zzchen2000
[考研] 求调剂 +5 零八# 2026-03-27 5/250 2026-04-01 14:40 by yulian1987
[考研] 材料与化工调剂一志愿大连海事085600,349 +9 吃的不少 2026-03-30 9/450 2026-04-01 11:24 by wangjy2002
[考研] 求调剂,一志愿北林食品与营养095500,301分,已过六级,有科研经历 +4 快乐储蓄罐 2026-03-31 4/200 2026-04-01 09:26 by JourneyLucky
[考研] 调剂申请 +8 张张张张zy 2026-03-31 9/450 2026-04-01 08:29 by zjbkx
[考研] 一志愿南昌大学324求调剂 +6 hanamiko 2026-03-29 6/300 2026-03-31 16:35 by hypershenger
[考研] 348求调剂 +6 小懒虫不懒了 2026-03-28 6/300 2026-03-30 10:29 by Evan_Liu
信息提示
请填处理意见