art using Delaunay triangulation – GeoGebra

ToSeg tool - GeoGebra 使用例：2点からの距離が等しい点の軌跡 2点から等距離である点の軌跡 – GeoGebra PerpendicularBisector[ <点>, <点> ]は（線分ではなく）直線であるから、この直線上の点をとってアニメーションさせても、等速では動かない（直線の…

ggtファイルのダウンロード nPrList tool - GeoGebra nCrList tool - GeoGebra 構文 nPrList[ <数値n>, <数値r>, <index> ] は、自然数1〜nの中から、r個を取り出して、順番を考慮して並べる場合のパターンを返す。各パターンは、index（1〜nPrの範囲内で指定してく</index>…

visualizing nPr and nCr – GeoGebra

計算結果の意味は、 { <n以下の最大の素数>, <n以下の素数の個数> } です。 途中で計算を止めた場合は、 { <現時点で計算できた最大の素数>, <その素数以下の素数の個数> } です。 特徴 ・動作が軽い。少しずつ計算を進めていくので、nに膨大な数を入れたからといって、それだけではクラッシュしな</n以下の素数の個数></n以下の最大の素数>…

nPr – GeoGebra

課題 list1 = {1,2,3,4,5,6,7,8,9,10} list2 = {3,3,6,2,1} とする。list1から要素を取り出していく。一度取り出したものは戻さない。list2は、取り出す要素のインデックスを指示している。ただし、当該インデックスは、list1におけるインデックスではなく、…

課題 ベクトルのリストvectorList の各要素を列ベクトルと考えて、行列を得たい。たとえば、ベクトル u = (1,2) v = (3,4) に対して、 vectorList = {u, v} を作成したとする。vectorListを引数として、行列 を得られるような、オリジナルツールを作成する方…

数値n, rを指定して、「nCrの中身」をリストで取得したい。 たとえば、n=5, r=4で、 { {1,2,3,4}, {1,2,3,5}, {1,2,4,5}, {1,3,4,5}, {2,3,4,5} } を取得する方法である。 数値オブジェクトn, rを作成のうえ、 Execute[{"usiList =" + (Sum[Join[{Sequence["…

たとえば、下図のように、11〜34のスライダーaを動かして、0〜1を得られるようにしたい。 このためのオリジナルツール「Resize」を作成した。 Resize tool - GeoGebra 構文は、 Resize[<数値>, <元の最小値>, <元の最大値>, <新たな最小値>, <新たな最大値>]…

前提オブジェクト 任意の3つの線分からなるリストsegmentList 目的のオブジェクト If[Length[Unique[Flatten[Zip[{Point[α, 0], Point[α, 1]}, α, segmentList]]]] ≟ 3 ∧ (Min[Unique[segmentList]] ≠ 0) ∧ Length[Unique[segmentList]] ≟ 3 ∧ (Area[Polygon…

0,1,2,3, 0,1,2,3, 0,1,2,3,... のように、 0を含み、最大値を含まないループ（0 <= 数値 < 最大値）は、 Mod[ <数値>, <最大値> ] で得られます。 上の例では、数値オブジェクトnを作成し、さらに、数値オブジェクト loop = Mod[n, 4] を作成すれば、nをス…

前提オブジェクト 点のリスト originalPointList ドロネー図 graph1 = DelaunayTriangulation[originalPointList] 課題 ドロネー図の三角形を、リストオブジェクトとして取得したい。 上図の例では、下図のように、5つの三角形からなるリストを取得したいと…

設例 指定した個数の点オブジェクトを、画面上のランダムな位置に生成できるボタンを作りたい。ただし、最も近い点との距離が0.1を下回るような点ができてはならない。 ボタンのOn Click スクリプトを記述せよ。 解答例 以下の関数を、「グローバルJavaスク…

下記記事の1次元バージョンです。 数値nを、スライダー内で自由に泳がせる方法を紹介する。 min = -5 max = 5 n = 0 nのスライダーを、最小値min, 最大値maxで作成する。 updater = 0 スライダーを作成、増分0.01 target = 0 nの目標 v = 0 速度 a = 0.005sg…

Segment[K, ClosestPoint[Sides[poly1], K]]

多角形内で点を自由に泳がせる – GeoGebra 上記アプレットのように、点Pを、多角形poly1内で自由に泳がせる方法を紹介する。 前提として、オリジナルツール「Sides」（下記記事参照）のインポートが必要である。 多角形オブジェクトを用いて、頂点または…