Электробезопасность. Расчет защитного заземления. Анфилофьев Б.А - 14 стр.

UptoLike

#include "unit1.h"
#include "unit3.h"
#include <math.h>
#pragma hdrstop
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
int zazem_type;
AnsiString type_script;
int zazem_h_type=1;
int zazem_v_type=1;
// 0 -vert 1-horiz
float r;
void TForm5::SetActive(char a,char b,char c,char d,char e,char f)
{
Edit1->Enabled=a;Edit2->Enabled=b;
Edit3->Enabled=c;Edit4->Enabled=d;
Edit5->Enabled=e;Edit6->Enabled=f;
if (a==1) Edit1->Color=clWhite; else Edit1->Color=clGray;
if (a==1) Edit2->Color=clWhite; else Edit2->Color=clGray;
if (a==1) Edit3->Color=clWhite; else Edit3->Color=clGray;
if (a==1) Edit4->Color=clWhite; else Edit4->Color=clGray;
if (a==1) Edit5->Color=clWhite; else Edit5->Color=clGray;
if (a==1) Edit6->Color=clWhite; else Edit6->Color=clGray;
};
void TForm5::Calculate()
{
float d=StrToFloat(Form5->Edit3->Text),
D=StrToFloat(Form5->Edit2->Text),
t=StrToFloat(Form5->Edit4->Text),
a=StrToFloat(Form5->Edit5->Text),
b=StrToFloat(Form5->Edit6->Text),
L=StrToFloat(Form5->Edit1->Text),
ro=Form1->ro;
Form1->ro_ras=ro*Form1->k;
switch (zazem_type)
{
case 1: r=ro/(M_PI*d); break;
case 2: r=(ro/(2*M_PI*d))*(1+(D/4*t)); break;
case 3: r=(ro/(2*M_PI*L))*log((4*L)/d); break;