zzu數學 實驗零入門測試

zzu數學 實驗零入門測試

入門練習程式碼

版本一
Animate[Clear[d, a, t];(*清除變數*)
  a = Graphics[Line[{{-1, 2}, {0, 0}, {2, 4}}]];(*繪製兩根初始線段*)
  l = {-1, 2}/n; r = {2, 4}/n;(*將兩線段n等分*)
  t = Table[{ i*l, (n - i + 1)*r}, {i, 1, n }];(*生成n個點對用於畫n條線段*)
  d = Array[f, n ];(*定義陣列存放圖形*)
  For[i = 1, i <= n , i++, 
  d[[i]] = Graphics[Line[t[[i]]]]];(*繪製n條線段*)
  Show[a, d], {n, 0, 50, 1}](*將所有圖元顯示*)




版本二
Manipulate[
 g1 = Graphics[Line[{{r1, r2}, {0, 0}, {r3, r4}}]];
 l = {r1, r2}/n; r = {r3, r4}/n;
 g2 = Graphics[Line[Table[{i*l, (n - i + 1)*r}, {i, 1, n}]]];
 Show[g1, g2], {n, 0, 50}, {r1, -10, 0}, {r2, 0, 10}, {r3, 0, 
  10}, {r4, 0, 10}]



Graphics[Line[
  Table[{{0, 10 - i}, {i, 0}, {0, 0}, {0, 10 - i}}, {i, 1, 9}]]]
供數統兄弟姐妹參考

第一次實驗報告

實驗報告
1、 問題
繪製兩條相接線段，並找出n等分點（分點包括外端點）。將一條線段最靠內的分點連線另一條線段最靠外的分點，如此依次向外連線處n條線段。
2、 方法
使用line函式任意畫兩條相接線段（為了方便將交點定於原點）；
輸入等分數n；
將兩線段外端點座標除n，得到一等分的座標；
使用table函式生成以點對形式的表；
利用for迴圈繪製每條線段，並將結果放入陣列中；
使用show函式將所有線段畫出；
利用manipulate函式控制n的滾動輸入。
3、 程式

Manipulate[Clear[d, a, t];(*清除變數*)
 a = Graphics[Line[{{-1, 2}, {0, 0}, {2, 4}}]];(*繪製兩根初始線段*)
 l = {-1, 2}/n; r = {2, 4}/n;(*將兩線段n等分*)
 t = Table[{ i*l, (n - i + 1)*r}, {i, 1, n }];(*生成n個點對用於畫n條線段*)
 d = Array[f, n ];(*定義陣列存放圖形*)
 For[i = 1, i <= n , i++, d[[i]] = Graphics[Line[t[[i]]]]];(*繪製n條線段*) 
 Show[a, d], {n, 0, 50, 1}](*將所有圖元顯示*)

4、 結果

姓名：陸嵩
學號：20132120215
班級：信計（2）班