Ñàíêò-Ïåòåðáóðãñêèé ãîñóäàðñòâåííûé òåõíîëîãè÷åñêèé èíñòèòóò
( Òåõíè÷åñêèé óíèâåðñèòåò)
Êàôåäðà Ìàòåìàòè÷åñêîãî ìîäåëèðîâàíèÿ è îïòèìèçàöèè õèìèêî-òåõíîëîãè÷åñêèõ ïðîöåññîâ
Ôàêóëüòåò 5
Êóðñ I
Ãðóïïà 517
Äèñöèïëèíà: èíôîðìàòèêà.
ÊÓÐÑÎÂÀß ÐÀÁÎÒÀ
Òåìà: Ñîçäàíèå ïðîãðàììíûõ ïðîäóêòîâ äëÿ ðåøåíèÿ çàäà÷.
Ñòóäåíò: Õîõëåíêî Ñåðãåé Äìèòðèåâè÷
Íàó÷íûé ðóêîâîäèòåëü:
Ãàéêîâ Àíäðåé Âëàäèìèðîâè÷
Ñàíêò-Ïåòåðáóðã
2002
Ñîäåðæàíèå
Ââåäåíèå…………………………………………………………………………3
Çàäàíèå íà ðàáîòó……………………………………………………………….4
Îïèñàíèå ìåòîäà………………………………………………………………...5
Àëãîðèòì ïîñòðîåíèÿ ðåøåíèÿ çàäà÷è……………………………………...…6
Ãëàâà I…………………………………………………………………………….7
Ïðîåêò. Ðàáî÷àÿ ôîðìà Visual Basic…………………………………………8
Ïðîãðàììíûé êîä……………………………………………………………..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) ðàñ÷. | 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); îòíîñèòåëüíóþ ïîãðåøíîñòü.
(2)
Äëÿ âû÷èñëåíèÿ êîýôôèöèåíòà A íåîáõîäèìî ðåøèòü ñèñòåìó óðàâíåíèé:
(3)
Äëÿ ýòîãî ñëåäóåò ðåøèòü óðàâíåíèÿ:
(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
Ðàáî÷àÿ ôîðìà ñ äàííûìè:
Ðåøåíèå çàäà÷è ñ ïîìîùüþ MathCad.
Âû÷èñëåíèå ñóììû ýëåìåíòîâ ìàññèâîâ:
Îòíîñèòåëüíàÿ ïîãðåøíîñòü:
Ðàñ÷åò ñêîðîñòè îõëàæäåíèÿ ïî çàêîíó Ñòåôàíà: V=kT^4
Ïîñòîÿííàÿ Ñòåôàíà-Áîëüöìàíà:
Ãðàôèê ¹1 ïîñòðîåí ïî äàííûì, à ¹2- ïî ðàñ÷åòàì.
Ðåøåíèå çàäà÷è â Excel
V(I) | Q(I) | V(I) ðàñ÷ | V(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 |
Ãðàôèêè çàâèñèìîñòåé:
Çàêëþ÷åíèå:
Íà îñíîâàíèè ïîëó÷åííûõ â ïðîãðàììàõ äàííûõ:
ðàñ÷åòîâ è ãðàôèêîâ, ìîæíî ñäåëàòü âûâîä, ÷òî íàèáîëåå ïðèå-ìëåìûì ÿçûêîì ïðîãðàììèðîâàíèÿ ÿâëÿåòñÿ Visual Basic, à çàêîí íàèáîëåå òî÷íî äàþùèé ñõîæèå ðåçóëüòàòû ñ äàííûìè îïûòà ÿâëÿåòñÿ çàêîí Ñòåôàíà.