Реферат: Математическое моделирование процессов измельчения твёрдых материалов

n=StrToFloat(Edit2->Text);

Dn=StrToFloat(Edit3->Text);

r=StrToFloat(Edit4->Text);

d=StrToFloat(Edit5->Text);

alfa1=StrToFloat(Edit6->Text);

alfa2=StrToFloat(Edit7->Text);

Q=340*n*M*Dn*r*Dn/(tan(alfa1)+tan(alfa2));

Edit8->Text = (AnsiString)Q;

}

//---------------------------------------------------------------------------

Unit 7.

#include <vcl.h>

#pragma hdrstop

#include "Unit7.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

double Q,n,D,L,S,ro,M;

TForm7 *Form7;

//---------------------------------------------------------------------------

__fastcall TForm7::TForm7(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm7::Button1Click(TObject *Sender)

{

n=StrToFloat(Edit1->Text);

L=StrToFloat(Edit2->Text);