【正文】 。i++) {for(j=0。 ? float e1[5][5]={{.1,.2,.3,.4,.5},{.2,.3,.4,.5,.6},{.3,.4,.5,.6,.7}, ? {.4,.5,.6,.7,.8},{.3,.4,.5,.6,.7}}。i5。i++) { fscanf(fp,“ %5d” ,n1[i])。i++) for(j=0。 ? float z,a。 ? printf(\n進(jìn)口斷面流速為 \n%,a)。 printf(請輸入開度 a0的值 \n)。 a2=c/(x[i]x[i1])。 用 y(j)yay(j+1)判斷插點(diǎn)相鄰序號 j0,j0+1。 以 m=n=2展開擬合式 222221220222111012202300yxaxyayayxaxyayaxaxaaz?????????在曲線上取 9點(diǎn)建立擬合式，組成聯(lián)立方程組，解之求出待定系數(shù) a00~a22即獲得擬合式。 : 39。LOCATE 行 ,列 :PRINT X:在某行 ,列處顯示 X的值 ? Basic基本繪圖指令 2 ? . DRAW指令 : U:向上畫 :U20向上畫 20單位 。PUTPIXEL(INT X,INT Y,COLOR)。以 X1,Y1X2,Y2為對角線畫矩形 畫園 : CIRCLE(INT X,INT Y,INT R)。SPRINTF(S,%f,int x)。 4）用曲線繪制法顯示圖形。 int yc[4]={200,200,200,200}。 int y1[9]={150,120,120,150,150,200,200,200,200}。 /*繪園 */ for(i=0。i++) line(x1[i],y1[i],x2[i],y2[i])。輸入圓弧線素參數(shù) :圓心 .半徑與始、終角 39。屏幕顯示圖形 39。畫曲線 39。 V1$ = D8M+10,8D8M10,8 FOR I = 1 TO 4: READ V1X(I), V1Y(I): NEXT I DATA 170,150,300,150,210,156,260,156 39。 SCREEN 12 39。 FOR I = 1 TO 2: ZB$ = BM + STR$(V2X(I)) + , + STR$(V2Y(I)) DRAW ZB$: DRAW V2$ NEXT I 39。 linerel(0,8)。 linerel(15,15)。 linerel(25,30)。 linerel(8,3)。 linerel(0,60)。 } ? main() { int i,j。 /*畫水平閥門 3*/ lushuiqi(270,255)。 各曲線上坐標(biāo)點(diǎn)數(shù) n(i)。 for(i=0。/選擇最大最小值 / for(i=0。i++) /坐標(biāo)換算 / { l[i]=(x[i]xmin)/(xmaxxmin)*lo+dl。i=5。j=10。 } getch()。 if(yy0) yy=(int)yy/+。 xx=(int)xx/。 } ? line(l[0],h[0],l[m],h[m])。i++) { if(xminx[i]) xmin=x[i]。i++) /*計(jì)算正弦曲線 */ { x[i]=**i。 L0, H0 70 SCREEN 12 REM 選擇最大 ,最小值 110 XMIN = X(1, 1): XMAX = X(1, 1): YMIN = y(1, 1): YMAX = y(1, 1) 120 FOR I = 1 TO M1: FOR J = 2 TO M2 130 IF XMIN X(I, J) THEN XMIN = X(I, J) 140 IF XMAX X(I, J) THEN XMAX = X(I, J) 150 IF YMAX y(I, J) THEN YMAX = y(I, J) 160 IF YMIN y(I, J) THEN YMIN = y(I, J) 170 NEXT J, I REM 坐標(biāo)換算 180 FOR I = 1 TO M1: FOR J = 1 TO M2 190 H(I, J) = H0 * (YMAX y(I, J)) / (YMAX YMIN) + Y0 200 L(I, J) = L0 * (X(I, J) XMIN) / (XMAX XMIN) + X0 210 NEXT J, I ? REM 畫 Y軸 220 X1 = X0 3: X2 = X0 + 3: NN = INT(H0 / 32) 230 FOR I = 0 TO NN 240 Y1 = H0 / NN * I + Y0: Y2 = Y1 250 LINE (X1, Y1)(X2, Y2) 260 FOR K = 1 TO L0 STEP 4: PSET (K + X0, Y1): NEXT K 270 y = INT((YMAX (YMAX YMIN) / NN * I) * 100 + .5) / 100 280 yh = INT(H0 / NN * I + .5) + Y0 5 LOCATE 1, 70: PRINT y GET (540, 1)(640, 16), A% PUT (6, yh), A% LOCATE 1, 70: PRINT 300 NEXT I REM 畫 X軸 310 Y1 = (H0 + Y0) 5: Y2 = (H0 + Y0) + 3 320 mm = INT(L0 / 50): yh = INT((H0 + Y0) / 15) 330 FOR I = 0 TO mm 340 X1 = L0 / mm * I + X0: X2 = X1 350 LINE (X1, Y1)(X2, Y2) 360 FOR K = Y0 TO (H0 + Y0) STEP 5: PSET (X1, K): NEXT K 370 X = INT((XMIN + (XMAX XMIN) / mm * I) * 100 + .5) / 100 380 XL = INT(L0 / mm * I + X0 32) LOCATE 1, 70: PRINT X GET (540, 1)(640, 16), A% PUT (XL, Y0 + H0 + 16), A% LOCATE 1, 70: PRINT 400 NEXT I REM 畫曲線 410 FOR I = 1 TO M1: FOR J = 1 TO M2 1 420 LINE (L(I, J), H(I, J))(L(I, J + 1), H(I, J + 1)) 430 NEXT J, I ? c曲線繪圖程序 include include include main() { int i,j,m=30。 /*畫取水口 */ pipe1(125,284)。 initgraph(graphdriver,graphmode,)。 linerel(0,30)。linerel(8,3)。 moverel(10,0)。 linerel(13,0)。 linerel(0,8)。 FOR I = 1 TO 4: DRAW LIN$(I): NEXT I ? C Program include include include void famen1(x0,y0) /*豎閥門定義 */ { moveto(x0,y0)。 CIRCLE (xc, YC), rc 39。 V2$ = R8M8,10R8M10,10 FOR I = 1 TO 2: READ V2X(I), V2Y(I): NEXT I: DATA 190,180,280,180 39。 ? 圖形部件輸入法程序設(shè)計(jì) (QB) 39。畫圓 39。輸入直線線素參數(shù) :起點(diǎn)終點(diǎn)坐標(biāo) 39。i=3。i++) circle(xc[i],yc[i],rc[i])。 int y2[9]={120,120,150,150,200,200,200,200,170}。 /*輸入園弧參數(shù) :園心 ,半徑 ,始 .終角 */ int xa[2]={100,200}。 1）圖形分割為若 (n) 部分； 2）曲線離散為坐標(biāo)點(diǎn)（ x(I,j), y(I,j)。outtextxy(x,y,s)。ARC(INT X,INT Y,INT XT1,INT XT2,R)。 : 39。 R,L向右 ,左畫 Mx,y:向任意方向（ x,y)畫； M+20,10:從當(dāng)前位置畫到 +20,10處 。 : 39。,...2,1,0,0 ???? ?? 以 m=n=2展開： P=0,q=0 a00∑xk0 yk0+a10∑xk1yk0+a20∑xk2yk0+ a01∑xk0 yk1+a11∑xk1yk1+a21∑xk2yk1+ a02∑xk0 yk2+a12∑xk1yk2+a22∑xk2yk2 P=0,q=0 時000???as寫成矩陣形式： ∑1 ∑x ∑x2 ∑y ∑xy ∑x2y ∑y2 ∑xy2 ∑x2y2 ∑x………………………………………………………… ∑x2……………………………………………………………………………………. ∑y……………………∑xy 3…………………………… …………………………………………………………… ∑x2y2 ………………………………………………………………….. ∑x2y2 M= ? T=[∑Z ∑xZ ∑X2Z ∑yZ ∑XyZ ∑X2yZ …. ∑X 2y2Z ]T a= [a00 a10 a20 a01 a11 a21 a02 a12 a22]T 解聯(lián)立方程組，求出 a00~a22,得擬合適。 2）建立聯(lián)立方程組： a0+a1X1+a2X12+…+anX1n=y1 a0+a1X2+a2X22+…+anX2n=y2 ……………………………….. a0+a1Xm+a2Xm2+…+anXmn=ym 3) 解聯(lián)立方程組求待定系數(shù) a0~an 缺點(diǎn)：點(diǎn)數(shù)多時，失真。 a0=y[i2]。 for(i=1。 ? 缺點(diǎn)：需要解聯(lián)立方程組。 ? printf(請輸入設(shè)計(jì)水頭 hr的值 \n)。j++) {fscanf(fp,%,e1[i][j])。} for(j=0。j5。 ? for (i=0。j++) fscanff(fp,%,e1[i][j])。 fprintf(fp,\n)。 ? 寫數(shù)據(jù)程序 include main() {FILE *fp。 輸出文件緩沖區(qū) 輸入文件緩沖區(qū) 磁盤文件 ? 基本指令 1)文件指針變量 ： FILE *fp?！?少量會話數(shù)據(jù)。 ? 二、數(shù)據(jù)的存放方式 直接為變量賦值 ： a=。 ? 非正交網(wǎng)格離散法 Φ=50 Φ=00 Φ=+50 Φ=+100 Q11(I,j) N11(j) η i,j ? 非正交網(wǎng)格離散法 1）用一非正交網(wǎng)格覆蓋曲線，用網(wǎng)格的節(jié)點(diǎn)離散曲線； 2）用兩個一維數(shù)組何一個二維數(shù)組表示曲線坐標(biāo)參數(shù)，用一個二維數(shù)組表示函數(shù)： Q11— Q11(I， j)。 處理原則： 離散化（數(shù)字化）、便于存儲，便于引用。 K(i)={,}。 ? 二、計(jì)算機(jī)處理技術(shù)資料的一般原則： 適應(yīng)不同目的有不同的處理方式 １、（閱讀）索引 ： 原文錄入，按章節(jié)、作者、頁碼、關(guān)鍵詞檢索。 2）技術(shù)資料處理的原則 3）文字型技術(shù)資料的處理 講授時間 ： 2學(xué)時 授課方式： 課堂教學(xué) 重點(diǎn)： 技術(shù)資料處理原則 學(xué)習(xí)要求 ：了解用計(jì)算機(jī)處理技術(shù)資料的基本思路。 輸出設(shè)備： 1）顯示器（高分）、 2）打印機(jī)、 3）繪圖儀。 2）圖形輸入：鍵盤、數(shù)字化儀、掃描儀等