【影音源码】【学生成绩管理系统vb源码】【android网络播放器源码下载】object公式源码_object代码
1.相对论长度收缩公式
2.delphi å¦ä½ç¨ä»£ç ç¼åè¿ä¸ªå
¬å¼
3.vbå¦ä½ç¼å计ç®å
¬å¼
相对论长度收缩公式
1. The公式影音源码 relativistic length contraction formula is expressed as L' = L * √(1 - v^2/c^2), where:
- L' is the length of the object as measured by an observer,
- L is the object's proper length (its length in its own rest frame),
- v is the object's velocity relative to the observer, and
- c is the speed of light in a vacuum.
2. According to this formula, as an object's velocity approaches the speed of light, specifically when v approaches c, the value of √(1 - v^2/c^2) approaches zero.
3. Consequently, the observed length L' approaches zero, indicating that the length of the object as measured by an observer contracts to a negligible value near the speed of light. This phenomenon is known as length contraction.
delphi å¦ä½ç¨ä»£ç ç¼åè¿ä¸ªå ¬å¼
procedure TForm1.btn1Click(Sender: TObject);
var
sz1,sz2,sz3,sz4,sz5,sz6,sz7, sz8 : Double;
begin
if (edt1.Text = '') or
(edt2.Text = '') or
(edt3.Text = '') or
(edt4.Text = '') or
(edt5.Text = '') or
(edt6.Text = '') then
begin
ShowMessage('ä¸è½ä¸ºç©º');
Exit;
end;
try
sz1 := StrToFloat(edt1.Text);
sz2 := StrToFloat(edt2.Text);
sz3 := StrToFloat(edt3.Text);
sz4 := StrToFloat(edt4.Text);
sz5 := StrToFloat(edt5.Text);
sz6 := StrToFloat(edt6.Text);
except
ShowMessage('ä¸æ¯ææçæ°å');
exit;
end;
if sz4 = 0 then
begin
ShowMessage('被é¤æ°ä¸è½ä¸º0');
exit;
end;
sz7 := sz1 + sz2 - (sz3 * sz4) / sz5 + Sqr(sz6);
edt7.Text := FloatToStr(sz7);
end;
vbå¦ä½ç¼å计ç®å ¬å¼
Private Sub Form_Click()
Dim vbs As Object
Set vbs = CreateObject("ScriptControl")
vbs.Language = "vbs"
vbs.ExecuteStatement "a1=3:a2=5:d=7:b=6:c=3"
MsgBox vbs.Eval("a1+a2*d-b/c")
Set vbs = Nothing
End Sub