home *** CD-ROM | disk | FTP | other *** search
/ BUG 11 / BUGCD1998_02.ISO / util / time2win / t2w32500.exe / _MATH.FRM < prev    next >
Text File  |  1997-12-25  |  10KB  |  358 lines
  1. VERSION 5.00
  2. Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#1.0#0"; "THREED32.OCX"
  3. Begin VB.Form frmMath 
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "Miscelleanous"
  6.    ClientHeight    =   4785
  7.    ClientLeft      =   1890
  8.    ClientTop       =   3270
  9.    ClientWidth     =   7485
  10.    MaxButton       =   0   'False
  11.    MDIChild        =   -1  'True
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   4785
  14.    ScaleWidth      =   7485
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.TextBox txt_Result 
  17.       BackColor       =   &H00C0C0C0&
  18.       BorderStyle     =   0  'None
  19.       Height          =   4005
  20.       Left            =   105
  21.       Locked          =   -1  'True
  22.       MultiLine       =   -1  'True
  23.       ScrollBars      =   2  'Vertical
  24.       TabIndex        =   0
  25.       Top             =   630
  26.       Width           =   7260
  27.    End
  28.    Begin Threed.SSPanel SSPanel1 
  29.       Align           =   1  'Align Top
  30.       Height          =   480
  31.       Left            =   0
  32.       TabIndex        =   1
  33.       Top             =   0
  34.       Width           =   7485
  35.       _Version        =   65536
  36.       _ExtentX        =   13203
  37.       _ExtentY        =   847
  38.       _StockProps     =   15
  39.       ForeColor       =   -2147483640
  40.       BackColor       =   12632256
  41.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  42.          Name            =   "MS Sans Serif"
  43.          Size            =   8.25
  44.          Charset         =   0
  45.          Weight          =   400
  46.          Underline       =   0   'False
  47.          Italic          =   0   'False
  48.          Strikethrough   =   0   'False
  49.       EndProperty
  50.       Begin VB.ComboBox cmb_Function 
  51.          Height          =   315
  52.          Left            =   1365
  53.          TabIndex        =   2
  54.          Top             =   90
  55.          Width           =   4785
  56.       End
  57.       Begin Threed.SSCommand SSCommand1 
  58.          Default         =   -1  'True
  59.          Height          =   300
  60.          Left            =   6615
  61.          TabIndex        =   6
  62.          Top             =   90
  63.          Width           =   465
  64.          _Version        =   65536
  65.          _ExtentX        =   820
  66.          _ExtentY        =   529
  67.          _StockProps     =   78
  68.          Caption         =   "&Go"
  69.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  70.             Name            =   "MS Sans Serif"
  71.             Size            =   8.25
  72.             Charset         =   0
  73.             Weight          =   400
  74.             Underline       =   0   'False
  75.             Italic          =   0   'False
  76.             Strikethrough   =   0   'False
  77.          EndProperty
  78.          BevelWidth      =   1
  79.          RoundedCorners  =   0   'False
  80.          Outline         =   0   'False
  81.       End
  82.       Begin Threed.SSCommand cmdNP 
  83.          Height          =   300
  84.          Index           =   0
  85.          Left            =   6300
  86.          TabIndex        =   4
  87.          Top             =   90
  88.          Width           =   255
  89.          _Version        =   65536
  90.          _ExtentX        =   450
  91.          _ExtentY        =   529
  92.          _StockProps     =   78
  93.          Caption         =   "<"
  94.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  95.             Name            =   "MS Sans Serif"
  96.             Size            =   8.25
  97.             Charset         =   0
  98.             Weight          =   400
  99.             Underline       =   0   'False
  100.             Italic          =   0   'False
  101.             Strikethrough   =   0   'False
  102.          EndProperty
  103.          BevelWidth      =   1
  104.          Font3D          =   3
  105.          RoundedCorners  =   0   'False
  106.          Outline         =   0   'False
  107.       End
  108.       Begin Threed.SSCommand cmdNP 
  109.          Height          =   300
  110.          Index           =   1
  111.          Left            =   7140
  112.          TabIndex        =   3
  113.          Top             =   90
  114.          Width           =   255
  115.          _Version        =   65536
  116.          _ExtentX        =   450
  117.          _ExtentY        =   529
  118.          _StockProps     =   78
  119.          Caption         =   ">"
  120.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  121.             Name            =   "MS Sans Serif"
  122.             Size            =   8.25
  123.             Charset         =   0
  124.             Weight          =   400
  125.             Underline       =   0   'False
  126.             Italic          =   0   'False
  127.             Strikethrough   =   0   'False
  128.          EndProperty
  129.          BevelWidth      =   1
  130.          Font3D          =   3
  131.          RoundedCorners  =   0   'False
  132.          Outline         =   0   'False
  133.       End
  134.       Begin VB.Label Label2 
  135.          Caption         =   "&Select a function"
  136.          Height          =   255
  137.          Left            =   90
  138.          TabIndex        =   5
  139.          Top             =   120
  140.          Width           =   1275
  141.       End
  142.    End
  143. End
  144. Attribute VB_Name = "frmMath"
  145. Attribute VB_GlobalNameSpace = False
  146. Attribute VB_Creatable = False
  147. Attribute VB_PredeclaredId = True
  148. Attribute VB_Exposed = False
  149. Option Explicit
  150. Option Base 1
  151.  
  152. Private Const Iteration = 250
  153.  
  154. Dim IsLoaded         As Integer
  155.  
  156. Dim TimerStartOk     As Integer
  157. Dim TimerCloseOk     As Integer
  158.  
  159. Dim TimerHandle      As Integer
  160. Dim TimerValue       As Long
  161.  
  162. Private Sub cmdNP_Click(Index As Integer)
  163.  
  164.    Call sub_NextPrev(cmb_Function, Index)
  165.  
  166. End Sub
  167.  
  168.  
  169. Private Sub cmb_Function_Click()
  170.    
  171.    If (IsLoaded = False) Then Exit Sub
  172.    
  173.    Call cDisableFI(mdiT2W.Picture1)
  174.    
  175.    txt_Result = ""
  176.    
  177.    DoEvents
  178.    
  179.    Select Case cmb_Function.ListIndex
  180.       Case 0
  181.          Call TestComplex
  182.       Case 1
  183.          Call TestRootN
  184.    End Select
  185.  
  186.    DoEvents
  187.    Call cEnableFI(mdiT2W.Picture1)
  188.    
  189. End Sub
  190.  
  191.  
  192. Private Sub Form_Activate()
  193.  
  194.    mdiT2W.Label2.Caption = cInsertBlocks(mdiT2W.Label2.Tag, "" & Iteration)
  195.  
  196. End Sub
  197.  
  198. Private Sub Form_Load()
  199.  
  200.    IsLoaded = False
  201.    
  202.    Show
  203.  
  204.    Call sub_Load_Combo(cmb_Function, T2WDirInst + "_math.t2w")
  205.    
  206.    IsLoaded = True
  207.    
  208. End Sub
  209.  
  210. Private Sub SSCommand1_Click()
  211.    
  212.    Call cmb_Function_Click
  213.    
  214. End Sub
  215.  
  216. Private Sub TestRootN()
  217.    
  218.    Dim lResult          As Long
  219.    Dim dResult          As Long
  220.    Dim strResult        As String
  221.    Dim strDisplay       As String
  222.    
  223.    Dim i                As Integer
  224.    Dim dValue           As Double
  225.    
  226.    Dim Str1             As String
  227.    Dim Str2             As String
  228.    
  229.    Dim Itr              As Long
  230.    
  231.    lResult = 0
  232.    
  233.    strResult = ""
  234.    strDisplay = ""
  235.    
  236.    dValue = 123456789.987654
  237.    
  238.    strDisplay = strDisplay & "Root 3 of " & dValue & " with a precision of " & vbCrLf & vbCrLf
  239.    
  240.    For i = 3 To 20 Step 2
  241.      
  242.       strDisplay = strDisplay & "   " & i & " is " & cRootN(dValue, 3, i, Itr) & "   (Iteration = " & Itr & ")" & vbCrLf
  243.       
  244.    Next i
  245.    
  246.    strDisplay = strDisplay & vbCrLf
  247.    
  248.    dValue = 123456789.987654
  249.    
  250.    strDisplay = strDisplay & "Root 70 of " & dValue & " with a precision of " & vbCrLf & vbCrLf
  251.    
  252.    For i = 3 To 20 Step 2
  253.      
  254.       strDisplay = strDisplay & "   " & i & " is " & cRootN(dValue, 70, i, Itr) & "   (Iteration = " & Itr & ")" & vbCrLf
  255.       
  256.    Next i
  257.    
  258.    strDisplay = strDisplay + vbCrLf
  259.    
  260.    txt_Result = strDisplay
  261.  
  262.    'time the function
  263.  
  264.    TimerHandle = cTimerOpen()
  265.    TimerStartOk = cTimerStart(TimerHandle)
  266.    
  267.    For i = 1 To Iteration
  268.       dResult = cRootN(dValue, 10, 15, Itr)
  269.    Next i
  270.    
  271.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  272.    
  273.    TimerCloseOk = cTimerClose(TimerHandle)
  274.  
  275. End Sub
  276.  
  277. Private Sub TestComplex()
  278.    
  279.    Dim lResult          As Long
  280.    Dim dResult          As Double
  281.    Dim strResult        As String
  282.    Dim strDisplay       As String
  283.    
  284.    Dim i                As Integer
  285.    
  286.    Dim Str1             As String
  287.    Dim Str2             As String
  288.    
  289.    Dim z1               As tagCOMPLEX
  290.    Dim z2               As tagCOMPLEX
  291.    Dim z                As tagCOMPLEX
  292.    
  293.    strResult = ""
  294.    strDisplay = ""
  295.    
  296.    z1.a = 3: z1.b = 4
  297.    z2.a = 6: z2.b = 8
  298.    
  299.    strDisplay = strDisplay & "z1 = ( " & z1.a & " + i . " & z1.b & " )" & vbCrLf
  300.    strDisplay = strDisplay & "z2 = ( " & z2.a & " + i . " & z2.b & " )" & vbCrLf & vbCrLf
  301.    
  302.    z = cCpxAdd(z1, z2)
  303.    strDisplay = strDisplay & "z1+z2 = ( " & z.a & " + i . " & z.b & " )" & vbCrLf & vbCrLf
  304.    
  305.    z = cCpxSub(z1, z2)
  306.    strDisplay = strDisplay & "z1-z2 = ( " & z.a & " + i . " & z.b & " )" & vbCrLf & vbCrLf
  307.    
  308.    z = cCpxMul(z1, z2)
  309.    strDisplay = strDisplay & "z1.z2 = ( " & z.a & " + i . " & z.b & " )" & vbCrLf & vbCrLf
  310.    
  311.    z = cCpxDiv(z1, z2)
  312.    strDisplay = strDisplay & "z1/z2 = ( " & z.a & " + i . " & z.b & " )" & vbCrLf & vbCrLf
  313.    
  314.    z = cCpxConjugue(z1)
  315.    strDisplay = strDisplay & "conjugue of z1 = ( " & z.a & " + i . " & z.b & " )" & vbCrLf
  316.    z = cCpxConjugue(z2)
  317.    strDisplay = strDisplay & "conjugue of z2 = ( " & z.a & " + i . " & z.b & " )" & vbCrLf & vbCrLf
  318.    
  319.    z = cCpxPowerN(z1, 3)
  320.    strDisplay = strDisplay & "power 3 of z1 = ( " & z.a & " + i . " & z.b & " )" & vbCrLf
  321.    z = cCpxPowerN(z2, 3)
  322.    strDisplay = strDisplay & "power 3 of z2 = ( " & z.a & " + i . " & z.b & " )" & vbCrLf & vbCrLf
  323.    
  324.    z = cCpxSqrt(z1)
  325.    strDisplay = strDisplay & "square root of z1 = ( " & z.a & " + i . " & z.b & " )" & vbCrLf
  326.    z = cCpxSqrt(z2)
  327.    strDisplay = strDisplay & "square root of z2 = ( " & z.a & " + i . " & z.b & " )" & vbCrLf & vbCrLf
  328.    
  329.    dResult = cCpxModulus(z1)
  330.    strDisplay = strDisplay & "modulus of z1 = " & dResult & vbCrLf
  331.    dResult = cCpxModulus(z2)
  332.    strDisplay = strDisplay & "modulus of z1 = " & dResult & vbCrLf & vbCrLf
  333.    
  334.    dResult = cCpxArgument(z1)
  335.    strDisplay = strDisplay & "argument of z1 = " & dResult & vbCrLf
  336.    dResult = cCpxArgument(z2)
  337.    strDisplay = strDisplay & "argument of z2 = " & dResult & vbCrLf & vbCrLf
  338.    
  339.    strDisplay = strDisplay + vbCrLf
  340.    
  341.    txt_Result = strDisplay
  342.  
  343.    'time the function
  344.  
  345.    TimerHandle = cTimerOpen()
  346.    TimerStartOk = cTimerStart(TimerHandle)
  347.    
  348.    For i = 1 To Iteration
  349.       z = cCpxAdd(z1, z2)
  350.    Next i
  351.    
  352.    mdiT2W.pnl_Timer = cTimerRead(TimerHandle)
  353.    
  354.    TimerCloseOk = cTimerClose(TimerHandle)
  355.  
  356. End Sub
  357.  
  358.