Option Explicit On
Option Strict On
Public Class Form1
    Private fnamedvi As String

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Call main()
    End Sub


    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        Dim dvipath As String
        'カレントフォルダを出力ファイルのフォルダにする
        dvipath = System.IO.Path.GetDirectoryName(fnamedvi)
        System.IO.Directory.SetCurrentDirectory(dvipath)
        'platex.exe実行
        System.Diagnostics.Process.Start("c:\usr\local\bin\platex.exe", fnamedvi)
    End Sub


    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        Dim dvipath As String
        'dvipdfmによるpdf化
        dvipath = System.IO.Path.GetDirectoryName(fnamedvi)
        fnamedvi = dvipath & "\" & System.IO.Path.GetFileNameWithoutExtension(fnamedvi)
        fnamedvi = fnamedvi & ".dvi"
        System.Diagnostics.Process.Start("c:\usr\local\bin\dvipdfm.exe", fnamedvi)
    End Sub


    Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
        Dim pdfpath As String
        'pdf表示
        pdfpath = System.IO.Path.GetDirectoryName(fnamedvi)
        fnamedvi = pdfpath & "\" & System.IO.Path.GetFileNameWithoutExtension(fnamedvi)
        fnamedvi = fnamedvi & ".pdf"
        System.Diagnostics.Process.Start(fnamedvi)
    End Sub


    Private Sub main()
        '作図用変数宣言
        Dim HSIZE As Double   '画像横寸法（mm）
        Dim DHL As Double     '画像左余白寸法：縦軸描画用（mm）
        Dim DHR As Double     '画像右余白寸法（mm）
        Dim VSIZE As Double   '画像縦寸法（mm）
        Dim DVL As Double     '画像下余白寸法：横軸描画用（mm）
        Dim DVU As Double     '画像上余白寸法（mm）
        Dim sxjiku As String  'ｘ軸名（単位含む）
        Dim xmin As Double    'ｘ軸最小値
        Dim xmax As Double    'ｘ軸最大値
        Dim dx As Double      'ｘ軸増分
        Dim slogx As String   'ｘ軸の種類（L：対数，N：普通）
        Dim syjiku As String  'ｙ軸名（単位含む）
        Dim ymin As Double    'ｙ軸最小値
        Dim ymax As Double    'ｙ軸最大値
        Dim dy As Double      'ｙ軸増分
        Dim slogy As String   'ｙ軸の種類（L：対数，N：普通）
        Dim kxi As Double : Dim kxf As Double
        Dim kyi As Double : Dim kyf As Double
        Dim xx As Double : Dim yy As Double
        Dim str0 As String
        Dim str1 As String
        Dim str2 As String
        Dim str3 As String
        Dim str4 As String
        Dim kxx As Double : Dim kyy As Double
        Dim kxx1 As Double : Dim kyy1 As Double
        Dim kxx2 As Double : Dim kyy2 As Double

        'データ格納用変数宣言
        Dim datax() As Double
        Dim datay(,) As Double
        Dim kind() As Integer
        Dim dname() As String
        Dim pltch() As String
        Dim nd As Integer
        Dim md As Integer

        'データ入出力用変数宣言
        Dim sr As System.IO.StreamReader
        Dim sw As System.IO.StreamWriter
        Dim dat As String
        Dim sbuf() As String
        Dim delim() As Char = {","c}
        Dim fname1 As String = ""
        Dim fname2 As String = ""

        Dim i As Integer
        Dim k As Integer

        'データ読み込み
        OpenFileDialog1.InitialDirectory = My.Computer.FileSystem.CurrentDirectory
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then fname1 = OpenFileDialog1.FileName
        sr = New System.IO.StreamReader(fname1, System.Text.Encoding.Default)
        dat = sr.ReadLine()
        dat = sr.ReadLine() : sbuf = dat.Split(delim) : sxjiku = sbuf(0) : syjiku = sbuf(1)
        dat = sr.ReadLine() : sbuf = dat.Split(delim) : HSIZE = CDbl(sbuf(0)) : DHL = CDbl(sbuf(1)) : DHR = CDbl(sbuf(2))
        dat = sr.ReadLine() : sbuf = dat.Split(delim) : VSIZE = CDbl(sbuf(0)) : DVL = CDbl(sbuf(1)) : DVU = CDbl(sbuf(2))
        dat = sr.ReadLine() : sbuf = dat.Split(delim) : xmin = CDbl(sbuf(0)) : xmax = CDbl(sbuf(1)) : dx = CDbl(sbuf(2)) : slogx = sbuf(3)
        dat = sr.ReadLine() : sbuf = dat.Split(delim) : ymin = CDbl(sbuf(0)) : ymax = CDbl(sbuf(1)) : dy = CDbl(sbuf(2)) : slogy = sbuf(3)
        dat = sr.ReadLine() : sbuf = dat.Split(delim) : nd = CInt(sbuf(0)) - 1 : md = CInt(sbuf(1)) - 1
        ReDim datax(nd)
        ReDim datay(md, nd)
        ReDim kind(md)
        ReDim dname(md)
        ReDim pltch(md)
        For k = 0 To md
            dat = sr.ReadLine() : sbuf = dat.Split(delim)
            kind(k) = CInt(sbuf(0))
            pltch(k) = sbuf(1)
        Next k
        dat = sr.ReadLine() : sbuf = dat.Split(delim)
        For k = 0 To md
            dname(k) = sbuf(k + 1)
        Next k
        i = 0
        Do While sr.Peek() >= 0
            dat = sr.ReadLine()
            sbuf = dat.Split(delim)
            datax(i) = CDbl(sbuf(0))
            For k = 0 To md
                datay(k, i) = CDbl(sbuf(k + 1))
            Next k
            i = i + 1
        Loop
        sr.Close()
        nd = i - 1

        'プロット領域定義
        kxi = DHL
        kxf = HSIZE - DHR
        kyi = DVL
        kyf = VSIZE - DVU
        '対数値処理
        If slogx = "L" Then
            For i = 0 To nd
                If datax(i) < System.Math.Pow(10.0, xmin) Then datax(i) = System.Math.Pow(10.0, xmin)
                datax(i) = System.Math.Log10(datax(i))
            Next i
        End If
        If slogy = "L" Then
            For k = 0 To md
                For i = 0 To nd
                    If datay(k, i) < System.Math.Pow(10.0, ymin) Then datay(k, i) = System.Math.Pow(10.0, ymin)
                    datay(k, i) = System.Math.Log10(datay(k, i))
                Next i
            Next k
        End If

        'TeXファイル書き込み
        SaveFileDialog1.Filter = "*.tex|*.tex"
        If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then fname2 = SaveFileDialog1.FileName
        fnamedvi = fname2
        sw = New System.IO.StreamWriter(fname2, False, System.Text.Encoding.Default)
        sw.WriteLine("\documentclass[a4paper,10pt]{jsarticle}")
        sw.WriteLine("\input{jartfmt}")
        sw.WriteLine("\usepackage[dvipdfm]{graphics,graphicx}")
        sw.WriteLine("\begin{document}")
        'sw.WriteLine("\begin{center}")
        sw.WriteLine("\unitlength=1mm")
        sw.WriteLine("\begin{picture}(" & HSIZE.ToString("0.000") & "," & VSIZE.ToString("0.000") & ")")
        '作図範囲枠
        str0 = "(0,0)"
        str1 = "(" & HSIZE.ToString("0.000") & ",0)"
        str2 = "(" & HSIZE.ToString("0.000") & "," & VSIZE.ToString("0.000") & ")"
        str3 = "(0," & VSIZE.ToString("0.000") & ")"
        str4 = "(0,0)"
        sw.WriteLine("\path" & str0 & str1 & str2 & str3 & str4 & "%全体描画枠")
        'ｘ−ｙ軸描画
        If slogx = "N" Then Call TeX_DRN_XJIKU(sw, xmin, xmax, dx, kxi, kxf, kyi, kyf)
        If slogy = "N" Then Call TeX_DRN_YJIKU(sw, ymin, ymax, dy, kxi, kxf, kyi, kyf)
        If slogx = "L" Then Call TeX_DRL_XJIKU(sw, xmin, xmax, kxi, kxf, kyi, kyf)
        If slogy = "L" Then Call TeX_DRL_YJIKU(sw, ymin, ymax, kxi, kxf, kyi, kyf)
        '枠線描画
        str1 = kxi.ToString("0.000")
        str2 = kyi.ToString("0.000")
        str3 = kxf.ToString("0.000")
        str4 = kyi.ToString("0.000")
        sw.WriteLine("\path(" & str1 & "," & str2 & ")(" & str3 & "," & str4 & ")")
        str1 = kxf.ToString("0.000")
        str2 = kyi.ToString("0.000")
        str3 = kxf.ToString("0.000")
        str4 = kyf.ToString("0.000")
        sw.WriteLine("\path(" & str1 & "," & str2 & ")(" & str3 & "," & str4 & ")")
        str1 = kxf.ToString("0.000")
        str2 = kyf.ToString("0.000")
        str3 = kxi.ToString("0.000")
        str4 = kyf.ToString("0.000")
        sw.WriteLine("\path(" & str1 & "," & str2 & ")(" & str3 & "," & str4 & ")")
        str1 = kxi.ToString("0.000")
        str2 = kyf.ToString("0.000")
        str3 = kxi.ToString("0.000")
        str4 = kyi.ToString("0.000")
        sw.WriteLine("\path(" & str1 & "," & str2 & ")(" & str3 & "," & str4 & ")")
        'ｘ軸名描画
        str1 = (0.5 * (kxi + kxf)).ToString("0.000")
        str2 = (kyi - 8.0).ToString("0.000")
        sw.WriteLine("\put(" & str1 & "," & str2 & "){\makebox(0,0){" & sxjiku & "}}")
        'ｙ軸名描画
        str1 = (kxi - 15.0).ToString("0.000")
        str2 = (0.5 * (kyi + kyf)).ToString("0.000")
        sw.WriteLine("\put(" & str1 & "," & str2 & "){\makebox(0,0){\rotatebox{90}{" & syjiku & "}}}")
        'データプロット
        For k = 0 To md
            Select Case kind(k)
                Case 0
                    '線のみ
                    sw.WriteLine("\path")
                    For i = 0 To nd
                        xx = datax(i)
                        yy = datay(k, i)
                        kxx = kxi + (xx - xmin) * (kxf - kxi) / (xmax - xmin)
                        kyy = kyi + (yy - ymin) * (kyf - kyi) / (ymax - ymin)
                        str1 = kxx.ToString("0.000")
                        str2 = kyy.ToString("0.000")
                        sw.WriteLine("(" & str1 & "," & str2 & ")")
                    Next i
                Case 1
                    '線＋記号
                    str0 = pltch(k)
                    If str0 = "$\circ$" Or str0 = "$\bullet$" Then
                        sw.WriteLine("\normalsize")
                    Else
                        sw.WriteLine("\scriptsize")
                    End If
                    sw.WriteLine("\begin{drawjoin}")
                    For i = 0 To nd
                        xx = datax(i)
                        yy = datay(k, i)
                        kxx = kxi + (xx - xmin) * (kxf - kxi) / (xmax - xmin)
                        kyy = kyi + (yy - ymin) * (kyf - kyi) / (ymax - ymin)
                        str1 = kxx.ToString("0.000")
                        str2 = kyy.ToString("0.000")
                        sw.WriteLine("\jput(" & str1 & "," & str2 & "){\makebox(0,0){" & str0 & "}}")
                    Next i
                    sw.WriteLine("\end{drawjoin}")
                Case 2
                    '記号のみ
                    str0 = pltch(k)
                    If str0 = "$\circ$" Or str0 = "$\bullet$" Then
                        sw.WriteLine("\normalsize")
                    Else
                        sw.WriteLine("\scriptsize")
                    End If
                    For i = 0 To nd
                        xx = datax(i)
                        yy = datay(k, i)
                        kxx = kxi + (xx - xmin) * (kxf - kxi) / (xmax - xmin)
                        kyy = kyi + (yy - ymin) * (kyf - kyi) / (ymax - ymin)
                        str1 = kxx.ToString("0.000")
                        str2 = kyy.ToString("0.000")
                        sw.WriteLine("\put(" & str1 & "," & str2 & "){\makebox(0,0){" & str0 & "}}")
                    Next i
            End Select
        Next k
        If 0 < md Then
            Dim ds As Double = 5
            Dim dh As Double = 4
            sw.WriteLine("\normalsize")
            For k = 0 To md
                Select Case kind(k)
                    Case 0
                        kxx1 = kxf + ds
                        kyy1 = kyf - dh * (k + 1)
                        kxx2 = kxx1 + ds
                        kyy2 = kyy1
                        str1 = kxx1.ToString("0.000")
                        str2 = kyy1.ToString("0.000")
                        str3 = kxx2.ToString("0.000")
                        str4 = kyy2.ToString("0.000")
                        sw.WriteLine("\path(" & str1 & "," & str2 & ")(" & str3 & "," & str4 & ")")
                        kxx = kxx2 + ds
                        kyy = kyf - dh * (k + 1) - dh / 4
                        str1 = kxx1.ToString("0.000")
                        str2 = kyy1.ToString("0.000")
                        str0 = dname(k)
                        sw.WriteLine("\put(" & str1 & "," & str2 & "){" & str0 & "}")
                    Case 1, 2
                        kxx = kxf + ds
                        kyy = kyf - dh * (k + 1)
                        str0 = pltch(k)
                        str1 = kxx.ToString("0.000")
                        str2 = kyy.ToString("0.000")
                        sw.WriteLine("\put(" & str1 & "," & str2 & "){\makebox(0,0){" & str0 & "}}")
                        kxx = kxx + ds
                        kyy = kyf - dh * (k + 1) - dh / 4
                        str1 = kxx.ToString("0.000")
                        str2 = kyy.ToString("0.000")
                        str0 = dname(k)
                        sw.WriteLine("\put(" & str1 & "," & str2 & "){" & str0 & "}")
                End Select
            Next k
        End If
        sw.WriteLine("\end{picture}")
        'sw.WriteLine("\end{center}")
        sw.WriteLine("\end{document}")
        sw.Close()

    End Sub


    Private Sub TeX_DRN_XJIKU(ByVal sw As System.IO.StreamWriter, _
                          ByVal xmin As Double, ByVal xmax As Double, ByVal dx As Double, _
                          ByVal kxi As Double, ByVal kxf As Double, _
                          ByVal kyi As Double, ByVal kyf As Double)
        Dim i As Integer
        Dim ix As Integer
        Dim xx As Double
        Dim kxx As Double
        Dim wv As Double
        Dim str0 As String
        Dim str1 As String
        Dim str2 As String
        Dim str3 As String
        Dim str4 As String
        Dim dat1 As String
        Dim dat2 As String

        '普通ｘ軸描画
        ix = CInt((xmax - xmin) / dx)
        For i = 0 To ix
            xx = xmin + CDbl(i) * dx
            kxx = kxi + (xx - xmin) * (kxf - kxi) / (xmax - xmin)
            wv = xmin + CDbl(i) * dx
            str0 = wv.ToString("0")
            If CInt(dx * 1000.0) Mod 10 <> 0 Then str0 = wv.ToString("0.000")
            If CInt(dx * 1000.0) Mod 10 = 0 And CInt(dx * 100.0) Mod 10 <> 0 Then str0 = wv.ToString("0.00")
            If (CInt(dx * 1000.0) Mod 10 = 0 And CInt(dx * 100.0) Mod 10 = 0) And CInt(dx * 10.0) Mod 10 <> 0 Then str0 = wv.ToString("0.0")
            str1 = kxx.ToString("0.000")
            str2 = kyi.ToString("0.000")
            str3 = kxx.ToString("0.000")
            str4 = kyf.ToString("0.000")
            dat1 = "\dottedline{1}(" & str1 & "," & str2 & ")(" & str3 & "," & str4 & ")"
            str2 = (kyi - 3.0).ToString("0.000")
            dat2 = "\put(" & str1 & "," & str2 & "){\makebox(0,0){" & str0 & "}}"
            sw.WriteLine(dat1 & dat2)
        Next i
    End Sub


    Private Sub TeX_DRN_YJIKU(ByVal sw As System.IO.StreamWriter, _
                              ByVal ymin As Double, ByVal ymax As Double, ByVal dy As Double, _
                              ByVal kxi As Double, ByVal kxf As Double, _
                              ByVal kyi As Double, ByVal kyf As Double)
        Dim i As Integer
        Dim iy As Integer
        Dim yy As Double
        Dim kyy As Double
        Dim wv As Double
        Dim str0 As String
        Dim str1 As String
        Dim str2 As String
        Dim str3 As String
        Dim str4 As String
        Dim dat1 As String
        Dim dat2 As String

        '普通ｙ軸描画
        iy = CInt((ymax - ymin) / dy)
        For i = 0 To iy
            yy = ymin + CDbl(i) * dy
            kyy = kyi + (yy - ymin) * (kyf - kyi) / (ymax - ymin)
            wv = ymin + CDbl(i) * dy
            str0 = wv.ToString("0")
            If CInt(dy * 1000.0) Mod 10 <> 0 Then str0 = wv.ToString("0.000")
            If CInt(dy * 1000.0) Mod 10 = 0 And CInt(dy * 100.0) Mod 10 <> 0 Then str0 = wv.ToString("0.00")
            If (CInt(dy * 1000.0) Mod 10 = 0 And CInt(dy * 100.0) Mod 10 = 0) And CInt(dy * 10.0) Mod 10 <> 0 Then str0 = wv.ToString("0.0")
            str1 = kxi.ToString("0.000")
            str2 = kyy.ToString("0.000")
            str3 = kxf.ToString("0.000")
            str4 = kyy.ToString("0.000")
            dat1 = "\dottedline{1}(" & str1 & "," & str2 & ")(" & str3 & "," & str4 & ")"
            str1 = (kxi - 6.0).ToString("0.000")
            dat2 = "\put(" & str1 & "," & str2 & "){\makebox(0,0){" & str0 & "}}"
            sw.WriteLine(dat1 & dat2)
        Next i
    End Sub


    Private Sub TeX_DRL_XJIKU(ByVal sw As System.IO.StreamWriter, _
                              ByVal xmin As Double, ByVal xmax As Double, _
                              ByVal kxi As Double, ByVal kxf As Double, _
                              ByVal kyi As Double, ByVal kyf As Double)
        Dim i As Integer
        Dim xx As Double
        Dim kxx As Double
        Dim str0 As String
        Dim str1 As String
        Dim str2 As String
        Dim str3 As String
        Dim str4 As String
        Dim dat1 As String
        Dim dat2 As String

        '対数ｘ軸描画
        For i = CInt(xmin) To CInt(xmax) - 1
            For j = 1 To 9
                xx = System.Math.Log10(CDbl(j) * System.Math.Pow(10.0, CDbl(i)))
                kxx = kxi + (xx - xmin) * (kxf - kxi) / (xmax - xmin)
                str1 = kxx.ToString("0.000")
                str2 = kyi.ToString("0.000")
                str3 = kxx.ToString("0.000")
                str4 = kyf.ToString("0.000")
                dat1 = "\dottedline{1}(" & str1 & "," & str2 & ")(" & str3 & "," & str4 & ")"
                sw.WriteLine(dat1)
            Next j
        Next i
        For i = CInt(xmin) To CInt(xmax)
            xx = CDbl(i)
            kxx = kxi + (xx - xmin) * (kxf - kxi) / (xmax - xmin)
            str0 = CStr(System.Math.Pow(10.0, CDbl(i)))
            str1 = kxx.ToString("0.000")
            str2 = (kyi - 3.0).ToString("0.000")
            dat2 = "\put(" & str1 & "," & str2 & "){\makebox(0,0){" & str0 & "}}"
            sw.WriteLine(dat2)
        Next i
    End Sub


    Private Sub TeX_DRL_YJIKU(ByVal sw As System.IO.StreamWriter, _
                              ByVal ymin As Double, ByVal ymax As Double, _
                              ByVal kxi As Double, ByVal kxf As Double, _
                              ByVal kyi As Double, ByVal kyf As Double)
        Dim i As Integer
        Dim j As Integer
        Dim yy As Double
        Dim kyy As Double
        Dim str0 As String
        Dim str1 As String
        Dim str2 As String
        Dim str3 As String
        Dim str4 As String
        Dim dat1 As String
        Dim dat2 As String

        '対数ｙ軸描画
        For i = CInt(ymin) To CInt(ymax) - 1
            For j = 1 To 9
                yy = System.Math.Log10(CDbl(j) * System.Math.Pow(10.0, CDbl(i)))
                kyy = kyi + (yy - ymin) * (kyf - kyi) / (ymax - ymin)
                str1 = kxi.ToString("0.000")
                str2 = kyy.ToString("0.000")
                str3 = kxf.ToString("0.000")
                str4 = kyy.ToString("0.000")
                dat1 = "\dottedline{1}(" & str1 & "," & str2 & ")(" & str3 & "," & str4 & ")"
                sw.WriteLine(dat1)
            Next j
        Next i
        For i = CInt(ymin) To CInt(ymax)
            yy = CDbl(i)
            kyy = kyi + (yy - ymin) * (kyf - kyi) / (ymax - ymin)
            str0 = CStr(System.Math.Pow(10.0, CDbl(i)))
            str1 = (kxi - 6.0).ToString("0.000")
            str2 = kyy.ToString("0.000")
            dat2 = "\put(" & str1 & "," & str2 & "){\makebox(0,0){" & str0 & "}}"
            sw.WriteLine(dat2)
        Next i
    End Sub


End Class