数式処理ソフトウェアMapleにおいてスライダーで図を描く方法

表題の通り、数式処理ソフトウェアmapleのプログラムにおける質問です。なお、mapleのバージョンは2019でOsはwindpows10です。
大学の教授もわからなかったため、mapleソフトウェアｂのサポートセンターの方に問い合わせしましたが、途中までしか対応していただけませんでした。まず、下記の写真にそのプログラムを記載します。以下のプログラムは、Excelのファイルから値を読み出し、それをmaple上に描写するためのものです。写真のうち、プログラム1~2は、Excelからデータを読み込むプログラムであり、プログラム3は読み込んだデータを描写するためのプログラムです。スライダーとはプログラム3で図を描くために設けた四角形の下にあるもののことです。
データの読み込みは上手くできますが、その後のフェーザ図を描けません。そこで、サポートセンターの方から写真で示すようなプログラムをいただき、plotのコンソールをスライダー内ではなくワークシートじょうに与えることや描く図のプログラムをコード内に入れるようにアドバイスされました。その通りに書き直しましたが、うまくいきません。この写真の[i]はsin,cosにかける変数であり、私のプログラムは得られたデータを描写するためのプログラムなのでこのiは使いません。また、スライダー内のプログラムを以下に示します。

Maple
1use DocumentTools in 
2i:=round(DocumentTools:-GetProperty("iii1",value));
3
4draw_now := proc()
5	local VE0, VV1, VV2, VI1, VA1, VA2, VA3;
6	VE0[i] := plot(arrow(Vector[row]([E0[i]]), shape = arrow, width = 1, head_length = 5, color = "Red")); VV1[i] := plot(arrow(Vector[row]([V1[i]]), shape = arrow, width = 1, head_length = 5, color = "Green")); VV2[i] := plot(arrow(Vector[row]([V2[i]]), shape = arrow, width = 1, head_length = 5, color = "Blue")); VI1[i] := plot(arrow(Vector[row]([I1[i]]), shape = arrow, width = 1, head_length = 5, color = "DeepPink")); VA1[i] := plot(arrow(Vector[row]([V1[i]]), Vector[row]([A1[i]]), shape = arrow, width = 1, head_length = 5, color = "Purple")); VA2[i] := plot(arrow(Vector[row]([B1[i]]), Vector[row]([A2[i]]), shape = arrow, width = 1, head_length = 5, color = "Orange")); VA3[i] := plot(arrow(Vector[row]([V2[i]]), Vector[row]([C1[i]]), shape = arrow, width = 1, head_length = 5, color = "SkyBlue")); 
7	return plots; -display(VE0[i], VV1[i], VV2[i], VI1[i], VA1[i], VA2[i], VA3[i], legend = ["E0", "V1", "V2", "I1", "A1", "A2", "A3"], view = [0 .. 240, 0 .. -240]);
8	end proc;
9
10DocumentTools[SetProperty]("Plot0", value,draw_now()):
11
12end use;

Maple
1#スライダの値を取得
2i := DocumentTools:-GetProperty("Slider0", value):
3
4#プロットを表示
5DocumentTools:-SetProperty("Plot0", value, draw_now(i)):

gentaro

2020/10/10 09:40

https://teratail.com/help/question-tips 「teratailはサポートセンターではなく、思考するエンジニアの為のQ&Aコミュニティです」「至急今週中にお願いします」などという自分本位を注文をしたいのであれば、クラウドソーシングサイトなどで仕事として発注し、有償であなたのサポートをしてくれる人を探しましょう。