1

Mathematica で 2D プロットを指定すると、グラフをクリックし続けると、そのグラフの一連の座標が表示されます。「座標の取得」ツールを使用せずに、これらすべてのポイントの x 座標と y 座標を抽出したいと思います (一度に 1 つの座標のみを抽出するため、不正確で手間がかかります)。追加の制約は、プロットの方程式が UNKNOWN であることです (Wolfram Alpha によって作成されたグラフを見つけましたが、その方程式は私にはわかりません。座標を簡単に抽出できれば、それらの座標を介してスプラインを適合させることができます。これにより、グラフの式が得られます)。何か案は？

乾杯！

4

2 に答える 2

0

ここからの回答をリサイクルして、この関数はマウス ポイントのクリックを変数に格納しますpts。Show適切にスケーリングされた関数でカーブを組み合わせる必要があります。ここでは、サイン プロットを挿入しました。

動的モジュールを使用しているため、ノートブックを保存、閉じ、再度開いてもポイントが残ります。

CreateDistribution[] := 
 DynamicModule[{savepts = {{-1, -1}}}, 
  Dynamic[EventHandler[
    Show[Plot[Sin[x], {x, 0, 7}], 
     ListPlot[pts, AxesOrigin -> {0, 0}, 
      PlotRange -> {{0, 7}, {0, 5}}]], 
    "MouseDown" :> (savepts = 
       pts = DeleteCases[
         Append[pts, MousePosition["Graphics"]], {-1, -1}])], 
   Initialization :> (pts = savepts)]]

CreateDistribution[]

ここに画像の説明を入力

pts

{{0.371185, 0.357737}, {0.859027, 0.779375}, {1.55898, 1.01471}, {2.36498, 0.661709}, {2.95887, 0.161626}, {3.55277, -0.358067}, {4.10424, -0.799316}, {4.91024, -0.985622 }、{5.6314、-0.573789}、{6.20409、-0.142345}、{6.71314、0.367543}}

于 2014-03-17T22:44:45.673 に答える