|
[x]
Posted via EE Mobile
|
||
Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again. |
||
| 10/21/2009 at 06:29PM PDT, ID: 24832979 | Points: 500 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: |
//---------------------------------------------------------------------------
#include <vcl.h>
#include<math.h>
#pragma hdrstop
#include "Concrete_Section01.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
double m,b,dd,d,c,db,fc,as,asr,fy;
m=Umoment->Text.ToDouble();
b=Bwidth->Text.ToDouble();
dd=Ddepth->Text.ToDouble();
c=Cover->Text.ToDouble();
db=dbar->Text.ToDouble();
fc=Fconc->Text.ToDouble();
fy=Fy->Text.ToDouble();
d=dd-c-db;
asr=(1-pow((1-3e6*m/(b*pow(d,2)*fc)),0.5))/(1.2*(fy/(b*d*fc)));
Astr->Text=String(asr);
return;
}
//--------------------------
|
Advertisement
