----- ここでテーブルデータを用意
----- 関数引数の 1 はデータセット番号です
scalar_table = get_scalar_functions(1)
vector_table = get_vector_functions(1)
surface_scalar_table = get_surface_scalar_functions(1)
surface_vector_table = get_surface_vector_functions(1)
----- 出力ファイルの用意
output_handle = openfile("function.list", "w")
write(output_handle, "function list output\n")
----- スカラー関数の出力
for i = 1, getn(scalar_table) do
print (scalar_table[i])
write (output_handle, scalar_table[i], "\n")
end
----- ベクトル関数の出力
for i = 1, getn(vector_table) do
print (vector_table[i])
write (output_handle, vector_table[i], "\n")
end
----- サーフェススカラー関数の出力
for i = 1, getn(surface_scalar_table) do
print (surface_scalar_table[i])
write (output_handle, surface_scalar_table[i], "\n")
end
----- サーフェスベクトル関数の出力
for i = 1, getn(surface_vector_table) do
print (surface_vector_table[i])
write (output_handle, surface_vector_table[i], "\n")
end
----- 出力ファイルを close
closefile(output_handle)
|