Script Programming(스크립트 프로그래밍)

REM ============================================================================
REM  Filename: TestHexView_03.vb
REM
REM   Compile: vbc TestHexView_03.vb
REM   Execute: TestHexView_03 [filename]
REM
REM  Date: 2013. 8. 6.
REM ============================================================================

Imports System.IO

Public Class HexViewUtil

    Shared Sub PrintUsage()
        Console.WriteLine("Usage: TestHexView_03 [filename]")
    End Sub

    Shared Function ToHex(c As Integer)
        Dim s As String = ""
        Dim x1, x2 As Integer

        x1 = (c And &HF0) >> 4
        x2 = c And &H0F
        If x1 < 10 Then
            s = s & Chr(x1 + Asc("0"))
        Else
            s = s & Chr((x1 - 10) + Asc("A"))
        End If
        If x2 < 10 Then
            s = s + Chr(x2 + Asc("0"))
        Else
            s = s + Chr((x2 - 10) + Asc("A"))
        End If
        ToHex = s
    End Function

    Shared Function ToHex8(n As Integer)
        Dim s As String = ""
        Dim x1, x2, x3, x4, x5, x6, x7, x8 As Integer

        x1 = (n And &HF0000000) >> 28
        x2 = (n And &HF000000) >> 24
        x3 = (n And &HF00000) >> 20
        x4 = (n And &HF0000) >> 16
        x5 = (n And &HF000) >> 12
        x6 = (n And &HF00) >> 8
        x7 = (n And &HF0) >> 4
        x8 = n And &H0F

        If x1 < 10 Then
            s = s & Chr(x1 + Asc("0"))
        Else
            s = s & Chr((x1 - 10) + Asc("A"))
        End If
        If x2 < 10 Then
            s = s + Chr(x2 + Asc("0"))
        Else
            s = s + Chr((x2 - 10) + Asc("A"))
        End If
        If x3 < 10 Then
            s = s + Chr(x3 + Asc("0"))
        Else
            s = s + Chr((x3 - 10) + Asc("A"))
        End If
        If x4 < 10 Then
            s = s + Chr(x4 + Asc("0"))
        Else
            s = s + Chr((x4 - 10) + Asc("A"))
        End If
        s = s + " "
        If x5 < 10 Then
            s = s + Chr(x5 + Asc("0"))
        Else
            s = s + Chr((x5 - 10) + Asc("A"))
        End If
        If x6 < 10 Then
            s = s + Chr(x6 + Asc("0"))
        Else
            s = s + Chr((x6 - 10) + Asc("A"))
        End If
        If x7 < 10 Then
            s = s + Chr(x7 + Asc("0"))
        Else
            s = s + Chr((x7 - 10) + Asc("A"))
        End If
        If x8 < 10 Then
            s = s + Chr(x8 + Asc("0"))
        Else
            s = s + Chr((x8 - 10) + Asc("A"))
        End If
        ToHex8 = s
    End Function

    Shared Sub Main(args() as String)
        Dim fname = ""

        If args.Length < 1 Then
         PrintUsage()
            Exit Sub 
        Else
            fname = args(0)
        End If

        If My.Computer.FileSystem.DirectoryExists(fname) Then
            Console.WriteLine("The path ""{0}"" is a directory.", fname)
            Exit Sub 
        End If

        If My.Computer.FileSystem.FileExists(fname) = False Then
            Console.WriteLine("The file ""{0}"" does not exist.", fname)
            Exit Sub  
        End If

         Dim info As New FileInfo(fname)

         Dim fsize As Long = info.Length
        Console.WriteLine("The size of the file ""{0}"" is {1}.", fname, fsize)
        Console.WriteLine()

        Dim inputFile = IO.File.Open(fname, IO.FileMode.Open)

        Dim bufferSize = 16
        Dim bytes = New Byte(bufferSize) {}

        Dim n = 0
        Dim m = 0
        Dim i = 0
        Dim j = 0
        Dim t = ""
        Dim c = 0

        While n < fsize
            m = inputFile.Read(bytes, 0, bufferSize)
            If n Mod 16 = 0 Then
                Console.Write("{0}: ", ToHex8(n))
            End If
            For i = 0 To m - 1
                c = bytes(i)
                If i = 7 Then
                    Console.Write("-{0}", ToHex(c))
                Else
                    Console.Write(" {0}", ToHex(c))
                End If
                If c - Asc(" ") < 0 Or c > &H7F Then
                    t = t + "."
                Else
                    t = t + Chr(c)
                End If
            Next i

            If m < 16 Then
                For j = 1 To 16 - m
                    Console.Write("   ")
                Next j
            End If
            Console.Write(" |{0}", t)
            t = ""
            If m < 16 Then
                For j = 1 To 16 - m
                    Console.Write(" ")
                Next j
            End If
            Console.WriteLine("|")

            n = n + m
        End While

        inputFile.Close()

        Console.WriteLine()
        Console.WriteLine("Read {0} bytes.", n)

    End Sub
End Class

Module ApproximateModule

    Private Const MAX_ITER As Integer = 20000
    Private Const M_EPSILON As Double = 1.0e-15

    Private Const CRLF As String = Chr(13) & Chr(10)

    '
    ' Compute the n-th root of x to a given scale, x > 0.
    '
    Public Function nPow(a As Double, n As Integer) As Double
        Dim y As Double

        If (n > 0) Then
            If (n = 1) Then
                return a
            Else
                If (a = 0.0 Or a = 1.0) Then
                    return a
                ElseIf (a = -1.0) Then
                    If (n Mod 2 = 1) Then
                        return -1.0
                    Else
                        return 1.0
                    End If
                ElseIf (a < 0.0) Then
                    If (n Mod 2 = 1)Then
                        return -nPow(-a, n)
                    Else
                        return nPow(-a, n)
                    End If
                Else
                    y = 1.0
                    For i As Integer = 1 to n
                        y = y * a
                    Next
                    return y
                End If
            End If
        ElseIf (n = 0) Then
            return 1.0
        Else       '  when n < 0
            If (a = 0.0) Then
                Throw New Exception("Negative powering exception of zero.")
            Else
                If (n = -1) Then
                    return 1.0/a
                Else
                    return 1.0/nPow(a, -n)
                End If
            End If
        End If
    End Function

    '
    ' Compute the n-th root of x to a given scale, x > 0.
    '
    Public Function gPow(a As Double, n As Integer) As Double
        Dim  y As Double
        Dim r As Double
        Dim one As Integer
        Dim m As Integer

        If (n > 0) Then
            If (n = 1) Then
                return a
            Else
                If (a = 0.0 Or a = 1.0) Then
                    return a
                ElseIf (a = -1.0) Then
                    If (n Mod 2 = 1) Then
                        return -1.0
                    Else
                        return 1.0
                    End If
                ElseIf (a < 0.0) Then
                    If (n Mod 2 = 1) Then
                        return -gPow(-a, n)
                    Else
                        return gPow(-a, n)
                    End If
                Else
                    y = 1.0
                    r = a
                    m = 8*4 - 1           '  8*sizeof(int) - 1;
                    one = 1
                    For i As Integer = 1 To m
                        If ((n And one) = 0) Then
                            y = y * 1.0
                        Else
                            y = y * r
                        End If
                        r = r*r
                        one = one << 1
                        if (one > n) Then
                            Exit For
                        End if
                    Next
                    return y
                End If
            End If
        ElseIf (n = 0) Then
            return 1.0
        Else       '  when n < 0
            If (a = 0.0) Then
                Throw New Exception("Negative powering exception of zero.")
            Else
                if (n = -1) Then
                    return 1.0/a
                Else
                    return 1.0/gPow(a, -n)
                End if
            End If
        End If
    End Function

    '
    ' Compute the n-th root of x to a given scale, x > 0.
    '
    Public Function mPow(a As Double, n As Integer) As Double
        Dim  y As Double
        Dim r As Double
        Dim m As Integer

        If (n > 0) Then
            If (n = 1) Then
                return a
            Else
                If (a = 0.0 Or a = 1.0)  Then
                    return a
                ElseIf (a = -1.0)  Then
                    If (n Mod 2 = 1) Then
                        return -1.0
                    Else
                        return 1.0
                    End If
                ElseIf (a < 0.0) Then
                    If (n Mod 2 = 1) Then
                        return -mPow(-a, n)
                    Else
                        return mPow(-a, n)
                    End If
                Else
                    y = 1.0
                    r = a
                    m = n
                    Do While (m > 0)
                        If ((m And 1) = 1) Then
                            y = y * r
                        End If
                        r = r*r
                        m = m >> 1
                    Loop
                    return y
                End If
            End If
        ElseIf (n = 0) Then
            return 1.0
        Else       '  when n < 0
            If (a = 0.0) Then
                Throw New Exception("Negative powering exception of zero.")
            Else
                If (n = -1) Then
                    return 1.0/a
                Else
                    return 1.0/mPow(a, -n)
                End If
            End If
        End If
    End Function

    '
    ' Compute the square root of x to a given scale, x > 0.
    '
    Public Function heronSqrt(a As Double) As Double
        Dim x1 As Double
        Dim x2 As Double
        Dim er As Double
        Dim counter As Integer

        If (a < 0.0) Then
            Throw New Exception("Cannot find the Sqrt of a negative number.")
        ElseIf (a = 0.0 Or a = 1.0) Then
            return a
        Else
            x1 = a
            x2 = (x1 + a/x1)/2.0
            er = x1 - x2
            counter = 0
            Do While (x1 + er <> x1)
                x1 = x2
                x2 = (x1 + a/x1)/2.0
                er = x1 - x2
                If (Math.Abs(er) < Math.Abs(M_EPSILON*x1)) Then
                    Exit Do
                End If
                counter = counter + 1
                If (counter > MAX_ITER) Then
                    Exit Do
                End If
            Loop
            If (counter > MAX_ITER) Then
                Throw New Exception("Inaccurate sqrt exception by too many iterations.")
            End If
            return x2
        End If
    End Function

    '
    ' Compute the cubic root of x to a given scale, x > 0.
    '
    Public Function newtonCbrt(a As Double) As Double
        Dim x1 As Double
        Dim x2 As Double
        Dim er As Double
        Dim counter As Integer

        If (a = 0.0 Or a = 1.0 Or a = -1.0) Then
            return a
        ElseIf (a < 0.0) Then
            return -newtonCbrt(-a)
        Else
            x1 = a
            x2 = (2.0*x1 + a/(x1*x1))/3.0
            er = x1 - x2
            counter = 0
            Do While (x1 + er <> x1)
                x1 = x2
                x2 = (2.0*x1 + a/(x1*x1))/3.0
                er = x1 - x2
                If (Math.Abs(er) < Math.Abs(M_EPSILON*x1)) Then
                    Exit Do
                End if
                counter = counter + 1
                if (counter > MAX_ITER) Then
                    Exit Do
                End if
            Loop
            If (counter >= MAX_ITER) Then
                Throw New Exception("Inaccurate cbrt exception by too many iterations.")
            End If
            return x2
        End If
    End Function

    '
    ' Compute the n-th root of x to a given scale, x > 0.
    '
    Public Function newtonNthRoot(n As integer, a As Double) As Double
        Dim x1 As Double
        Dim x2 As Double
        Dim xn As Double
        Dim er As Double
        Dim counter As Integer

        If (n = 0) Then
            return 1.0
        ElseIf (n = 1) Then
            return a
        ElseIf (n > 0) Then
            If (a = 0.0 Or a = 1.0) Then
                return a
            ElseIf (a = -1.0) Then
                If (n Mod 2 = 1) Then
                    return a
                Else
                    Throw New Exception("Cannot find the even n-th root of a negative number.")
                End If
            ElseIf (a < 0.0) Then
                if (n Mod 2 = 1) Then
                    return -newtonNthRoot(n, -a)
                Else
                    Throw New Exception("Cannot find the even n-th root of a negative number.")
                End If
            ElseIf (a < 1.0) Then
                return 1.0/newtonNthRoot(n, 1.0/a)
            Else
                x1 = a
                xn = mPow(x1, n - 1)
                x2 = ((n - 1)*x1 + a/xn)/n
                er = x1 - x2
                counter = 0
                Do While (x1 + er <> x1)
                    x1 = x2
                    xn = mPow(x1, n - 1)
                    x2 = ((n - 1)*x1 + a/xn)/n
                    er = x1 - x2
                    If (Math.Abs(er) < Math.Abs(M_EPSILON*x1)) Then
                        Exit Do
                    End if
                    counter = counter + 1
                    if (counter > MAX_ITER) Then
                        Exit Do
                    End if
                Loop
                if (counter >= MAX_ITER) Then
                    Throw New Exception("Inaccurate n-th root exception by too many iterations.")
                End If
                return x2
            End If
        Else
            If (a = 0.0) Then
                Throw New Exception("Cannot find the negative n-th root of zero.")
            Else
                return 1.0/newtonNthRoot(-n, a)
            End If
        End If
    End Function

    Sub Main()

        Dim x As Double = 16.0
        Dim u As Double = Math.Sqrt(x)

        Console.WriteLine("[ Testing heronSqrt(double) ]--------------------")
        Console.WriteLine("x = " & x )
        Console.WriteLine("u = Sqrt(" & x & ") = " & u )
        Dim y As Double = heronSqrt(x)
        Console.WriteLine("y = heronSqrt(" & x & ") = " & y )
        Console.WriteLine("y*y = " & y*y )
        Console.WriteLine()

        Console.WriteLine("[ Testing newtonCbrt(double) ]--------------------" )
        x = -216.0
        Console.WriteLine("x = " & x )
        Console.WriteLine("-Exp(Log(-x)/3.0) = " & -Math.Exp(Math.Log(-x)/3.0) )
        Dim w As Double = newtonCbrt(x)
        Console.WriteLine("w = newtonCbrt(" & x & ") = " & w )
        Console.WriteLine("w*w*w = " & w*w*w )
        Console.WriteLine()

        x = 729000000000.0
        Console.WriteLine("x = " & x )
        Console.WriteLine("Exp(Log(x)/3.0) = " & Math.Exp(Math.Log(x)/3.0) )
        w = newtonCbrt(x)
        Console.WriteLine("w = newtonCbrt(" & x & ") = " & w )
        Console.WriteLine("w*w*w = " & w*w*w )
        Console.WriteLine()

        Console.WriteLine("[ Testing newtonNthRoot(int, double) ]--------------------" )
        Dim z As Double = newtonNthRoot(3, x)
        Console.WriteLine("x = " & x )
        Console.WriteLine("z = newtonNthRoot(3, " & x & ") = " & z )
        Console.WriteLine("z*z*z = " & z*z*z )
        Console.WriteLine()

        x = 12960000000000000000.0
        z = newtonNthRoot(4, x)
        Console.WriteLine("x = " & x )
        Console.WriteLine("z = newtonNthRoot(4, x) = newtonNthRoot(4, " & x & ") = " & z )
        Console.WriteLine("z*z*z*z = " & z*z*z*z )
        Console.WriteLine()

        x = 1.0/12960000000000000000.0
        z = newtonNthRoot(4, x)
        Console.WriteLine("x = " & x )
        Console.WriteLine("Exp(Log(x)/4.0) = " & Math.Exp(Math.Log(x)/4.0) )
        Console.WriteLine("z = newtonNthRoot(4, x) = newtonNthRoot(4, " & x & ") = " & z )
        Console.WriteLine("z*z*z*z = " & z*z*z*z )
        Console.WriteLine()

        Try
            x = -4.0
            Console.WriteLine("[ Test Exception heronSqrt(double) ]--------------------" )
            Console.WriteLine("x = " & x )
            Console.WriteLine("Calculating heronSqrt(" & x & ")" )
            y = heronSqrt(x)
            Console.WriteLine("y = heronSqrt(" & x & ") = " & y )
            Console.WriteLine("y*y = " & y*y )
            Console.WriteLine()
        Catch ex As Exception
            Console.WriteLine(ex.Message & CRLF & "Caught some exception in calculating heronSqrt(" & x & ")" )
            Console.WriteLine()
        End Try

        Try
            x = -4.0
            Console.WriteLine("[ Test Exception in newtonCbrt(double) ]--------------------" )
            Console.WriteLine("x = " & x )
            Console.WriteLine("Calculating newtonCbrt(" & x & ")" )
            y = newtonCbrt(x)
            Console.WriteLine("y = newtonCbrt(" & x & ") = " & y )
            Console.WriteLine("y*y*y = " & y*y*y )
            Console.WriteLine()
        Catch ex As Exception
            Console.WriteLine(ex.Message & CRLF & "Caught some exception in calculating newtonCbrt(" & x & ")" )
            Console.WriteLine()
        End Try

        Console.WriteLine("[ Test calculations by powering ]-----------------------------" )
        x = 200.0
        z = newtonNthRoot(10, x)
        Console.WriteLine("x = " & x )
        Console.WriteLine("Exp(Log(x)/10.0) = " & Math.Exp(Math.Log(x)/10.0) )
        Console.WriteLine("z = newtonNthRoot(10, x) = newtonNthRoot(10, " & x & ") = " & z )
        Console.WriteLine("Pow(z, 10) = " & Math.Pow(z, 10) )
        Console.WriteLine()

        x = 3001.0
        z = newtonNthRoot(99, x)
        Console.WriteLine("x = " & x )
        Console.WriteLine("Exp(Log(x)/99.0) = " & Math.Exp(Math.Log(x)/99.0) )
        Console.WriteLine("z = newtonNthRoot(99, x) = newtonNthRoot(99, " & x & ") = " & z )
        Console.WriteLine("Pow(z, 99) = " & Math.Pow(z, 99) )
        Console.WriteLine()

        x = 3001.0
        z = newtonNthRoot(-99, x)
        Console.WriteLine("x = " & x )
        Console.WriteLine("Exp(Log(x)/-99.0) = " & Math.Exp(Math.Log(x)/-99.0) )
        Console.WriteLine("z = newtonNthRoot(-99, x) = newtonNthRoot(-99, " & x & ") = " & z )
        Console.WriteLine("1.0/Pow(z, 99) = " & 1.0/Math.Pow(z, 99) )
        Console.WriteLine()

        Console.WriteLine("2.1**2.1 = Pow(2.1, 2.1) = "  & Math.Pow(2.1, 2.1) )
        Console.WriteLine("2.1**(-2.1) = Pow(2.1, -2.1) = "  & Math.Pow(2.1, -2.1) )
        Console.WriteLine("2.1**2.1 * 2.1**(-2.1) = Pow(2.1, 2.1) * Pow(2.1, -2.1) = " & Math.Pow(2.1, 2.1)*Math.Pow(2.1, -2.1) )
        Console.WriteLine("2.1**2.1 = Exp(2.1*Log(2.1)) = "  & Math.Exp(2.1*Math.Log(2.1)) )
        Console.WriteLine("2.1**(-2.1) = Exp(-2.1*Log(2.1)) = " & Math.Exp(-2.1*Math.Log(2.1)) )
        Console.WriteLine("2.1**2.1 * 2.1**(-2.1) = Exp(2.1*Log(2.1)) * Exp(-2.1*Log(2.1)) = "  & Math.Exp(2.1*Math.Log(2.1)) * Math.Exp(-2.1*Math.Log(2.1)) )
        Console.WriteLine()

        Dim k As Integer = 301
        x = -1.029
        Dim t1 As Double = nPow(x, k)
        Dim t2 As Double = gPow(x, k)
        Dim t3 As Double = mPow(x, k)
        Console.WriteLine("t1 = nPow(" & x & ", " & k & ") = " & t1 )
        Console.WriteLine("t2 = gPow(" & x & ", " & k & ") = " & t2 )
        Console.WriteLine("t3 = mPow(" & x & ", " & k & ") = " & t3 )
        Console.WriteLine("t1 / t2 = " & (t1 / t2) )
        Console.WriteLine("t1 - t2 = " & (t1 - t2) )
        Console.Write("t1 == t2 ? ")
        If (t1 = t2) Then Console.WriteLine("yes") Else Console.WriteLine("no")
        Console.WriteLine("t1 / t3 = " & (t1 / t3) )
        Console.WriteLine("t1 - t3 = " & (t1 - t3) )
        If (t1 = t3) Then Console.WriteLine("yes") Else Console.WriteLine("no")
        Console.WriteLine("t2 / t3 = " & (t2 / t3) )
        Console.WriteLine("t2 - t3 = " & (t2 - t3) )
        If (t2 = t3) Then Console.WriteLine("yes") Else Console.WriteLine("no")
        Console.WriteLine()

        Console.WriteLine("Done.")
    End Sub

End Module

#If False Then
Output:
[ Testing heronSqrt(double) ]--------------------
x = 16
u = Sqrt(16) = 4
y = heronSqrt(16) = 4
y*y = 16

[ Testing newtonCbrt(double) ]--------------------
x = -216
-Exp(Log(-x)/3.0) = -6
w = newtonCbrt(-216) = -6
w*w*w = -216

x = 729000000000
Exp(Log(x)/3.0) = 9000
w = newtonCbrt(729000000000) = 9000
w*w*w = 729000000000

[ Testing newtonNthRoot(int, double) ]--------------------
x = 729000000000
z = newtonNthRoot(3, 729000000000) = 9000
z*z*z = 729000000000

x = 1.296E+19
z = newtonNthRoot(4, x) = newtonNthRoot(4, 1.296E+19) = 60000
z*z*z*z = 1.296E+19

x = 7.71604938271605E-20
Exp(Log(x)/4.0) = 1.66666666666667E-05
z = newtonNthRoot(4, x) = newtonNthRoot(4, 7.71604938271605E-20) = 1.66666666666
667E-05
z*z*z*z = 7.71604938271605E-20

[ Test Exception heronSqrt(double) ]--------------------
x = -4
Calculating heronSqrt(-4)
Cannot find the Sqrt of a negative number.
Caught some exception in calculating heronSqrt(-4)

[ Test Exception in newtonCbrt(double) ]--------------------
x = -4
Calculating newtonCbrt(-4)
y = newtonCbrt(-4) = -1.5874010519682
y*y*y = -4

[ Test calculations by powering ]-----------------------------
x = 200
Exp(Log(x)/10.0) = 1.69864646463425
z = newtonNthRoot(10, x) = newtonNthRoot(10, 200) = 1.69864646463425
Pow(z, 10) = 200

x = 3001
Exp(Log(x)/99.0) = 1.08423618932588
z = newtonNthRoot(99, x) = newtonNthRoot(99, 3001) = 1.08423618932588
Pow(z, 99) = 3001

x = 3001
Exp(Log(x)/-99.0) = 0.922308266265993
z = newtonNthRoot(-99, x) = newtonNthRoot(-99, 3001) = 0.922308266265993
1.0/Pow(z, 99) = 3001.00000000001

2.1**2.1 = Pow(2.1, 2.1) = 4.74963809174224
2.1**(-2.1) = Pow(2.1, -2.1) = 0.210542357266885
2.1**2.1 * 2.1**(-2.1) = Pow(2.1, 2.1) * Pow(2.1, -2.1) = 1
2.1**2.1 = Exp(2.1*Log(2.1)) = 4.74963809174224
2.1**(-2.1) = Exp(-2.1*Log(2.1)) = 0.210542357266885
2.1**2.1 * 2.1**(-2.1) = Exp(2.1*Log(2.1)) * Exp(-2.1*Log(2.1)) = 1

t1 = nPow(-1.029, 301) = -5457.92801577163
t2 = gPow(-1.029, 301) = -5457.92801577169
t3 = mPow(-1.029, 301) = -5457.92801577169
t1 / t2 = 0.999999999999989
t1 - t2 = 6.18456397205591E-11
t1 == t2 ? no
t1 / t3 = 0.999999999999989
t1 - t3 = 6.18456397205591E-11
no
t2 / t3 = 1
t2 - t3 = 0
yes

Done.
#End If

REM =============================================================
REM Filename: testArcSine.bas
REM
REM    This source should be compiled by using FreeBASIC,
REM    which can be downloaded from http://www.freebasic.net
REM
REM Compile: fbc testArcSine.bas
REM Execute: testArcSine
REM
REM Date: 2013. 1. 2.
REM Copyright (c) pkim _AT_ scripts.pe.kr
REM =============================================================

#include "string.bi"

Function asinh(x As Double) As Double
        Dim y As Double = log(x + Sqr(x*x + 1))
        return y
End Function

Function cosh(x As Double) As Double
        Dim y As Double = (Exp(x) + Exp(-x))/2.0
        return y
End Function

Function sinh(x As Double) As Double
        Dim y As Double = (Exp(x) - Exp(-x))/2.0
        return y
End Function

Function acosh(x As Double) As Double
        Dim y As Double = log(x + Sqr(x*x - 1))
        return y
End Function

Sub Main()
        Dim x As Double = -0.9
        Dim y As Double = asin(x)
        ' Print Using "y = asin(" & x & ") = #"; y
        ' Print Using "y = asin(" & x & ") = #.#########"; y
        Print "y = asin(" & x & ") = "& Format$(y, "0.#########")
        ' Print "sin(y) = sin(" & y & ") = " & sin(y)
        ' Print Using "sin(y) = sin(#.########) = #"; y, sin(y)
        Print "sin(y) = sin(" & Format$(y, "0.#########") & ") = " & sin(y)
        Print

        x = 1.1
        Dim u As Double = acosh(x)
        ' Print "u = acosh(" & x & ") = " & u
        Print "u = acosh(" & x & ") = " & Format$(u, "0.#########")

        Dim v As Double = asinh(x)
        ' Print "v = asinh(" & x & ") = " & v
        Print "v = asinh(" & x & ") = " &  Format$(v, "0.##########")

        ' Print "cosh(u) = cosh(" & u & ") = " & Cosh(u)
        ' Print "sinh(v) = sinh(" & v & ") = " & Sinh(v)
        Print "cosh(u) = cosh(" & Format$(u, "0.#########") & ") = " & Cosh(u)
        Print "sinh(v) = sinh(" & Format$(v, "0.#########") & ") = " & Sinh(v)
           
        ' Print Format$(1.23, "#.#")
End Sub

Main()

' ---------------------------
' Output:
' y = asin(-0.9) = -1.119769515
' sin(y) = sin(-1.119769515) = -0.9
'
' u = acosh(1.1) = 0.4435682544
' v = asinh(1.1) = 0.9503469298
' cosh(u) = cosh(0.4435682544) = 1.1
' sinh(v) = sinh(0.9503469298) = 1.1
' ---------------------------

Imports System

Namespace MyTestApplication1

    Public Class Parent

        Private name As String

        Public Sub New()
        End Sub

        Public Sub New(ByVal name AS String)
            Me.name =  name
        End Sub

        Public Sub SayName()
            Console.WriteLine("I am a parent, {0}", name)
        End Sub
    End Class
End Namespace

Imports System

Namespace MyTestApplication1

    Public Class Child
                 Inherits Parent

        Private name As String

        Public Sub New(ByVal name As String)
            ' MyBase.New(name)               ' 클래스 상속시 부모 클래스 생성자 호출
            Me.name =  name
        End Sub

        Public Overloads Sub SayName()
            Console.WriteLine("I am a child, {0}", name)
        End Sub
    End Class
End Namespace

Imports System

Namespace MyTestApplication1

    Public Class TestSubclassing
        Public Shared Sub Main(args() As String)
            Dim obj As Child = New Child("Dooly")
            obj.SayName()
        End Sub
    End Class
End Namespace

Imports System

Namespace MyTestApplication1

    Class MakeMultTableApp

        Shared Sub PrintUsing()
            Console.WriteLine("Using: MakeMultTableApp [number1] [number2]")
            Console.WriteLine("Print a multiplication table for the given two integers.")
        End Sub

        Shared Sub PrintMultTable(x As long, y As long)
            DIM nx As long = x
            DIM ny As long = y
            If nx < 0 Then nx = - nx
            If ny < 0 Then ny = - ny
            DIM ntail1 As int32 = 0
            DIM ntail2 As int32 = 0
            While nx Mod 10 = 0
                nx = Convert.ToInt64(Math.Floor(nx / 10))
                ntail1 = ntail1 + 1
            End While
            While ny MOD 10 = 0
                ny = Convert.ToInt64(Math.Floor(ny / 10))
                ntail2 = ntail2 + 1
            End While
            Dim z As long = nx * ny
            Dim strZ As String = "" & z
            Dim strX As String = "" & nx
            Dim strY As String = "" & ny
            Dim n As Integer = Len(strY)
            Dim zeros As String  = "0000000000000000000000000000000000000000"
            Dim whites As String = "                                        "
            Dim bars As String   = "----------------------------------------"
            Dim line1 As String, line2 As String, line3 As String, line4 As String
            Dim loffset As String = "       "
            line4 = loffset & strZ
            line1 = loffset & Mid(whites, 1, Len(strZ) - Len(strX)) & strX
            line2 = "   x ) " &  Mid(whites, 1, Len(strZ) - Len(strY)) & strY
            line3 = "     --" &  Mid(bars, 1, Len(strZ))
            Console.WriteLine(line1 & Mid(zeros, 1, ntail1))
            Console.WriteLine(line2 & Mid(zeros, 1, ntail2))
            Console.WriteLine(line3)
            If Len(strY) > 1 Then
                Dim y1 As Integer
                Dim strT As String
                For i As Integer = 0 To Len(strY) - 1
                    y1 = Convert.ToInt32(Mid(strY, Len(strY) - i, 1))
                    If y1 <> 0 Then
                        strT = "" & (nx * y1)
                        Console.WriteLine(loffset & Mid(whites, 1, Len(strZ) - Len(strT) - i) & strT)
                    End If
                Next
                Console.WriteLine(line3)
            End If
            Console.WriteLine(line4 & Mid(zeros, 1, ntail1) & Mid(zeros, 1, ntail2))
        End Sub

        ' Java 언어의 main 메소드에 해당하는 Visual Basic의 Main
        Shared Sub Main(ByVal args() As String)
            DIM x As long, y As long
            If args.Length >= 2 Then
                x = Convert.ToInt64(args(0))
                y = Convert.ToInt64(args(1))
                Console.WriteLine("")
                PrintMultTable(x, y)
            Else
                PrintUsing()
            End If
        End Sub
    End Class
End Namespace

Imports System
Imports ScottGarland        ' for C# 2.0   Get at http://www.codeplex.com/biginteger/Release/ProjectReleases.aspx?ReleaseId=16762
 
Namespace MyTestApplication1

    Class MakeDivisionTableApp

        Shared Dim ZERO As BigInteger = New BigInteger("0")
       
        Shared Sub printUsage()
             ' Console.WriteLine("Using: MakeDivisionTableApp [numerator] [denominator]")
             ' Console.WriteLine("Make a division table in a handy written form.")
             Console.WriteLine("사용법: MakeDivisionTableApp [피제수] [제수]")
             Console.WriteLine("손으로 작성한 형태의 나눗셈 표를 만들어준다.")
        End Sub

        Shared Function simplify(v As Double) As String
            Dim t As String = "" & Convert.ToString(v)
            If t.EndsWith(".0") Then
                t = Mid(t, 1, t.Length - 2)
            End If
            simplify = t
        End Function

        Shared Function simplify(v As BigInteger, width As Integer) As String
            Dim t As String = "" & Convert.ToString(v)
            If t.EndsWith(".0") Then
                t = Mid(t, 1, t.Length - 2)
            End If
            Dim len As Integer = t.Length
            If len < width Then
                t = Mid("                                                                                             ", 1, width - len) & t
            End If
            simplify = t
        End Function

        Function getSuffix(v As BigInteger) As String
            Dim t As BigInteger = BigInteger.Modulus(v, New BigInteger("10"))
            Dim suffix As String = "은"
            If "2459".IndexOf("" & Convert.ToString(t)) >= 0 Then
                suffix = "는"
            End If
            getSuffix = suffix
        End Function

        Function makeTable(numer As BigInteger, denom As BigInteger, quotient As BigInteger) As BigInteger
            Dim strNumer As String = "" & Convert.ToString(numer)
            Dim  strDenom As String = "" & Convert.ToString(denom)
            Dim  strQuotient As String = "" & Convert.ToString(quotient)
            DIm lenN As Integer = strNumer.Length
            DIm lenD As Integer = strDenom.Length
            DIm lenQ As Integer = strQuotient.Length
            DIm offsetLeft As Integer = 3 + lenD + 3
            DIm spaces As String = "                                                                                 "
            DIm uline  As String = Mid("_________________________________________________________________________________", 1, lenN + 2)
            DIm sline  As String = Mid("---------------------------------------------------------------------------------", 1, lenN)
            DIm bias As Integer = lenN - lenQ

            Console.WriteLine(Mid(spaces, 1, offsetLeft) & Mid(spaces, 1, bias) & Convert.ToString(quotient))
            Console.WriteLine(Mid(spaces, 1, offsetLeft - 2) & uline)
            Console.Write("   " & strDenom & " ) " & strNumer)
            Dim strTmpR As String = Mid(strNumer, 1, bias + 1)
            Dim tmpR As BigInteger = New BigInteger(strTmpR)
            Dim tmpSub As BigInteger = ZERO
            Dim oneDigit As String = Nothing

            For i As Integer = 0 To lenQ - 1
                If Mid(strQuotient, i + 1, 1) = "0" Then
                    If i + 1 < lenQ Then
                        oneDigit = Mid(strNumer, bias + i + 1 + 1, 1)
                        Console.Write(oneDigit)
                        strTmpR = strTmpR & oneDigit
                        tmpR = New BigInteger(strTmpR)
                    End If
                Else
                    Console.WriteLine()
                    tmpSub = BigInteger.Multiply(New BigInteger(Mid(strQuotient, i + 1, 1)), denom)
                    Console.WriteLine(Mid(spaces, 1, offsetLeft) & simplify(tmpSub, bias + i + 1))
                    Console.WriteLine(Mid(spaces, 1, offsetLeft) & sline)
                    tmpR = BigInteger.Subtract(tmpR, tmpSub)
                    If tmpR.Equals(ZERO) And i + 1 < lenQ Then
                        Console.Write(Mid(spaces, 1, offsetLeft) & Mid(spaces, 1, bias + i + 1))
                    Else
                        Console.Write(Mid(spaces, 1, offsetLeft) & simplify(tmpR, bias + i + 1))
                    End If

                    strTmpR = "" & Convert.ToString(tmpR)
                    If i + 1 < lenQ Then
                        oneDigit = Mid(strNumer, bias + i + 1 + 1, 1)
                        Console.Write(oneDigit)
                        strTmpR = strTmpR & oneDigit
                        tmpR = New BigInteger(strTmpR)
                    End If
                End If
            Next

            Console.WriteLine()
            makeTable = tmpR
        End Function

        ' Java 언어의 main 메소드에 해당하는 Visual Basic의 Main
        Shared Sub Main(ByVal args() As String)
            If args.Length < 2 Then
                printUsage()
                Environment.Exit(1)
            End If

            Dim a As BigInteger = Nothing
            Dim b As BigInteger = Nothing

            Try
                a = New BigInteger(args(0))
                b = New BigInteger(args(1))
            Catch ex As ArgumentOutOfRangeException
                Console.WriteLine(ex)
                Console.WriteLine("피제수: " & args(0) & ", 제수: " & args(1))
                Console.WriteLine("숫자 입력에 오류가 있습니다.")
                Environment.Exit(1)
            Catch ex As ArgumentNullException
                Console.WriteLine(ex)
            Catch ex As FormatException
                Console.WriteLine(ex)
                Console.WriteLine("피제수: " & args(0) & ", 제수: " & args(1))
                Console.WriteLine("숫자 입력에 오류가 있습니다.")
                Environment.Exit(1)
            End Try

            If BigInteger.Compare(a, ZERO) <= 0 Then
                Console.WriteLine("피제수: " & Convert.ToString(a))
                Console.WriteLine("피제수는 양의 정수라야 합니다.")
                Environment.Exit(1)
            ElseIf BigInteger.Compare(b, ZERO) <= 0 Then
                Console.WriteLine("제수: " & Convert.ToString(b))
                Console.WriteLine("제수는 양의 정수라야 합니다.")
                Environment.Exit(1)
            End If

            Dim app As MakeDivisionTableApp = New MakeDivisionTableApp()
            Dim q As BigInteger = BigInteger.Divide(a, b)
            Dim r As BigInteger = BigInteger.Modulus(a, b)
            Console.Write("나눗셈 " & Convert.ToString(a) & " ÷ " & Convert.ToString(b) & " 의 결과: ")
            Console.Write("몫: " & Convert.ToString(q) & ", ")
            Console.WriteLine("나머지: " & Convert.ToString(r))
            Console.WriteLine()

            Dim k As BigInteger = app.makeTable(a, b, q)
            Console.WriteLine()

            If k.Equals(r) Then
                Console.WriteLine("나머지: " & Convert.ToString(k))
            End If

            If k.Equals(ZERO) Then
                Console.WriteLine(Convert.ToString(a) & " = " & Convert.ToString(b) & " x " & Convert.ToString(q))
                Console.WriteLine(Convert.ToString(a) & app.getSuffix(a) & " " & Convert.ToString(b) & "의 배수(mupltiple)이다.")
                Console.WriteLine(Convert.ToString(b) & app.getSuffix(b) & " " & Convert.ToString(a) & "의 약수(divisor)이다.")
            Else
                Console.WriteLine(Convert.ToString(a) & " = " & Convert.ToString(b) & " x " & Convert.ToString(q) & " + " & Convert.ToString(r))
                Console.WriteLine(Convert.ToString(a) & app.getSuffix(a) & " " & Convert.ToString(b) & "의 배수(mupltiple)가 아니다.")
            End If
        End Sub
    End Class
End Namespace

Imports System

Namespace StringTokenizer

    Class Token
        Private Dim data As String
        Private Dim delimeter As String
        Private Dim tokens() As String
        Private Dim index As Integer
 
 
        Public Sub New(strdata As String)
            Init(strdata, " ")
        End Sub

        Public Sub New(strdata As String, delim As String)
            Init(strdata, delim)
        End Sub

        Sub Init(strdata As String, delim As String)
            data = strdata
            delimeter = delim
            Dim data2 As String = ""
            Dim isDelim As Boolean = False
            Dim c As String
            For i As Integer = 0 To data.Length - 1
             c = Mid(data, i + 1, 1)
             If delim.Contains(c) Then
                 If Not isDelim Then
                     isDelim = True
           data2 = data2 & c
                 End If
                 Continue For
             End If
         data2 = data2 & c
            Next
            tokens = data2.Split(delimeter.ToCharArray())
            index = 0
        End Sub

        Public Function Count() As Integer
            Count = tokens.Length
        End Function

        Public Function HasMoreTokens() As Boolean
            HasMoreTokens = index < tokens.Length
        End Function

        Public Function NextToken() As String
            If index < tokens.Length Then
                index = index + 1
                NextToken = tokens(index - 1)
                return tokens(index - 1)
            Else
                NextToken = ""
                return ""
            End If
        End Function
    End Class
End Namespace

Namespace MyTestApplication1

    Class ConvertRadixApp

        Shared Sub PrintUsage()
            Console.WriteLine("Usage: ConvertRadixApp")
            Console.WriteLine("Convert radix in a interactive mode, where the maximum radix is 36.")
        End Sub

        Sub PrintAbout()
            Console.WriteLine("    About: Convert radix in a interactive mode.")
        End Sub

        Sub PrintMainMenu()
            Console.WriteLine("  Command: (S)et radix, (A)bout, (Q)uit or E(x)it")
        End Sub

        Sub PrintMainPrompt()
            Console.Write("  Prompt> ")
        End Sub

        Sub PrintSubMenu(srcRadix As Integer, destRadix As Integer)
            Console.WriteLine("    Convert Radix_" & srcRadix & " to Radix_" & destRadix)
            Console.WriteLine("    SubCommand: 'main()' to goto Main menu, 'exit()' or 'quit()' to exit")
        End Sub

        Sub PrintSubPrompt()
            Console.Write("    Input Value>> ")
        End Sub

        Shared BASE36 As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"

        Shared Function ConvertItoA(num As Int64, radix As Int32) As String
            Dim tmp As String
            Dim ret As String
            Dim arr As String
            Dim q As Int64
            Dim r As Int64
            Dim isNegative As Boolean = False
            If num < 0L Then
                isNegative = True
                num = -num
            End If
            arr = ""
            q = num
            r = 0L

            While q >= Convert.ToInt64(radix)
                r = q Mod Convert.ToInt64(radix)
                q = Convert.ToInt64(Math.Floor(q / Convert.ToInt64(radix)))
                tmp = Mid(BASE36, Convert.ToInt32(r) + 1, 1)
                arr = arr & tmp
            End While
            tmp = Mid(BASE36, Convert.ToInt32(q) + 1, 1)
            arr = arr & tmp
            If isNegative Then
                arr = arr & "-"
            End If

            ret = ""
            For j As Integer = 0 To arr.Length - 1
               ret = ret & Mid(arr, arr.Length - j - 1 + 1, 1)
            Next
            ConvertItoA = ret
        End Function

        Shared Function ConvertAtoI(s As String, radix As Integer) As Int64
            Dim ret As Int64 = 0L
            Dim isNegative As Boolean = False
            Dim len As Integer = s.Length
            Dim c As char
            Dim i As Integer
            Dim val As Int64 = 0L

            c = s(0)
            If c = "-"c Then
                isNegative = True
            ElseIf c >= "0"c And c <= "9"c Then
                ret = Convert.ToInt64(c) - Convert.ToInt64("0"c)
            ElseIf c >= "A"c And c <= "Z"c Then
                ret = Convert.ToInt64(c) - Convert.ToInt64("A"c) + 10L
            ElseIf c >= "a"c And c <= "z"c Then
                ret = Convert.ToInt64(c) - Convert.ToInt64("a"c) + 10L
            End If
            If (ret >= Convert.ToInt64(radix)) Then
                Console.WriteLine("        Invalid character!")
                ConvertAtoI = ret
               Return ret
            End If

            For i = 1 To len - 1
                c = s(i)
                ret = ret * radix
                If c >= "0"c And c <= "9"c Then
                    val = Convert.ToInt64(c) - Convert.ToInt64("0"c)
                ElseIf c >= "A"c And c <= "Z"c Then
                    val = Convert.ToInt64(c) - Convert.ToInt64("A"c) + 10L
                ElseIf c >= "a"c And c <= "z"c Then
                    val = Convert.ToInt64(c) - Convert.ToInt64("a"c) + 10L
                End If
                If (val >= Convert.ToInt64(radix)) Then
                    Console.WriteLine("        Invalid character!")
                    ConvertAtoI = ret
                   Return ret
                End If
                ret = ret + val
            Next

            If isNegative Then
             ret = -ret
            End If
            ConvertAtoI = ret
            return ret
        End Function

        Function ConvertRadix(s As String, srcRdx As Integer, destRdx As Integer) As String
            Dim val As Int64
            Dim ret As String = ""
            Try
                val = ConvertAtoI(s, srcRdx)
                         ' Console.WriteLine("val = " + val);
                ret = ConvertItoA(val, destRdx)
                ConvertRadix = ret.ToUpper()
                return ret.ToUpper()
            Catch nfx As Exception
                ' Console.WriteLine("    Error: " + nfx.getMessage() + " cantains some invalid character.");
                Console.Write("    Error: ")
                Console.Write(nfx)
                Console.WriteLine(" cantains some invalid character.")
                ret = "????"
                ConvertRadix = ret.ToUpper()
                return ret.ToUpper()
            End Try
        End Function

        Sub  DoConvert(srcRadix As Integer, destRadix As Integer)
            Dim cmd As String
            Dim srcStr As String = ""
            Dim destStr As String = ""
            Console.WriteLine()
            PrintSubMenu(srcRadix, destRadix)
            Try
                Do
                    PrintSubPrompt()
                    cmd = Console.ReadLine()
                    If "main()" = cmd Then
                        return
                    ElseIf "exit()" = cmd Or "quit()" = cmd Then
                        Environment.Exit(0)
                    End If

                    Try
                        Convert.ToInt32(cmd, srcRadix)
                        srcStr = cmd
                        destStr = ConvertRadix(srcStr, srcRadix, destRadix)
                        Console.WriteLine("        ( " & srcStr & " )_" & srcRadix &  "   --->   ( " & destStr & " )_" & destRadix)
                        Console.WriteLine()
                    Catch ex As FormatException
                         Console.Write(cmd + ": ")
                         Console.WriteLine(ex)
                    End Try
                Loop
            Catch ex As Exception
                Console.WriteLine(ex)
            End Try
        End Sub

        Sub DoStart()
            Dim sep() As Char = New Char() { " "c, ","c, Chr(9) }   ' Chr(9) = Tab = \t
            Dim line As String
            Dim cmd As String
            Dim srcRadix As Integer = 10
            Dim destRadix As Integer = 10
            Dim onlyOnce As Boolean = True
            Try
                Do
                    Console.WriteLine()
                    If onlyOnce Then
                        Console.WriteLine("  The supported maximum radix is 36.")
                        onlyOnce = False
                    End If
                    PrintMainMenu()
                    PrintMainPrompt()
                    cmd = Console.ReadLine()
                    If "qQxX".Contains(cmd) And cmd.Length = 1 Then
                        Environment.Exit(0)
                    ElseIf "aA".Contains(cmd) And cmd.Length = 1 Then
                        PrintAbout()
                    ElseIf "sS".Contains(cmd) And cmd.Length = 1 Then
                        Console.Write("  Input the source and target radices (say, 16 2): ")
                        line = Console.ReadLine()
                        Dim tok As StringTokenizer.Token = New StringTokenizer.Token(line, " , \t")
                        While tok.Count() <> 2
                            Console.Write("  Input the source and target radices (say, 16 2): ")
                            line = Console.ReadLine()
                            tok = New StringTokenizer.Token(line, " , \t")
                        End While

                        Try
                            srcRadix = Convert.ToInt32(tok.NextToken())
                            destRadix = Convert.ToInt32(tok.NextToken())
                            DoConvert(srcRadix, destRadix)
                        Catch ex As FormatException
                            Console.WriteLine(ex)
                        End Try
                    End If
                Loop
            Catch ex As Exception
                Console.WriteLine(ex)
            End Try
        End Sub

        ' Java 언어의 main 메소드에 해당하는 Visual Basic의 Main
        Shared Sub Main(ByVal args() As String)
            If args.Length = 0 Then
                 '
            ElseIf args.Length > 0 And "-h" = args(0) Then
                PrintUsage()
                Environment.Exit(1)
            End If
            Dim app As ConvertRadixApp = New ConvertRadixApp()
            app.DoStart()
        End Sub
    End Class
End Namespace