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

Form4->StringGrid1->Cells[1][0]="Q";

for (n1=0; n1<300; n1=n1+20){

Q1=30*n1*M*B*S*(2*e+S)/tan(alfa);

StringGrid1->RowCount++;

Form4->StringGrid1->Cells[1][1+i]=Q1;

Form4->StringGrid1->Cells[0][1+i]=n1;

Series1->AddXY(n1,Q1);

i++;

}

}

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

Unit6.

#include <vcl.h>

#pragma hdrstop

#include"math.h"

#include "Unit6.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

double M,n,Dn,r,d,alfa1,alfa2,Q;

TForm6 *Form6;

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

__fastcall TForm6::TForm6(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm6::Button1Click(TObject *Sender)

{