dda演算法繪制平行四邊形代碼

① 計算機圖形學問題

1、直線的生成和2種演算法：DDA演算法：代碼如下
void
dda(Graphics
g,int
x1,int
x2,int
y1,int
y2)
{int
k;
float
x,y,dx,dy;
k=Math.abs(x2-x1);
if(Math.abs(y2-y1)>k)
k=Math.abs(y2-y1);
dx=(float)(x2-x1)/k;
dy=(float)(y2-y1)/k;
x=(float)x1;
y=(float)y1;
for(int
i=0;i<k;i++)
drawLine((int)x+.5f,((int)y+.5f,((int)x+.5f.((int)y+.5f);
x=x+dx;
y=y+dy;
}
}
Breseham演算法；
2、填充的定義和2種演算法分別是
掃描線種子填充演算法和遞歸演算法
3、圖像學的定義與運用
定義是研究如何在計算機環境下生成，處理和現實圖形的一門學科。具體應用很廣泛：像有些公司在製造汽車，飛機等時，會先畫出制圖，一般都會在計算機上繪制出來；等等吧

② 計算機圖形學：Matlab編程畫直線（DDA演算法）

function DDA(x1,y1,x2,y2,color)

length =abs(x2-x1);
if abs(y2-y1)>length
length=abs(y2-y1);
end
dx=(x2-x1)/length;
dy=(y2-y1)/length;
x=x1+0.5*sign(dx);
y=y1+0.5*sign(dy);
hold on
for i=1:length
plot(round(x),round(y),'Color',color)
x=x+dx;
y=y+dy;
end
hold off
end

③ VB里用星號輸出平行四邊形、正三角、倒三角的程序語句

一、Private Sub Form_Click()

show

Dim m, n, i, j As Integer

m = 4 :n = 7

For i = 1 To m

For j = 1 To m - i + 1

Print " ";

Next j

For j = 1 To n

Print "*";

Next j

Print

Next i

Print

For i = 1 To m

For j = 1 To m - i + 1

Print " ";

Next j

For j = 1 To 2 * i - 1

Print "*";

Next j

Print

Next i

Print

For i = 1 To m

For j = 1 To i

Print " ";

Next j

For j = 1 To 2 * m - 2 * i + 1

Print "*";

Next j

Print

Next i

End Sub

二、Sub Command1_Click()

Dim i As Integer

For i = 1 To 11 Step 2

For m = 11 To i Step -1

Debug.Print "*";

Next

Print Chr(10) & Space(1 + i 2);

Next

End Sub

(3)dda演算法繪制平行四邊形代碼擴展閱讀：

在VB中，注釋有2種方式。

1、以Rem關鍵字開頭，並且Rem關鍵字與注釋內容之間要加一個空格。注釋可以是單獨的一行，也可以寫在其他語句行的後面。如果在其他語句行後使用Rem關鍵字，則必須使用冒號（:）與語句隔開。

2、使用一個撇號（'）來代替Rem關鍵字。若使用撇號，則在其他語句行使用時不必加冒號。

特徵衡量

在 Visual Basic 中，可通過屬性、方法和事件來說明和衡量一個對象的特徵。

參考資料來源：網路-Visual Basic