gnuplot を使おう。　その2

1 名前：名無しさん＠お腹いっぱい。 mailto:sage [2006/11/28(火) 22:10:25 ] グラフ描画ソフト gnuplot のスレ。 gnuplot 公式 Web ページ www.gnuplot.info/ 前スレ gnuplot を使おう。 pc8.2ch.net/test/read.cgi/unix/1002453983/l50 140 名前：124 mailto:sage [2007/03/31(土) 04:33:06 ] 私が書いたので良ければ・・・ >>130と同じ機能だけど、書き方がちょっと違う。 Dim objFS Set objFS = WScript.CreateObject("Scripting.FileSystemObject") If objFS.FolderExists("ResultV") Then Dim objFolder Set objFolder = objFS.GetFolder("ResultV") objFS.CreateFolder("ResultVimg") 'Start GNUPLOT Set objShell = WScript.CreateObject("WScript.Shell") Set objExec = objShell.Exec("C:\Program Files\gnuplot\bin\wgnuplot_pipes.exe") strID = objExec.ProcessID Do While objShell.AppActivate(strID) WScript.Sleep 500 Loop 141 名前：124 mailto:sage [2007/03/31(土) 04:33:57 ] Dim i i = 0 For Each objFiles In objFolder.Files i = i+1 Dim strFName strFName = objFiles.Name If i=1 Then Dim objText Set objText = objFS.CreateTextFile("_gnuplot-vel.plt", True) '********** [gnuplot-vel_temp.plt] file statements ********** objText.WriteLine( "set terminal png" ) objText.WriteLine( "set xlabel 'X[m]'" ) objText.WriteLine( "set ylabel 'Y[m]'" ) objText.WriteLine( "set xrange [-0.10e0:2.1e0]" ) objText.WriteLine( "set yrange [-0.10e0:2.1e0]" ) objText.WriteLine( "set title 'Karman Vortex Street'" ) End If objText.WriteLine( "set output " & "'ResultVimg/" & objFS.GetBaseName(strFName) & ".png'" ) objText.WriteLine( "plot '" & "ResultV/" & objFS.GetFileName(strFName) & "' with vector" ) Next 142 名前：124 mailto:sage [2007/03/31(土) 04:34:41 ] '********** Gnuplot statement ********** objShell.AppActivate(strID) objShell.SendKeys "load '_gnuplot-vel.plt'{ENTER}" WScript.Sleep 700 'Dim objDel 'Set objDel = objFS.GetFile("_gnuplot-vel.plt") 'objDel.Delete Else MsgBox("ResultV" & " Could not Found.") End If

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef