ВУЗ:
Составители:
Рубрика:
case 4: r=(ro/(2*M_PI*L))*(log((2*L)/(d+(1/2)))*log((4*t+L)/(4*t-L))); break;
case 5: r=(ro/(M_PI*L))*log((2*L)/d); break;
case 6: r=(ro/(2*M_PI*L))*log((L*L)/(d*t));break;
case 7: r=(ro/(2*M_PI*M_PI*D))*log((8*D)/d); break;
case 8: r=(ro/2*M_PI*M_PI*D)*log((4*M_PI*D*D)/(d*t)); break;
case 9: r=ro/(2*D); break;
case 10:r=ro/(2*D); break;
case 11:r=ro/(4*sqrt(a*b)); break;
}
r=abs(r);
if (Form5->zazem==0) Form3->Label11->Caption=FloatToStrF(r,ffNumber,3,2);
else Form3->Label12->Caption=FloatToStrF(r,ffNumber,3,2);
if (Form5->zazem==0) Form3->Label6->Caption=type_script;
else Form3->Label8->Caption=type_script;
if (Form5->zazem==0) zazem_v_type=zazem_type; else
zazem_h_type=zazem_type;
Form1->r_itr=(Form1->r_s*Form1->rs)/(Form1->r_s-Form1->rs);
if (Form5->zazem==0) Form1->r_vert=r; else Form1->r_horiz=r;
};
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
zazem_type=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm5::RadioButton9Click(TObject *Sender)
{
SetActive(0,0,1,0,0,0);
Label5->Caption="R=p/(pi*d)";
type_script="Полушаровой у поверх.";
zazem_type=1;
Image1->Picture->LoadFromFile("im1.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm5::RadioButton10Click(TObject *Sender)
{
SetActive(0,0,1,1,0,0);
Label5->Caption="R=(p/(2*pi*d))*(1+d/(4*t))";
type_script="Шаровой в земле";
zazem_type=2;
Image1->Picture->LoadFromFile("im2.bmp");
}
//---------------------------------------------------------------------------
void __fastcall TForm5::RadioButton11Click(TObject *Sender)
{
