fortran圖形操作ppt課件-資料下載頁
2025-05-12 05:50本頁面
【正文】 (39。t39。//TRIM(ttype(i))//tfont) CALL SETGTEXTROTATION (i*150) CALL OUTGTEXT(歡迎 ) tcolor = tcolor*100 END DO 10 FORMAT(39。h,I2,w,I2,39。) END 綜合實(shí)例 從順序文件 ，統(tǒng)計(jì)各成績段（ 60分以下， 60~69， 70~79， 80~89， 90~100）的分布情況，輸出其餅圖。要求在圖中標(biāo)注各塊的意義。 分析： （ 1）用 score數(shù)組存放成績，用 p數(shù)組存放各成績段的人數(shù)（ p(1) 存放 90~100的人數(shù)， ……， p(5) 存放低于 60分的人數(shù)）。 （ 2）過程 PLOT_PIE繪制餅圖。 USE MSFLIB INTEGER,ALLOCATABLE::score(:) INTEGER::p(5)=0 CHARACTER*10 str(5) str=(/90分以上 ,80~89分 ,70~79分 ,60~69分 ,60分以下 /) OPEN(10,FILE=) n=0 DO WHILE(.(10)) READ(10,*) 。 n=n+1 END DO REWIND(10) ALLOCATE(score(n)) DO i=1,n READ(10,*) score(i) END DO DO i=1,n IF(score(i)60) THEN p(5)=p(5)+1 ELSEIF(score(i)==100) THEN p(1)=p(1)+1 ELSE p(10score(i)/10) = p(10score(i)/10)+1 ENDIF END DO CALL PLOT_PIE(p, n, 5, str) END SUBROUTINE PLOT_PIE(p, n, k, str) USE MSFLIB INTEGER status, p(k) CHARACTER*10 str(n) REAL(8) x1, y1, x2, y2, x3, y3, x4, y4, x, y INTEGER(4)::bcolor=1,tcolor PARAMETER(pi=) TYPE(WXYCOORD) t status = SETWINDOW(.TRUE., , , , ) ! 設(shè)置視窗大小 status = SETBKCOLORRGB(FFFFFF) CALL CLEARSCREEN($GCLEARSCREEN) status = INITIALIZEFONTS() status = SETFONT(39。h32p39。) x1 = 1。 y1 = 1 x2 = 1。 y2 = 1 x3 = 1。 y3 = 0 per = 0 DO i=1, k ! 計(jì)算扇形大小 per = per + 2*pi*p(i)/n x4 = cos(per)。 y4 = sin(per) bcolor = bcolor*2F status = SETCOLORRGB(bcolor) status = PIE_W($GFILLINTERIOR, x1, y1, x2, y2, x3, y3, x4, y4) x3 = x4。 y3 = y4 ! 顯示數(shù)據(jù)標(biāo)簽 tcolor = 1000000 bcolor status = SETCOLORRGB(tcolor) tper = per pi*p(i)/n x = cos(tper)*。 y = sin(tper)* CALL MOVETO_W( x, y, t) CALL OUTGTEXT(str(i)) END DO END
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1