-   
                         (  )


      -
                                  



                                                                  5
                                                                       I
                                                                   517



: .



                                


           :      .



:   



                                                        :
                                                    



                               -
                                    2002

                                 

充3
  󅅅.4
 ...5
   腅...6
 I.7
    .   Visual Basic8
     䅅..9
     ⅅ10
       腅11
 II.......12
      MathCad充13
     1 
2..........................................................................
...................14

III.........................................................................
.........................................15
      
Excei.....................................................................
............16
    
................................................................
......................17
..................................................................
...........................................18
...................................................................
                ...........................................19



                                  

          ,
      - .
 ,      , :
    -.
     : Visual Basic, Excel  Math-Cad.
 ,     Visual   Basic,
      .   
       .



                                  
          
  ,    ,  
 ,     ..; -
    .
            
  Windows  Microsoft.   
       Word, Excel  Access. 
      -; , ,
  ,     ,    
  , ,    
 Excel;    -  
 Excel       -.
        Microsoft  Visual
Basic.    ,      SQL-
        .
  Visual Basic      
.
             
:  ( )   :   
     ().  ,
      , -
   .     -
    ,    
.



                                  7

                         : V=AQ (1)
             V-  ,  Q-  .
                ,    :

|       |V(I)         |Q(I)         |V(I) .   | [pic]V(I)   |
|1            |8.81         |220          |             |             |
|2            |7.40         |200          |             |             |
|3            |6.10         |180          |             |             |
|4            |4.89         |160          |             |             |
|5            |3.88         |140          |             |             |
|6            |3.02         |120          |             |             |
|7            |2.30         |100          |             |             |


   A;  ,    
(1);  .

[pic]     (2)
   A    :

[pic]        (3)

    :

[pic] (4)
    (2)   5%,
,       :     V=k((Q+273)^4-
273^4)           (5).

 Z=k((Q+273)^4-273^4),  k=5,67*10^(-9),  -
A,  ,  ,  -
 :
V=AZ                                    (6)
                               

   1.       ,
   V(I)     .

   2.        .

   3.  .

   4.    V(I)   V(I)  Q(I).

   5.  ,     V(I)  
         .



                     .   Visual Basic:



                        Visual Basic:

Option Explicit
Dim I As Integer
Dim a(7) As Single

  
Private Sub 1_Click()
Dim V(7) As Single, Q(7) As Single
MSFlexGrid1.TextMatrix(0, 0) =  
MSFlexGrid1.TextMatrix(0, 1) =   V(I) 
MSFlexGrid1.TextMatrix(0, 2) =   Q(I) 
MSFlexGrid1.TextMatrix(0, 3) =   V(I).
MSFlexGrid1.TextMatrix(0, 4) = V(I), %
For I = 1 To 7
MSFlexGrid1.TextMatrix(I, 0) = I
Next I
' 
If 1.Value = 1 Then
  Open A:\.txt For Input As #1
  For I = 1 To 7
  Input #1, V(I), Q(I)
  MSFlexGrid1.TextMatrix(I, 1) = V(I)
  MSFlexGrid1.TextMatrix(I, 2) = Q(I)
  Next I
  Close #1
End If
   
If 1.Value = 0 Then
  For I = 1 To 7
  MSFlexGrid1.TextMatrix(I, 1) = InputBox(   V(I))
  Next I
  For I = 1 To 7
  MSFlexGrid1.TextMatrix(I, 2) = InputBox(   Q(I))
  Next I
End If
End Sub

' A=V/Q,  MIN (MAX),  
Private Sub 2_Click()
1.Clear
For I = 1 To 7
1.AddItem (CCur(MSFlexGrid1.TextMatrix(I, 1) /
MSFlexGrid1.TextMatrix(I, 2)))
Next I
Dim Summ As Single
Summ = 0
For I = 1 To 7
 Summ = Summ + MSFlexGrid1.TextMatrix(I, 1)
Next I
1.Text = CSng(Summ)
 Dim Summa As Single
For I = 1 To 7
 Summa = Summa + MSFlexGrid1.TextMatrix(I, 2)
Next I
2.Text = CSng(Summa)
  
Dim a As Single
a = 1.Text / 2.Text
3.Text = CSng(a)
End Sub



V(I)
Private Sub 3_Click()
For I = 1 To 7
MSFlexGrid1.TextMatrix(I, 3) = 3.Text * MSFlexGrid1.TextMatrix(I, 2)
Next I
End Sub


Private Sub 4_Click()
For I = 1 To 7
MSFlexGrid1.TextMatrix(I, 4) = Ccur(Sqr((((MSFlexGrid1.TextMatrix(I, 3) 
MSFlexGrid1.TextMatrix(I, 1)) / MSFlexGrid1.TextMatrix(I, 1)) * 100) ^ 2))
Next I

Dim min As Single
Dim max As Single
min = MSFlexGrid1.TextMatrix(7, 4)
 MIN
For I = 1 To 7
 If MSFlexGrid1.TextMatrix(I, 4) < min Then min = MSFlexGrid1.TextMatrix(I,
4)
Next I
4.Text = CSng(min)
max = MSFlexGrid1.TextMatrix(1, 4)
 MAX
For I = 1 To 7
 If MSFlexGrid1.TextMatrix(I, 4) > max Then max = MSFlexGrid1.TextMatrix(I,
4)
Next I
6.Text = CSng(max)
End Sub

Private Sub 5_Click()
' -
'V=k*Q^4,  k- -: k = 5.67 * 10 ^ -8
Dim z(7) As Single, V(7) As Single
For I = 1 To 7
z(I) = 0.0000000567 * ((MSFlexGrid1.TextMatrix(I, 2) + 273) ^ 4  273 ^ 4)
V=AZ
V(I) = 0.1 * 3.Text * z(I)
'  
2.AddItem (Ccur(V(I)))
Next I
End Sub

Private Sub 6_Click()
End
End Sub


Private Sub Command7_Click()
Dim V(7) As Single, Q(7) As Single
MSFlexGrid1.TextMatrix(0, 0) =  
MSFlexGrid1.TextMatrix(0, 1) =   V(I) 
MSFlexGrid1.TextMatrix(0, 2) =   Q(I) 
MSFlexGrid1.TextMatrix(0, 3) =   V(I).
MSFlexGrid1.TextMatrix(0, 4) = V(I), %
For I = 1 To 7
MSFlexGrid1.TextMatrix(I, 0) = I
Next I



' 
If 1.Value = 1 Then
  Open A:\.txt For Input As #1
  For I = 1 To 7
  Input #1, V(I), Q(I)
  MSFlexGrid1.TextMatrix(I, 1) = V(I)
  MSFlexGrid1.TextMatrix(I, 2) = Q(I)
  Next I
  Close #1
End If
   
If 1.Value = 0 Then
  For I = 1 To 7
  MSFlexGrid1.TextMatrix(I, 1) = InputBox(   V(I))
  Next I
  For I = 1 To 7
  MSFlexGrid1.TextMatrix(I, 2) = InputBox(   Q(I))
  Next I
End If
1.Clear
For I = 1 To 7
1.AddItem (Ccur(MSFlexGrid1.TextMatrix(I, 1) /
MSFlexGrid1.TextMatrix(I, 2)))
Next I
Dim Summ As Single
Summ = 0
For I = 1 To 7
 Summ = Summ + MSFlexGrid1.TextMatrix(I, 1)
Next I
1.Text = CSng(Summ)
 Dim Summa As Single
For I = 1 To 7
 Summa = Summa + MSFlexGrid1.TextMatrix(I, 2)
Next I
2.Text = CSng(Summa)
  
Dim a As Single
a = 1.Text / 2.Text
3.Text = CSng(a)
For I = 1 To 7
MSFlexGrid1.TextMatrix(I, 3) = 3.Text * MSFlexGrid1.TextMatrix(I, 2)
Next I
For I = 1 To 7
MSFlexGrid1.TextMatrix(I, 4) = Ccur(Sqr((((MSFlexGrid1.TextMatrix(I, 3) 
MSFlexGrid1.TextMatrix(I, 1)) / MSFlexGrid1.TextMatrix(I, 1)) * 100) ^ 2))
Next I

Dim min As Single
Dim max As Single
min = MSFlexGrid1.TextMatrix(7, 4)
 MIN
For I = 1 To 7
 If MSFlexGrid1.TextMatrix(I, 4) < min Then min = MSFlexGrid1.TextMatrix(I,
4)
Next I
4.Text = CSng(min)
max = MSFlexGrid1.TextMatrix(1, 4)
 MAX
For I = 1 To 7
 If MSFlexGrid1.TextMatrix(I, 4) > max Then max = MSFlexGrid1.TextMatrix(I,
4)
Next I
6.Text = CSng(max)



' -
'V=k*Q^4,  k- -: k = 5.67 * 10 ^ -8
Dim z(7) As Single, W(7) As Single
For I = 1 To 7
z(I) = 0.0000000567 * ((MSFlexGrid1.TextMatrix(I, 2) + 273) ^ 4  273 ^ 4)
V=AZ
W(I) = 0.1 * 3.Text * z(I)
'  
2.AddItem (Ccur(W(I)))
Next I
End Sub

Private Sub mnu_Click()
' 
OLE1.SourceDoc = C:\WINDOWS\CALC.EXE
OLE1.Action = 7
End Sub

Private Sub mnu_Click()
End
End Sub

Private Sub mnu_Click()
Dim V(7) As Single, Q(7) As Single
MSFlexGrid1.TextMatrix(0, 0) =  
MSFlexGrid1.TextMatrix(0, 1) =   V(I) 
MSFlexGrid1.TextMatrix(0, 2) =   Q(I) 
MSFlexGrid1.TextMatrix(0, 3) =   V(I).
MSFlexGrid1.TextMatrix(0, 4) = V(I), %
For I = 1 To 7
MSFlexGrid1.TextMatrix(I, 0) = I
Next I
 
Open A:\.txt For Input As #1
For I = 1 To 7
Input #1, V(I), Q(I)
MSFlexGrid1.TextMatrix(I, 1) = V(I)
MSFlexGrid1.TextMatrix(I, 2) = Q(I)
Next I
Close #1
End Sub

Private Sub mnu_Click()
 
1.Enabled = False
5.Text = 
End Sub

Private Sub mnu_Click()
 
1.Enabled = True
1.Interval = 250
End Sub

Private Sub 1_Timer()
' 
5.Text = CStr(Time)
End Sub


                           :

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form 1
   Caption         =   " "
   ClientHeight    =   4905
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   6660
   LinkTopic       =   "Form1"
   ScaleHeight     =   4905
   ScaleWidth      =   6660
   StartUpPosition =   3  'Windows Default
   Begin VB.ListBox 2
      Height          =   1425
      ItemData        =   " .frx":0000

      Left            =   3600
      List            =   " .frx":0002
      TabIndex        =   16
      Top             =   3240
      Width           =   1095
   End
   Begin VB.ListBox 1
      Height          =   1425
      ItemData        =   " .frx":0004
      Left            =   2400
      List            =   " .frx":0006
      TabIndex        =   15
      Top             =   3240
      Width           =   1095
   End
   Begin VB.TextBox 6
      Height          =   285
      Left            =   5040
      TabIndex        =   14
      Top             =   3480
      Width           =   1095
   End
   Begin VB.TextBox 5
      Height          =   285
      Left            =   5280
      TabIndex        =   13
      Top             =   360
      Width           =   855
   End
   Begin VB.TextBox  4
      Height          =   285
      Left            =   5040
      TabIndex        =   12
      Top             =   2880
      Width           =   1095
   End
   Begin VB.TextBox  3
      Height          =   285
      Left            =   5040
      TabIndex        =   11
      Top             =   2280
      Width           =   1095
   End



   Begin VB.TextBox  2
      Height          =   285
      Left            =   5040
      TabIndex        =   10
      Top             =   1680
      Width           =   1095
   End
   Begin VB.TextBox  1
      Height          =   285
      Left            =   5040
      TabIndex        =   9
      Top             =   1080
      Width           =   1095
   End
   Begin VB.Timer 1
      Interval        =   250
      Left            =   4800
      Top             =   3840
   End
   Begin VB.CommandButton 6
      Caption         =   ""
      Height          =   195
      Left            =   240
      TabIndex        =   7
      Top             =   4440
      Width           =   1575
   End
   Begin VB.CommandButton  5
      Caption         =   ""
      Height          =   195
      Left            =   240
      TabIndex        =   6
      Top             =   4200
      Width           =   1575
   End
   Begin VB.CommandButton  4
      Caption         =   ""
      Height          =   195
      Left            =   240
      TabIndex        =   5
      Top             =   3960
      Width           =   1575
   End
   Begin VB.CommandButton  3
      Caption         =   "V.=AQ"
      Height          =   195
      Left            =   240
      TabIndex        =   4
      Top             =   3720
      Width           =   1575
   End
   Begin VB.CommandButton  2
      Caption         =   ""
      Height          =   195
      Left            =   240
      TabIndex        =   3
      Top             =   3480
      Width           =   1575
   End



   Begin VB.CommandButton  1
      Caption         =   ""
      Height          =   195
      Left            =   240
      TabIndex        =   2
      Top             =   3240
      Width           =   1575
   End
   Begin VB.CheckBox 1
      Caption         =   "     "
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   240
      Width           =   2775
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
      Height          =   2055
      Left            =   0
      TabIndex        =   0

      Top             =   840
      Width           =   4935
      _ExtentX        =   8705
      _ExtentY        =   3625
      _Version        =   393216
      Rows            =   8
      Cols            =   5
   End
   Begin VB.OLE OLE1
      Class           =   "Package"
      Height          =   495
      Left            =   5280
      OleObjectBlob   =   " .frx":0008
      SourceDoc       =   "C:\WINDOWS\CALC.EXE"
      TabIndex        =   24
      Top             =   3840
      Width           =   855
   End
   Begin VB.Label 8
      Caption         =   "  "
      Height          =   255
      Left            =   3600
      TabIndex        =   23
      Top             =   3000
      Width           =   1095
   End
   Begin VB.Label  7
      Caption         =   "      A=V/Q"
      Height          =   255
      Left            =   2280
      TabIndex        =   22
      Top             =   3000
      Width           =   1095
   End
   Begin VB.Label  6
      Caption         =   "   Max V(I), %"
      Height          =   255
      Left            =   5040
      TabIndex        =   21
      Top             =   2640
      Width           =   1095
   End



   Begin VB.Label  5
      Caption         =   "   Min V(I), %"
      Height          =   255
      Left            =   5040
      TabIndex        =   20
      Top             =   3240
      Width           =   1095
   End
   Begin VB.Label  4
      Caption         =   "  - "
      Height          =   255
      Left            =   5040
      TabIndex        =   19
      Top             =   2040
      Width           =   1095
   End
   Begin VB.Label  3
      Caption         =   "    Q(I)"
      Height          =   255
      Left            =   5040
      TabIndex        =   18
      Top             =   1440
      Width           =   1095
   End
   Begin VB.Label  2
      Caption         =   "    V(I)"
      Height          =   255
      Left            =   5040
      TabIndex        =   17
      Top             =   840
      Width           =   1095
   End
   Begin VB.Label  1
      Caption         =   " "
      Height          =   255
      Left            =   3720
      TabIndex        =   8
      Top             =   360
      Width           =   1575
   End
   Begin VB.Menu mnu
      Caption         =   ""
      Begin VB.Menu mnu
         Caption         =   ""
      End
      Begin VB.Menu mnu
         Caption         =   ""
      End
   End
   Begin VB.Menu mnu
      Caption         =   ""
      Begin VB.Menu mnu
         Caption         =   ""
      End
      Begin VB.Menu mnu
         Caption         =   ""
      End
   End
   Begin VB.Menu mnu
      Caption         =   ""
      Begin VB.Menu mnu
         Caption         =   ""
      End
   End
End
Attribute VB_Name = "1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



                             :

                                    [pic]



                          MathCad.

                 [pic]                                 
 :
         [pic]             [pic]           [pic]              [pic]

                          :
             [pic]                 [pic]     [pic]


[pic]       [pic]             [pic]               [pic]          [pic]


                 : V=kT^4

[pic]     [pic]   -:

                                  [pic]



             [pic]           [pic]
      [pic]                [pic]



 1   ,  2-  .



                              Excel

|           |           |  V(I)   |    V(I), %  |
|V(I)       |Q(I)       |             |             |
|8,81       |220        |7,15         |18,84222     |
|7,4        |200        |6,5          |12,16216     |
|6,1        |180        |5,85         |4,098361     |
|4,89       |160        |5,2          |6,339468     |
|3,88       |140        |4,55         |17,26804     |
|3,02       |120        |3,9          |29,13907     |
|2,3        |100        |3,25         |41,30435     |
|36,4       |1120       |             |             |
|           |           |             |             |
|    A=V/Q  | .    |           Z |      |
|0,040045   |0,0325     |303,4484467  |9,862075     |
|0,037      |           |252,3155307  |8,200255     |
|0,033889   |           |207,2734376  |6,736387     |
|0,030563   |           |167,8181271  |5,454089     |
|0,027714   |           |133,4673316  |4,337688     |
|0,025167   |           |103,7605564  |3,372218     |
|0,023      |           |78,25907956  |2,54342      |


                             :

                                    [pic]


                                    [pic]



                                 :

     :
  ,   ,   - 
  Visual Basic,     
       .





" "