Ðåôåðàò: Ñîçäàíèå ïðîãðàììíûõ ïðîäóêòîâ äëÿ ðåøåíèÿ çàäà÷
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, à çàêîí íàèáîëåå òî÷íî äàþùèé ñõîæèå ðåçóëüòàòû ñ äàííûìè îïûòà ÿâëÿåòñÿ çàêîí Ñòåôàíà.
