u = Vector[(1, 1), (2, 3)]のとき、uと、x軸の正の方向とのなす角の大きさを求めよ。 解答 Angle[u] ≒ 63.4°・・・（答） 解説 Angle[<ベクトル>]は、ベクトルとx軸の正の方向とのなす角の大きさを計算する。

list1 = {2,3,4,5} と、list2 = {3,4,5,6}をつなげたい。 （1）{2,3,4,5,3,4,5,6}というように、単純につなげ。 （2）単純につないだうえ、要素に重複があれば、初出（つまり、当該重複要素のうち、最も左にあるもの）のみを残し、あとは削除せよ。 解答 （1…

rawData = {(1, 2), (2, 2), (3, 2), (2, 3), (4, 4), (4, 3), (3, 3), (3, 4), (1, 4), (-2, 4), (-2, 6), (-3, 7), (-3, 6), (-2, 6), (-1, 4), (-1, 3), (-1, 5), (5, 4), (6, 6), (7, 6), (9, 6), (9, 4), (7, 5), (6, 5), (8, 5), (8, 6), (6, 7), (5, …

list1 = {1,2,3,4,5}, list2 = {5,4,3,2,1}とする。 各要素の積からなるリスト {1×5, 2×4, 3×3, 4×2, 5×1}を作成せよ。 解答 Zip[s*t, s, list1, t, list2] （その値は、{5,8,9,8,5}である。） 解説 Zip[ <式>, <変数1>, <リスト1>, <変数2>, <リスト2>, ...…

リスト{1,2,3,4,5}のすべての要素の積を求めよ。 解答 Product[{1,2,3,4,5}] = 120 ・・・（答） 解説 Product[<リスト>]は、リストのすべての要素の積を計算する。 初項1、公差7の等差数列の、初項から第10項までの積を求めよ。 解答 list1 = Sequence[1+7*…

リストオブジェクト list1 = {1,2,3}がある。 （1）list1の先頭に0を加えたリストを作成せよ。 （2）list1の末尾に4を加えたリストを作成せよ。 解答 （1）Append[0, list1] （その値は、{0,1,2,3}である。） （2）Append[list1,4] （その値は、{1,2,3,4}で…

二次曲線c: 7x² - 6sqrt(3) x y + 13y² = 16の主軸と、x軸とのなす角の大きさを求めよ。 解答 求める角の大きさ = Angle[c] = 30° 解説 Angle[<二次曲線>]は、二次曲線の主軸とx軸とのなす角の大きさを計算する。

A=(0,0),B=(6,3)とする。線分AB上に、点Cをとる。 Cの座標が下記の場合、AC/ABの値をそれぞれ求めよ。 （1）C = (2,1) （2）C = (0,0) （3）C = (6,3) 解答 AC/ABは、AffineRatio[A,B,C]で計算できる。 （1）0.333... （2）0 （3）1 解説 AffineRatio[A,B,C]…