[Mathematica][科学软件MMA][Christmas Drawing][圣诞画图][KS3/4]-Enrichment-CasperYC.Club 数学资源分享

[Mathematica][科学软件MMA][Christmas Drawing][圣诞画图][KS3/4]

casperyc 2021-12-24 938

santa = {
	Graphics[Line[{{14,36},{10,39},{10,40},{9,41},{8,40},{8,44},{7,44},{6,43},{5,45},{3,45},{2,44},{2,42},{3,40},{5,38},{8,40}}]],
	Graphics[Line[{{5,38},{6,37},{10,40}}]],
	Graphics[Line[{{15,35},{18,35}}]],
	Graphics[Line[{{6,37},{12,30},{12,31},{13,32},{12,32},{12,34},{15,37},{15,40},{17,40},{17,38},{19,38},{19,40},{17,40},{17,38},{15,38},{15,39},{14,40},{14,41},{15,42},{17,43},{19,43},{23,41},{23,43}}]],
	Graphics[Line[{{14,40},{15,41},{16,41},{17,42},{19,42},{21,41},{21,37},{20,36},{19,36},{18,37},{17,37},{16,36},{15,37}}]],
	Graphics[Line[{{13,35},{14,34},{15,35},{16,34},{18,35},{19,34},{20,35},{20,36}}]],
	Graphics[Line[{{12,30},{13,29},{14,29},{14,30},{14,29},{15,28},{16,28},{18,29},{17,30},{18,29},{19,29},{20,30},{19,31},{20,30},{21,31},{22,33},{21,34},{23,35},{22,37},{23,35},{23,37},{22,38},{23,37},{23,41},{24,40},{25,41},{26,40},{25,38},{24,38},{22,40},{21,40}}]],
	Graphics[Line[{{2,44},{3,42}}]],
	Graphics[Line[{{3,45},{4,43}}]],
	Graphics[Line[{{14,41},{16,44},{18,45},{22,46},{24,44},{25,41}}]],
	Graphics[Line[{{23,35},{22,31},{21,31},{21,30},{22,29},{21,30},{20,30},{20,29},{21,28},{20,29},{19,29},{19,28},{21,26},{23,28},{23,30},{22,31}}]],
	Graphics[Line[{{19,28},{18,26},{19,26},{19,25},{21,26},{23,26},{24,27},{24,29},{23,30},{25,33},{27,34},{28,33}}]],
	Graphics[Line[{{25,33},{27,31},{28,28},{27,25},{26,23},{25,23},{23,24},{22,26}}]],
	Graphics[Line[{{22,46},{26,47},{30,47},{34,45},{37,42},{39,39},{40,35},{39,29},{35,24},{31,21},{25,21},{22,22},{23,24}}]],
	Graphics[Line[{{22,22},{20,20},{16,20},{16,28}}]],
	Graphics[Line[{{10,13},{13,11}}]],
	Graphics[Line[{{13,29},{12,21},{10,23},{10,26},{12,30}}]],
	Graphics[Line[{{22,22},{23,20},{23,12},{22,8},{21,7},{22,8},{26,8},{27,4},{27,3},{25,2},{22,2},{20,4},{18,5},{18,6},{19,8},{18,11},{16,13},{16,16},{16,15},{15,15},{13,17}}]],
	Graphics[Line[{{16,15},{12,10},{13,8},{13,7},{11,6},{9,4},{6,4},{4,6},{4,7},{6,9},{9,10},{10,9},{9,10},{10,13},{10,15},{11,19},{10,21},{10,23}}]],
	Graphics[Line[{{10,21},{12,19},{16,18},{20,18},{23,20}}]],
	Graphics[Line[{{20,20},{20,18},{19,18},{19,20}}]],
	Graphics[Line[{{18,11},{23,12}}]],
	Graphics[Line[{{16,18},{16,20},{12,21},{12,19}}]],
	Graphics[Line[{{13,20},{15,20},{15,19},{13,19},{13,20}}]],
	Graphics[Line[{{13,8},{11,7},{9,5},{6,5},{4,7}}]],
	Graphics[Line[{{18,6},{20,5},{22,3},{25,3},{27,4}}]],
	Graphics[Line[{{16,40},{16,39},{17,39}}]],
	Graphics[Line[{{18,40},{18,39},{19,39}}]]
};

Show[ santa , Frame -> True ]

版权声明

1 - 本站大部分内容源于网络，经站长搜集整理。如有版权问题，请及时告知。

2 - 本站资源均为免费分享。禁止以商业形式转载，贩卖。

最新回复 (2)

casperyc 2021-12-24

2楼

christmasTree = {
	Graphics[Line[{{-2,-7},{-3,-10},{-1,-10},{0,-11},{1,-10},{3,-10},{2,-7}}]],
	Graphics[Line[{{-1,8},{0,9},{1,8},{2,8},{1,7},{2,6},{1,6},{0,5},{-1,6},{-2,6},{-1,7},{-2,8},{-1,8}}]],
	Graphics[Line[{{1,6},{6,2},{3,1},{7,-2},{5,-3},{9,-7},{5,-8},{2,-7},{0,-9},{-2,-7},{-5,-8},{-9,-7},{-5,-3},{-7,-2},{-3,1},{-6,2},{-1,6}}]]
};

Show[ christmasTree , Frame -> True ]

casperyc 2021-12-24

3楼

rudolfSimple = {
	Graphics[Line[{{8,12}, {11,12}, {14,9}, {14,7}, {13,6}, {13,5}, {14,4}, {14,3}, {12,1}, {10,2}, {9,2}, {7,1}, {5,3}, {5,4}, {6,5}, {6,6}, {5,7}, {5,9}, {8,12}}]],
	Graphics[Line[{{6,5}, {8,6}, {9,7}, {9,8}, {8,9}, {7,9}, {6,8}, {6,7}, {7,6}, {12,6}, {13,7}, {13,8}, {12,9}, {11,9}, {10,8}, {10,7}, {11,6}, {13,5}}]],
	Graphics[Line[{{9,6}, {8,5}, {8,4}, {9,4}, {9,3}, {10,3}, {10,4}, {11,4}, {11,5}, {10,6}}]],
	Graphics[Line[{{8,2}, {9,1}, {10,1}, {11,2}}]],
	Graphics[Line[{{1,13}, {4,13}, {6,11}, {6,10}, {4,12}, {1,13}, {1,11}, {3,9}, {5,9}}]],
	Graphics[Line[{{6,10}, {4,10}, {5,10}, {4,11}}]],
	Graphics[Line[{{18,13}, {15,13}, {13,11}, {13,10}, {15,12}, {18,13}, {18,11}, {16,9}, {14,9}}]],
	Graphics[Line[{{13,10}, {15,10}, {14,10}, {15,11}}]],
	Graphics[Line[{{7,11}, {6,12}, {7,12}, {5,14}, {5,15}, {6,15}, {5,17}, {6,18}, {7,17}, {7,14}, {8,15}, {8,14}, {7,13}, {8,13}, {8,12}}]],
	Graphics[Line[{{11,12}, {11,13}, {12,13}, {11,14}, {11,15}, {12,14}, {12,17}, {13,18}, {14,17}, {13,15}, {14,15}, {14,14}, {12,12}, {13,12}, {12,11}}]],
	Graphics[Line[{{7,7}, {7,8}, {8,8}, {8,7}, {7,7}}]],
	Graphics[Line[{{11,7}, {11,8}, {12,8}, {12,7}, {11,7}}]]
};

Show[rudolfSimple,Frame -> True]