Kompyuter tizimlari va ularning dasturiy ta’minoti
![Kirish
O zbekiston mustaqillikka erishgandan so ng davlatimizning asosiy
qonuni - Konstitutsiyasi bilan kafolatlangan muxim xujjatga ega bo ldik. Ular
orasida O zbekistonda "Kadrlar tayyorlash milliy dasturi" va "Axborot
texnologiyalari sohasida kadrlar tayyorlash tizimini takomillashtirish"[1,2] aloxida
o rin tutadi. Undagi g oyalar avvalo XXI asrda yashaydigan, Vatan va yurt
mustaqilligini mustaxkamlovchi yoshlarning manfaatini ifodalaydi. Dasturda etirof
etilgan kadrlar tayyorlash tizimini rivojlantirishning asosiy yo nalishlarida shu
narsa aloxida belgilandiki, ta'lim tizimini yaxlit axborotlashtirish hozirgi zamon
talablariga muvofiqlashuvini ta'minlaydi. Bu dasturlarni o ttgan davr mobaynida
sarxisob qilib, ularning eng muxim xususiyatlaridan biri sifatida hozirgi ta'lim
dasturlarida nazarda tutilayotgan zamonaviy axborot texnologiyalari, ta'limni
kompyuterlashtirish va kompyuterlar tarmoqlari tizimida ta'lim jarayonini axborot
bilan ta'minlashni yanada rivojlantirishni nazarda tutmoqdamiz. Zero, milliy
dasturlarni ro yobga chiqarishga doir tashkiliy ishlarda etirof etilganidek,
"Ta'limni axborot bilan ta'minlash tizimini shakllantirish va rivojlantirish uni jaxon
axborot tizimi bilan bog lash, ommaviy axborot vositalarining ta'lim sohasidagi
vazifalarini belgilash" malakali mutaxassislarni tayyorlashni muxim mezonlaridan
biridir.
Hozirgi zamonda amaliy masalalarni yechish programma komplekslari har xil
sohalarda bo`layotgan jarayonlarni avtomatlashtirish imkonini beryabdi. Shu
sohalardan biri bo`lgan sanoat, avtomobil va aviasozlik sohalarda ishlatiladigan
konstruksiyalar elementlarining kuchlanganlik holatini xisob kitob qilish va
ularning mustahkamligini aniqlash masalasi dolzarb deb hisoblanadi.
Bu jarayonlarni avtomatlashtirish uchun avvalo berilgan konstruksiya
to`g`risidagi ma lumotlarni to`plash talab qilinadi. Bu masala murakkab bo`lgani
sababli uni bajarish uchun quyidagi amallar bajariladi. Avvalo murakkab sohani
bir necha elementar sohalarga ajratib olinadi. Elementar soha deganda sohaning
diskret modelini yaratish algoritmi mavjud bo`lgan sohalar tushuniladi. Shu sababli](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_2.png?v=1)
![2 rasm 3 rasm 4 rasm
Birinchi turdagi ikki o lchovli elementar soha diskret modeli 1 rasmda
keltirilgan bo lib, u elementar sohaning uch o lchovli diskret modelini tuzish
uchun kerak bo ladi. Qolgan rasmlarda(2, 3, 4) elementar sohaning mumkin
bo lgan uch o lchovli ko rinishlari keltirilgan. Birinchi tur uch o lchovli
elementar sohaning diskret modelini yaratish uchun to g ri chiziqli
to rtburchakning koordinatalari((x1, y1, z1), (x2, y2, z2), (x3, y3, z3), (x4, y4,
z4)), 0x o qi bo yicha(n),
0y o qi bo yicha(m), 0z o qi bo yicha(l)
bo linishlar soni, elementar sohani surish uchun
Oz o qidagi uzunlik qiymati,
ko chirish uchun
Ox va Oy o qlari qiymatlari, burish uchun burchak qiymatlari
kerak bo ladi.
Yuqorida keltirilgan parametrlarga tayangan xolda uch o lchovli elementar
sohaning diskret modeli quyidagi ketma ketlikda amalga oshiriladi:
1. (x1, y1, z1) va (x2 ,y2, z2) nuqtalar orasidagi uzunlikni n ta bir xil
uzunliklarga ajratiladi va xosil bo lgan nuqta koordinatalarini M1[1
n+1,1 3] massiviga saqlanadi. Ushbu amal (x4, y4, z4) va (x3, y3, z3)
nuqtlari uchun ham bajariladi va M2[1 n+1,1 3] massiviga saqlanadi.
2. paydo bo lgan ikkita massivning mos indekslaridagi saqlangan nuqtalar
orasidagi uzunlikni m ta bir xil uzunliklarga ajratiladi va xosil bo lgan
nuqta koordinatalari MK massiviga saqlanadi.
3. Paydo bo lgan MK massivda saqlandan tugun nuqta koordinatalariga
surish, ko chirish va burishdan xosil bo lgan uzunliklarni qo shib
chiqiladi va ushbu uzunliklarni l ta bir xil uzunliklarga ajratiladi va
BKXY[1 N,1 3] massiviga saqlanadi.
4. topgan tugun nuqta koordinatalaridan diskret modelni yaratish uchun chekli
element tugun nuqtalarini MN [1 M, 1 8] massiviga ajratib olinadi.](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_19.png?v=1)
![Boshi
xy[4][2], mass1[m+1][2],
mass2[m+1][2], m, n,
MK
i = 0
i = i + 1
mass1
i,x = xy
1,x +i(xy
4,x – xy
1,x )/m;
mass1
i,y = xy
1,y +i(xy
4,y – xy
1,y )/m;
mass2
2,x = xy
2,x +i(xy
3,x – xy
2,x )/m;
mass2
i,x = xy
2,x +i(xy
3,x – xy
2,y )/m;
mass2[i][1]=xy[1][1]+i(xy[2]
[1]-xy[1][1])/m;
i ≤
mj = 0
j = j + 1
MK
j,x = mass1
i,x +j(mass2
i,x – mass1
i,x )/n;
MK
j,x = mass1
i,y +j(mass2
i,y – mass1
i,y )/n;
j ≤
n
1](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_21.png?v=1)
![bo yicha bo linishlar soni, m Sohaning 0x oqi bo yicha bo linishlar soni
kerak bo ladi.
Yuqorida keltirilgan parametrlarga tayangan xolda uch o lchovli elementar
sohaning diskret modeli quyidagi ketma ketlikda amalga oshiriladi:
1. ikkinchi turdagi elementar sohaning chorak qismi 90 gradusdan iborat
bo lgani uchun ushbu burchakni n1 va n2 ga teng bo laklarga
ajratilib chiqiladi va quyidagi formulalardan foydalaniladi
(3)
(4)
Birinchi keltirilgan burchak formulasi bu berigan elementar soha
umumiy burchagining bir qismini n1 ta bo lakka bo lib chiqish
formulasi, ikkinchi formula qolgan qismini n2 ta bo lakka ajratib
chiqish formula hisoblanadi.
2. Ikkinchi navbatda berilgan elementar sohaning ichki kovagining
chegaraviy nuqtalarini topib array1[n1+n2][1..3] massiviga saqlashdan
iborat.
(5)
, (6)
Bu erda l elementar sohaning markazidan ichki chegaraviy
nuqtalarigacha bo lgan masofa,
r
1 , r
2 ichki kovak radiyuslari, x
i va y
i
ichki chegaraviy nuqtalar koordinatalari.
3. Uchinchi bosqichda elementar sohaning tashqi chegaraviy nuqtalarini
hisoblashdan iborat. Buning uchun uchta tashqi chegaraviy nuqtani
topish kerak birinchi, n1 chi va n1+n2 chi nuqta koordinatalarini.
Ushbu nuqtalarni topish uchun (3), (4) va (6) formulalardan
foydalaniladi. Undagi l uzunlikni ikkinchi nuqtagacha kA, uchinchi
nuqtaga kB ishlatiladi. Keyingi qadamda birinchi va ikkinchi nuqtalar](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_24.png?v=1)
![orasidagi uzunlikni n1 taga, ikkinchi va uchinchi nuqta orasidagi
uzunlikni n2 ga teng uzunliklarga ajratib chiqiladi. Xosil bo lgan
tashqi chegara nuqta koordinatalari array2[n1+n2][1..3] massiviga
saqlanadi.
4. keyingi bosqichda birinchi va ikkinchi massivgi mos indekslaridagi
saqlangan nuqtalar orasidagi uzunliklarni teng m ta bo lakka ajratib
chiqiladi va MK massiviga saqlanadi.
5. Paydo bo lgan MK massivda saqlandan tugun nuqta koordinatalariga
surish, ko chirish va burishdan xosil bo lgan uzunliklarni qo shib
chiqiladi va ushbu uzunliklarni t ta bir xil uzunliklarga ajratiladi va
BKXY[1 N,1 3] massiviga saqlanadi.
6. topgan tugun nuqta koordinatalaridan diskret modelni yaratish uchun
chekli element tugun nuqtalarini MN [1 M, 1 8] massiviga ajratib
olinadi. Natijada sohaning tugun nuqtalar soni N = (m+1)(n+1)(t+1),
chekli elementlar soni M = m n t topiladi.](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_25.png?v=1)
![Boshi
xy[4][2], mass1[m+1][2],
mass2[m+1][2], m, n,
MK
i = 0
i = i + 1
mass1
i,x = xy
1,x +i(xy
4,x xy
1,x )/m;
mass1
i,y = xy
1,y +i(xy
4,y xy
1,y )/m;
mass2
2,x = xy
2,x +i(xy
3,x xy
2,x )/m;
mass2
i,x = xy
2,x +i(xy
3,x xy
2,y )/m;
mass2[i][1]=xy[1][1]+i(xy[2]
[1]-xy[1][1])/m;
i ≤
mj = 0
j = j + 1
MK
j,x = mass1
i,x +j(mass2
i,x – mass1
i,x )/n;
MK
j,x = mass1
i,y +j(mass2
i,y – mass1
i,y )/n;
j ≤
n
1](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_26.png?v=1)
![0x oqi bo yicha bo linishlar soni, A soha uzunligi va B – soha balandligi
kerak bo ladi.
Yuqorida keltirilgan parametrlarga tayangan xolda uch o lchovli elementar
sohaning diskret modeli quyidagi ketma ketlikda amalga oshiriladi:
1. uchinchi turdagi elementar sohaning chorak qismi 90 gradusdan iborat
bo lgani uchun birinchi, (3) formulasidan foydalanib umumiy burchakning
bir qismini n1 ta bo lakka bo lib chiqiladi, (4) formuladan qolgan qismini
n2 burchaklarga ajratib chiqiladi.
2. Ikkinchi navbatda esa berilgan elementar sohaning ichki chegaraviy
nuqtalarini topib array1[n1+n2][1..3] massiviga saqlanadi. Chegaraviy
nuqtalarni (5), (6) formulalaridan foydalaniladi.
3. Uchinchi bosqichda elementar sohaning tashqi chegaraviy nuqtalarini
aniqlash. Buning uchun ham (5), (6) formulalaridan foydalaniladi. Xosil
bo lgan tashqi chegara nuqta koordinatalar array2[n1+n2][1..3] massiviga
saqlanadi.
4. keyingi bosqichda birinchi va ikkinchi massivning mos indekslaridagi
saqlangan nuqtalar orasidagi uzunliklarni m ta teng bo lakka ajratib
chiqiladi va MK massiviga saqlanadi.
5. Paydo bo lgan MK massivda saqlandan tugun nuqta koordinatalariga
surish, ko chirish va burishdan xosil bo lgan uzunliklarni qo shib
chiqiladi va ushbu uzunliklarni t ta bir xil uzunliklarga ajratiladi va
BKXY[1 N,1 3] massiviga saqlanadi.
6. topgan tugun nuqta koordinatalaridan diskret modelni yaratish uchun chekli
element tugun nuqtalarini MN [1 M, 1 8] massiviga ajratib olinadi.
Natijada sohaning tugun nuqtalar soni N = (m+1)(n+1)(t+1), chekli
elementlar soni M = m n t topiladi.](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_29.png?v=1)
![Boshi
xy[4][2], mass1[m+1][2],
mass2[m+1][2], m, n,
MK
i = 0
i = i + 1
mass1
i,x = xy
1,x +i(xy
4,x – xy
1,x )/m;
mass1
i,y = xy
1,y +i(xy
4,y – xy
1,y )/m;
mass2
2,x = xy
2,x +i(xy
3,x – xy
2,x )/m;
mass2
i,x = xy
2,x +i(xy
3,x – xy
2,y )/m;
mass2[i][1]=xy[1][1]+i(xy[2]
[1]-xy[1][1])/m;
i ≤
mj = 0
j = j + 1
MK
j,x = mass1
i,x +j(mass2
i,x – mass1
i,x )/n;
MK
j,x = mass1
i,y +j(mass2
i,y – mass1
i,y )/n;
j ≤
n
1](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_30.png?v=1)
![Yuqorida keltirilgan parametrlarga tayangan xolda uch o lchovli elementar
sohaning diskret modeli quyidagi ketma ketlikda amalga oshiriladi:
1. To rtinchi tur elementar soha diskret modeli ikkita bo lakka bo lib
hisoblanadi. Birinchi bo lak birinchi turga mansub bo lgan elementar
soha(5 rasm)
r1,r2 tomonli to’rtburchak. Birinchi turdagi elementar
sohani hisoblovchi funktsiyaga n1, n2 parametrlarni kiritib uning diskret
modeli olinadi va elementar sohaning qo shilishi kerak bo lgan tugun
nuqta koordinatalari array1[n1+n2][1..3] massiviga saqlanadi.
2. umumiy elementar sohaning ikkinchi bo lagi(6 rasm)
a,b radiusli
ellipsning chorak qismi deb olinadi va (3) formuladan foydalanib umumiy
burchakning bir qismi n1 ta bo lakka bo lib chiqiladi, (4) formuladan
qolgan qismini n2 burchaklarga ajratib chiqiladi va array2[n1+n2][1..3]
massiviga saqlanadi.
3. keyingi bosqichda birinchi va ikkinchi massivning mos indekslaridagi
saqlangan nuqtalar orasidagi uzunliklarni m ta teng bo lakka ajratib
chiqiladi va MK massiviga saqlanadi.
4. Paydo bo lgan MK massivda saqlandan tugun nuqta koordinatalariga
surish, ko chirish va burishdan xosil bo lgan uzunliklarni qo shib
chiqiladi va ushbu uzunliklarni t ta bir xil uzunliklarga ajratiladi va
BKXY[1 N,1 3] massiviga saqlanadi.
5. topgan tugun nuqta koordinatalaridan diskret modelni yaratish uchun chekli
element tugun nuqtalarini MN [1 M, 1 8] massiviga ajratib olinadi.
Natijada sohaning tugun nuqtalar soni N = (m+1)(n+1)(t+1), chekli
elementlar soni M = m n t topiladi.(7 to rtinchi tur elementar soha)
](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_33.png?v=1)
![Boshi
xy[4][2], mass1[m+1][2],
mass2[m+1][2], m, n,
MK
i = 0
i = i + 1
mass1
i,x = xy
1,x +i(xy
4,x – xy
1,x )/m;
mass1
i,y = xy
1,y +i(xy
4,y – xy
1,y )/m;
mass2
2,x = xy
2,x +i(xy
3,x – xy
2,x )/m;
mass2
i,x = xy
2,x +i(xy
3,x – xy
2,y )/m;
mass2[i][1]=xy[1][1]+i(xy[2]
[1]-xy[1][1])/m;
i ≤
mj = 0
j = j + 1
MK
j,x = mass1
i,x +j(mass2
i,x – mass1
i,x )/n;
MK
j,x = mass1
i,y +j(mass2
i,y – mass1
i,y )/n;
j ≤
n
1](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_34.png?v=1)
![2.5§. Murakkab soha diskret modelini yaratish algoritmi
Murakkab sohaning barcha elementar sohalari hisoblashlaridan keyin qoshish
amali boshlanadi. Ushbu amalda asosan chegarada yotuvchi umumiy nuqtalarning
aniqlash, tugun nuqta va chekli elementlar tugunlari qayta raqamlanishlar ustida
kechadi.
Natijada quyidagi soha kelib chiqadi
Qo shish jarayonida birinchi soha toliq o zgarishlarsiz ko chiriladi, ikkinchi soha
uchun qayta raqamlashni amalga oshirish kerak bo ladi.
1. qo shiluvchi ikkita sohaning umumiy tugun nuqtasini topish kerak. Mos
keluvchi tugun nuqta koordinatalarini keyinchalik solishtirish uchun massivga
saqlab qo yiladi.
2. Qo shish jarayonida ikkinchi soha mos kelgan tugunlari birinchi soha tugunlari
raqami bilan raqamlanadi, ikkinchi sohaning qolgan tugunlari quyidagi formula
yordamida qayta raqamlanadi:
N = N
i + i q
Bu erda, N
i
birinchi soha tugun maksimal nuqtalar nuqtalar soni
i ikkinchi sohaning qayta raqamlanishi kerak bo lgan tugun nuqta raqami
q ikkinchi sohaning mos tugun nuqta(chegaraviy) raqamining i raqamidan
nechtasidan kichikligi.
Bu jarayon ikkinchi soha tugun nuqtalari toliq qayta raqamlanishigacha davom etadi.
Demak, qo shilgan ikkita soha diskret modeli umumiy ko rinish quyidagich:
M = M1 + M2, N = N1 + N2 - k,
MK[N], MN[M]](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_36.png?v=1)
![Bu erda, k mos keluvchi tugun nuqtalar soni, MK[N] tugun nuqta
raqamlanishini va koordinatalarini saqlovchi massiv](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_37.png?v=1)
![Boshi
xy[4][2], mass1[m+1][2],
mass2[m+1][2], m, n,
MK
i = 0
i = i + 1
mass1
i,x = xy
1,x +i(xy
4,x – xy
1,x )/m;
mass1
i,y = xy
1,y +i(xy
4,y – xy
1,y )/m;
mass2
2,x = xy
2,x +i(xy
3,x – xy
2,x )/m;
mass2
i,x = xy
2,x +i(xy
3,x – xy
2,y )/m;
mass2[i][1]=xy[1][1]+i(xy[2]
[1]-xy[1][1])/m;
i ≤
mj = 0
j = j + 1
MK
j,x = mass1
i,x +j(mass2
i,x – mass1
i,x )/n;
MK
j,x = mass1
i,y +j(mass2
i,y – mass1
i,y )/n;
j ≤
n
1](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_38.png?v=1)
![# include < vcl . h >
#include <math.h>
#include <string.h>
#include <stdio.h>
#include <GL/glu.h>
#include <GL/gl.h>
#include <io.h>
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
#define BLACK_INDEX 255
TForm1 *Form1;
FILE *stream;
bool switcher = true;
bool button3D = false;
bool mathModSw = true;
int xy = 0,xs,ys;
HGLRC ghRC;
HDC ghDC;
GLfloat latitude, longitude, latinc, longinc;
GLdouble radius;
void liner(int);
GLvoid initializeGL(GLsizei width, GLsizei height);
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
this->GroupBox1->Hide();
this->GroupBox2->Hide();
this->GroupBox3->Hide();
this->GroupBox4->Hide();
this->StringGrid1->Hide();
this->StringGrid2->Hide();
this->StringGrid3->Hide();
this->StringGrid4->Hide();
this->StringGrid5->Hide();
this->StringGrid6->Hide();
this->StringGrid7->Hide();
this->StringGrid8->Hide();
this->StringGrid9->Hide();
this->StringGrid10->Hide();
this->StringGrid11->Hide();
this->ProgressBar1->Hide();
this->Panel2->Hide();
this->DoubleBuffered = true;
Form1->Image1->Canvas->Font->Color = clWhite;
Form1->Image1->Canvas->Font->Size = 11;
liner(25);
}
int writeToXLS();
void polarView(GLdouble radius, GLdouble twist, GLdouble latitude,
GLdouble longitude)
{
glTranslated(0, -0.5, -radius);
//glRotated(-twist, 0.0, 0.0, 1.0);
//glRotated(-latitude, 1.0, 0.0, 0.0);
glRotated(longitude, 0.0, 0.1, 0.0);
}
void openGL(int id1){
int row,n,start,ended,colC5;
float x,y,z;
Form1->Image1->Hide();
Form1->Panel1->Hide();
Form1->GroupBox3->Show();
colC5 = Form1->StringGrid5->ColCount;
n = Form1->StringGrid6->Cells[5][id1].ToInt();
start = Form1->StringGrid6->Cells[6][id1].ToInt();
ended = Form1->StringGrid6->Cells[7][id1].ToInt();
row = (ended-start)/n;
glPushMatrix();
latitude += latinc;
longitude += longinc;
polarView( radius, 0, latitude, longitude );
glClear( GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_64.png?v=1)
![for(int i = start,m;i < row+start;i++){
glBegin(GL_QUADS);
glColor3f(0,0,0);
for(int j = 1,t;j <= colC5;j++){
if(j == 3)
t = j+1;
else{
if(j == 4)
t = j-1;
else
t = j;
}
m = Form1->StringGrid3->Cells[t][i].ToInt();
x = Form1->StringGrid4->Cells[1][m].ToDouble();
y = Form1->StringGrid4->Cells[2][m].ToDouble();
z = Form1->StringGrid4->Cells[5][m].ToDouble();
glVertex3f(x/500, y/500, z/500);
}
glEnd();
glBegin(GL_LINE_LOOP);
glColor3f(1,1,1);
for(int j = 1,t;j <= colC5;j++){
if(j == 3)
t = j+1;
else{
if(j == 4)
t = j-1;
else
t = j;
}
m = Form1->StringGrid3->Cells[t][i].ToInt();
x = Form1->StringGrid4->Cells[1][m].ToDouble();
y = Form1->StringGrid4->Cells[2][m].ToDouble();
z = Form1->StringGrid4->Cells[5][m].ToDouble();
glVertex3f((x-1)/500, (y-1)/500, (z-1)/500);
}
glEnd();
glBegin(GL_LINE_LOOP);
glColor3f(1,1,1);
for(int j = 1,t;j <= colC5;j++){
if(j == 3)
t = j+1;
else{
if(j == 4)
t = j-1;
else
t = j;
}
m = Form1->StringGrid3->Cells[t][i].ToInt();
x = Form1->StringGrid4->Cells[1][m].ToDouble();
y = Form1->StringGrid4->Cells[2][m].ToDouble();
z = Form1->StringGrid4->Cells[5][m].ToDouble();
glVertex3f((x+1)/500, (y+1)/500, (z+1)/500);
}
glEnd();
}
for(int i = ended-row,m;i < ended;i++){
glBegin(GL_QUADS);
glColor3f(0,0,0);
for(int j = colC5+1,t;j <= 2*colC5;j++){
if(j-colC5 == 3)
t = j+1;
else{
if(j-colC5 == 4)
t = j-1;
else
t = j;
}
m = Form1->StringGrid3->Cells[t][i].ToInt();
x = Form1->StringGrid4->Cells[1][m].ToDouble();
y = Form1->StringGrid4->Cells[2][m].ToDouble();
z = Form1->StringGrid4->Cells[5][m].ToDouble();
glVertex3f(x/500, y/500, z/500);
}
glEnd();
glBegin(GL_LINE_LOOP);
glColor3f(1,1,1);
for(int j = colC5+1,t;j <= 2*colC5;j++){
if(j-colC5 == 3)
t = j+1;](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_65.png?v=1)
![else{
if(j-colC5 == 4)
t = j-1;
else
t = j;
}
m = Form1->StringGrid3->Cells[t][i].ToInt();
x = Form1->StringGrid4->Cells[1][m].ToDouble();
y = Form1->StringGrid4->Cells[2][m].ToDouble();
z = Form1->StringGrid4->Cells[5][m].ToDouble();
glVertex3f((x-1)/500, (y-1)/500, (z-1)/500);
}
glEnd();
glBegin(GL_LINE_LOOP);
glColor3f(1,1,1);
for(int j = colC5+1,t;j <= 2*colC5;j++){
if(j-colC5 == 3)
t = j+1;
else{
if(j-colC5 == 4)
t = j-1;
else
t = j;
}
m = Form1->StringGrid3->Cells[t][i].ToInt();
x = Form1->StringGrid4->Cells[1][m].ToDouble();
y = Form1->StringGrid4->Cells[2][m].ToDouble();
z = Form1->StringGrid4->Cells[5][m].ToDouble();
glVertex3f((x+1)/500, (y+1)/500, (z+1)/500);
}
glEnd();
}
start = Form1->StringGrid6->Cells[8][id1].ToInt();
ended = Form1->StringGrid6->Cells[9][id1].ToInt();
for(int i = start,m;i < ended;i++){
glBegin(GL_QUADS);
glColor3f(0,0,0);
for(int j = 0,t;j < colC5;j++){
if(j == 2)
t = j+1;
else
if(j == 3)
t = j-1;
else
t = j;
m = Form1->StringGrid5->Cells[t][i].ToInt();
x = Form1->StringGrid4->Cells[1][m].ToDouble();
y = Form1->StringGrid4->Cells[2][m].ToDouble();
z = Form1->StringGrid4->Cells[5][m].ToDouble();
glVertex3f(x/500, y/500, z/500);
}
glEnd();
glBegin(GL_LINE_LOOP);
glColor3f(1,1,1);
for(int j = 0,t;j < colC5;j++){
if(j == 2)
t = j+1;
else
if(j == 3)
t = j-1;
else
t = j;
m = Form1->StringGrid5->Cells[t][i].ToInt();
x = Form1->StringGrid4->Cells[1][m].ToDouble();
y = Form1->StringGrid4->Cells[2][m].ToDouble();
z = Form1->StringGrid4->Cells[5][m].ToDouble();
glVertex3f((x-1)/500, (y-1)/500, (z-1)/500);
}
glEnd();
glBegin(GL_LINE_LOOP);
glColor3f(1,1,1);
for(int j = 0,t;j < colC5;j++){
if(j == 2)
t = j+1;
else
if(j == 3)
t = j-1;
else
t = j;
m = Form1->StringGrid5->Cells[t][i].ToInt();](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_66.png?v=1)
![x = Form1->StringGrid4->Cells[1][m].ToDouble();
y = Form1->StringGrid4->Cells[2][m].ToDouble();
z = Form1->StringGrid4->Cells[5][m].ToDouble();
glVertex3f((x+1)/500, (y+1)/500, (z+1)/500);
}
glEnd();
}
glPopMatrix();
SwapBuffers(ghDC);
}
void liner(int length){
Form1->Image1->Canvas->Brush->Color = cl3DDkShadow;
Form1->Image1->Canvas->Rectangle(0,0,Form1->Image1->Width,Form1->Image1->Height);
Form1->Image1->Canvas->Pen->Style = psDot;
Form1->Image1->Canvas->Pen->Color = clGray;
for(int i = length,j = 1;i < Form1->Image1->Width;i = i + length,j++){
if(j%10 == 0)
Form1->Image1->Canvas->Pen->Style = psSolid;
else
Form1->Image1->Canvas->Pen->Style = psDot;
Form1->Image1->Canvas->MoveTo(i,0);
Form1->Image1->Canvas->LineTo(i,Form1->Image1->Height);
Form1->Image1->Canvas->MoveTo(0,i);
Form1->Image1->Canvas->LineTo(Form1->Image1->Width,i);
}
Form1->Image1->Canvas->Pen->Style = psSolid;
Form1->Image1->Canvas->Pen->Color = clWhite;
}
GLvoid resize( GLsizei width, GLsizei height )
{
GLfloat aspect;
glViewport( 0, 0, width, height );
aspect = (GLfloat) width / height;
glMatrixMode( GL_PROJECTION );
glLoadIdentity();
gluPerspective( 40.0, aspect, 3.0, 7.0 );
glMatrixMode( GL_MODELVIEW );
}
void miniEllipses(){
int x0,y0,tag = Form1->StringGrid1->Tag;
Form1->Image1->Canvas->Pen->Color = clWhite;
Form1->Image1->Canvas->Pen->Style = psSolid;
for(int i = 0;i < tag;i++){
if(Form1->StringGrid1->Cells[1][i] !=""){
x0 = Form1->StringGrid1->Cells[1][i].ToInt();
y0 = Form1->StringGrid1->Cells[2][i].ToInt();
Form1->Image1->Canvas->Ellipse(x0-4,y0-4,x0+4,y0+4);
}
}
}
int showerListItems(){
int tx,tag = Form1->StringGrid6->RowCount;
String s1 = " soha",s0,s;
Form1->ListBox1->Columns = 1;
Form1->ListBox2->Columns = 1;
Form1->ListBox1->Clear();
Form1->ListBox2->Clear();
for(int i = 0;i < tag;i++){
tx = Form1->StringGrid6->Cells[0][i].ToInt();
s0 = tx;
s = s0 + s1;
Form1->ListBox1->Items->Add(s);
Form1->ListBox2->Items->Add(s);
}
return 0;
}
int rebooter(int i2){
int row0,col0,row1,col1,row2,col2,last,id2;
row0 = Form1->StringGrid9->RowCount;
col0 = Form1->StringGrid9->ColCount;
row1 = Form1->StringGrid10->RowCount;
col1 = Form1->StringGrid10->ColCount;
row2 = Form1->StringGrid11->RowCount;
col2 = Form1->StringGrid11->ColCount;
for(int i = 0;i < row1;i++){
for(int j = 0;j < col1;j++){
last = Form1->StringGrid10->Cells[j][i].ToInt();](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_67.png?v=1)
![for(int k = 0;k < row0;k++){
if(Form1->StringGrid9->Cells[col0-1][k] == ""){
ShowMessage(k);
}
else
if(last == Form1->StringGrid9->Cells[col0-1][k].ToInt())
Form1->StringGrid10->Cells[j][i] = k;
}
}
}
for(int i = 0;i < row2;i++){
for(int j = 0;j < col2;j++){
if(Form1->StringGrid11->Cells[j][i] == "")
ShowMessage(i);
else{
last = Form1->StringGrid11->Cells[j][i].ToInt();
for(int k = 0;k < row0;k++){
if(last == Form1->StringGrid9->Cells[col0-1][k].ToInt())
Form1->StringGrid11->Cells[j][i] = k;
}
}
}
}
Form1->StringGrid4->RowCount = row0;
Form1->StringGrid4->ColCount = col0-1;
for(int i = 0;i < row0;i++)
for(int j = 0;j < col0-1;j++){
Form1->StringGrid4->Cells[j][i] = Form1->StringGrid9->Cells[j][i];
}
Form1->StringGrid3->RowCount = row1;
Form1->StringGrid3->ColCount = col1;
for(int i = 0;i < row1;i++)
for(int j = 0;j < col1;j++)
Form1->StringGrid3->Cells[j][i] = Form1->StringGrid10->Cells[j][i];
Form1->StringGrid5->RowCount = row2;
Form1->StringGrid5->ColCount = col2;
for(int i = 0;i < row2;i++)
for(int j = 0;j < col2;j++)
Form1->StringGrid5->Cells[j][i] = Form1->StringGrid11->Cells[j][i];
row0 = Form1->StringGrid6->RowCount;
col0 = Form1->StringGrid6->ColCount;
Form1->StringGrid10->Tag = 0;
last = Form1->StringGrid10->Tag;
Form1->StringGrid10->ColCount = col0;
id2 = i2;
for(int i = 0;i < row0;i++){
if(i != id2){
Form1->StringGrid10->Tag++;
last = Form1->StringGrid10->Tag;
Form1->StringGrid10->RowCount = last;
for(int j = 0;j < col0;j++){
Form1->StringGrid10->Cells[j][last-1] = Form1->StringGrid6-
>Cells[j][i];
}
}
}
row0 = Form1->StringGrid10->RowCount;
col0 = Form1->StringGrid10->ColCount;
Form1->StringGrid6->RowCount = row0;
Form1->StringGrid6->ColCount = col0;
for(int i = 0;i < row0;i++)
for(int j = 0;j < col0;j++)
Form1->StringGrid6->Cells[j][i] = Form1->StringGrid10->Cells[j][i];
Form1->StringGrid9->Tag = 0;
Form1->StringGrid10->Tag = 0;
Form1->StringGrid11->Tag = 0;
Form1->StringGrid6->Tag = Form1->StringGrid6->RowCount;
writeToXLS();
return 0;
}
void filtr(int id1,int id2){
int l,row5,col5,row7,row6,n,*buff1,*buff2,start,ended;
row7 = Form1->StringGrid7->RowCount;
col5 = 2;
for(int u = 0,s = 0;u < 2;u++){
if(u == 0){
start = Form1->StringGrid6->Cells[8][id1].ToInt();
ended = Form1->StringGrid6->Cells[9][id1].ToInt();
l = Form1->StringGrid6->Cells[5][id1].ToInt();
n = ended-start;](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_68.png?v=1)
![buff1 = new int[n];
}
else{
start = Form1->StringGrid6->Cells[8][id2].ToInt();
ended = Form1->StringGrid6->Cells[9][id2].ToInt();
l = Form1->StringGrid6->Cells[5][id1].ToInt();
n = ended-start;
buff2 = new int[n];
}
for(int i = start,x = 0;i < ended;i=i+l){
for(int j = 0,p;j < col5;j++){
p = Form1->StringGrid5->Cells[j][i].ToInt();
for(int k = 0,q;k < row7;k++){
q = Form1->StringGrid7->Cells[0][k].ToInt();
if(p == q){
s++;
break;
}
}
}
if(s >= 2){
//ShowMessage(i);
i = i;
}
else{
if(u == 0){
for(int k = i;k < i+l;k++){
buff1[x] = k;
x++;
}
}
else{
for(int k = i;k < i+l;k++){
buff2[x] = k;
x++;
}
}
}
s = 0;
}
}
row6 = Form1->StringGrid6->RowCount;
for(int i = 0,row = 0;i < row6;i++){
if(i!=id1&&i!=id2){
start = Form1->StringGrid6->Cells[8][i].ToInt();
ended = Form1->StringGrid6->Cells[9][i].ToInt();
}
else{
if(i == id1){
start = Form1->StringGrid6->Cells[8][i].ToInt();
ended = Form1->StringGrid6->Cells[9][i].ToInt();
n = ended-start;
start = 0;
ended = n-l*(row7-1);
}
else{
start = Form1->StringGrid6->Cells[8][i].ToInt();
ended = Form1->StringGrid6->Cells[9][i].ToInt();
n = ended-start;
start = 0;
ended = n-l*(row7-1);
}
}
Form1->StringGrid6->Cells[8][i] = row;
for(int j = start,x;j < ended;j++){
if(i!=id1&&i!=id2){
x = j;
}
else{
if(i == id1)
x = buff1[j];
else
x = buff2[j];
}
if(Form1->StringGrid5->Cells[0][x] != ""){
row++;
Form1->StringGrid11->RowCount = row;
for(int k = 0;k < col5;k++){
Form1->StringGrid11->Cells[k][row-1] = Form1-
>StringGrid5->Cells[k][x];](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_69.png?v=1)
![}
}
else
ShowMessage(x);
}
Form1->StringGrid6->Cells[9][i] = row;
}
row7 = Form1->StringGrid11->RowCount;
Form1->StringGrid5->RowCount = row7;
for(int i = 0;i < row7;i++)
for(int j = 0;j < col5;j++)
Form1->StringGrid5->Cells[j][i] = Form1->StringGrid11->Cells[j][i];
}
int replacer(int i1,int i2){
int row7,s0,e0,s1,e1,col0,col1,n1,n2,l,id0,id1,f,s;
int start,ended;
row7 = Form1->StringGrid7->RowCount;
id0 = i1;
id1 = i2;
start = Form1->StringGrid6->Cells[1][id1].ToInt();
ended = Form1->StringGrid6->Cells[2][id1].ToInt();
l = Form1->StringGrid6->Cells[5][id1].ToInt();
s = (ended-start)/(l+1);
start = Form1->StringGrid6->Cells[1][id0].ToInt();
ended = Form1->StringGrid6->Cells[2][id0].ToInt();
f = (ended-start)/(l+1);
s0 = Form1->StringGrid6->Cells[6][id1].ToInt();
e0 = Form1->StringGrid6->Cells[7][id1].ToInt();
s1 = Form1->StringGrid6->Cells[8][id1].ToInt();
e1 = Form1->StringGrid6->Cells[9][id1].ToInt();
col0 = Form1->StringGrid3->ColCount;
col1 = Form1->StringGrid5->ColCount;
for(int i = 0;i < row7;i++){
n2 = Form1->StringGrid7->Cells[1][i].ToInt();
for(int j = s0;j < e0;j++){
for(int k = 1;k < col0;k++){
n1 = Form1->StringGrid3->Cells[k][j].ToInt();
for(int p = 0;p <= l;p++){
if(n1 == s*p+n2){
Form1->StringGrid3->Cells[k][j] = f*p + Form1-
>StringGrid7->Cells[0][i].ToInt();
}
}
}
}
for(int j = s1;j < e1;j++){
for(int k = 0;k < col1;k++){
n1 = Form1->StringGrid5->Cells[k][j].ToInt();
for(int p = 0;p <= l;p++){
if(n1 == s*p+n2){
Form1->StringGrid5->Cells[k][j] = f*p + Form1-
>StringGrid7->Cells[0][i].ToInt();
}
}
}
}
}
//filtr(i1,i2);
return 0;
}
void comparer(int id1,int id2){
int row7,n1,n2,start1,ended1,start2,ended2,l;
float x1,x2,y1,y2,x3,y3,x4,y4;
l = Form1->StringGrid6->Cells[5][id1].ToInt();
start1 = Form1->StringGrid6->Cells[1][id1].ToInt();
ended1 = Form1->StringGrid6->Cells[2][id1].ToInt();
start2 = Form1->StringGrid6->Cells[1][id2].ToInt();
ended2 = Form1->StringGrid6->Cells[2][id2].ToInt();
n1 = (ended1-start1)/(l+1);
n2 = (ended2-start2)/(l+1);
Form1->StringGrid7->ColCount = 2;
for(int i = start1,s = 0;i < start1+n1;i++){
x1 = Form1->StringGrid4->Cells[1][i].ToDouble();
y1 = Form1->StringGrid4->Cells[2][i].ToDouble();
x2 = Form1->StringGrid4->Cells[3][i].ToDouble();
y2 = Form1->StringGrid4->Cells[4][i].ToDouble();
x3 = x1 + x2;
y3 = y1 + y2;
for(int j = start2;j < start2+n2;j++){](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_70.png?v=1)
![x1 = Form1->StringGrid4->Cells[1][j].ToDouble();
y1 = Form1->StringGrid4->Cells[2][j].ToDouble();
x2 = Form1->StringGrid4->Cells[3][j].ToDouble();
y2 = Form1->StringGrid4->Cells[4][j].ToDouble();
x4 = x1 + x2;
y4 = y1 + y2;
if(x3>=(x4-2)&&x3<=(x4+2)&&y3>=(y4-2)&&y3<=(y4+2)){
s++;
Form1->StringGrid7->RowCount = s;
Form1->StringGrid7->Cells[0][s-1] = i;
Form1->StringGrid7->Cells[1][s-1] = j;
break;
}
}
}
row7 = Form1->StringGrid7->RowCount;
Form1->Label19->Caption = row7*(l+1);
}
int hangerArea(int id1,int id2){
int *N2,n,m,l,s,start,ended,id,row,col,tag;
int n1,n2,s_id,e_id,row7,N0,s0,s1,**buffer;
id = id2;
l = Form1->StringGrid6->Cells[5][id].ToInt();
start = Form1->StringGrid6->Cells[1][id1].ToInt();
ended = Form1->StringGrid6->Cells[2][id1].ToInt();
N0 = ended - start;
start = Form1->StringGrid6->Cells[1][id].ToInt();
ended = Form1->StringGrid6->Cells[2][id].ToInt();
n = ended - start;
s = n/(l+1);
row7 = Form1->StringGrid7->RowCount;
N2 = new int[n-row7*(l+1)];
buffer = new int*[row7*(l+1)];
for(int i = 0,k = 0;i <= l;i++)
for(int j = 0,q;j < row7;j++){
buffer[k] = new int[2];
q = Form1->StringGrid7->Cells[0][j].ToInt();
buffer[k][0] = Form1->StringGrid4->Cells[0][i*N0/(l+1)+q].ToInt();
q = Form1->StringGrid7->Cells[1][j].ToInt();
buffer[k][1] = Form1->StringGrid4->Cells[0][i*s+q].ToInt();
k++;
}
for(int i = start,k,t = 0,breaker = 0,q;i < ended;i++){
k = Form1->StringGrid4->Cells[0][i].ToInt();
for(int p = 0;p < row7*(l+1);p++){
if(k == buffer[p][1]){
breaker++;
q = buffer[p][0];
break;
}
else
if(k > buffer[p][1])
t++;
}
if(breaker == 0)
Form1->StringGrid4->Cells[0][i] = N0+k-t;
else
Form1->StringGrid4->Cells[0][i] = q;
breaker = 0;
t = 0;
}
for(int i = 0,y = 0,k = 0;i < n;i++){
for(int j = 0,t,x = 0;j < row7;j++){
t = Form1->StringGrid7->Cells[1][j].ToInt();
if((i+start-t)%s == 0){
x++;
y = x;
break;
}
else
y = 0;
}
if(y == 0){
N2[k] = i+start;
k++;
}
}
row = Form1->StringGrid6->RowCount;
replacer(id1,id2);
for(int i = 0,parts;i < row;i++){](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_71.png?v=1)
![/* stringGrid4->stringGrid9 */
if(i!=id){
col = Form1->StringGrid4->ColCount;
Form1->StringGrid9->ColCount = col+1;
if(i == id1){
m = 2;
}
else{
m = 1;
}
s_id = Form1->StringGrid9->Tag;
for(int j = 0;j <= l;j++){
for(int k = 0;k < m;k++){
if(k != 0){
start = Form1->StringGrid6->Cells[1][id].ToInt();
ended = Form1->StringGrid6->Cells[2][id].ToInt();
s1 = ended-start-row7*(l+1);
parts = s1/(l+1);
}
else{
start = Form1->StringGrid6->Cells[1][i].ToInt();
ended = Form1->StringGrid6->Cells[2][i].ToInt();
parts = (ended-start)/(l+1);
}
for(int p = j*parts+start,x;p < (j+1)*parts+start;p++){
Form1->StringGrid9->Tag++;
tag = Form1->StringGrid9->Tag;
Form1->StringGrid9->RowCount = tag;
if(k != 0)
x = N2[p-start];
else
x = p;
//ShowMessage(Form1->StringGrid4->Cells[0][x]);
for(int q = 0;q < col;q++){
Form1->StringGrid9->Cells[q][tag-1] =
Form1->StringGrid4->Cells[q][x];
if(q == col-1)
Form1->StringGrid9->Cells[q+1]
[tag-1] = x;
}
}
}
}
e_id = Form1->StringGrid9->Tag;
Form1->StringGrid6->Cells[1][i] = s_id;
Form1->StringGrid6->Cells[2][i] = e_id;
/* stringGrid3->stringGrid10 */
col = Form1->StringGrid3->ColCount;
Form1->StringGrid10->ColCount = col;
if(i == id1){
m = 2;
}
else{
m = 1;
}
s_id = Form1->StringGrid10->Tag;
for(int j = 0;j < l;j++){
for(int k = 0;k < m;k++){
if(k != 0){
start = Form1->StringGrid6->Cells[6][id].ToInt();
ended = Form1->StringGrid6->Cells[7][id].ToInt();
}
else{
start = Form1->StringGrid6->Cells[6][i].ToInt();
ended = Form1->StringGrid6->Cells[7][i].ToInt();
}
parts = (ended-start)/l;
for(int p = j*parts+start;p < (j+1)*parts+start;p++){
Form1->StringGrid10->Tag++;
tag = Form1->StringGrid10->Tag;
Form1->StringGrid10->RowCount = tag;
for(int q = 0;q < col;q++){
Form1->StringGrid10->Cells[q][tag-1] =
Form1->StringGrid3->Cells[q][p];
}
}
}
}
e_id = Form1->StringGrid10->Tag;
Form1->StringGrid6->Cells[6][i] = s_id;](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_72.png?v=1)
![Form1->StringGrid6->Cells[7][i] = e_id;
start = Form1->StringGrid6->Cells[8][i].ToInt();
ended = Form1->StringGrid6->Cells[9][i].ToInt();
if(i == id1){
n1 = Form1->StringGrid6->Cells[8][id].ToInt();
n2 = Form1->StringGrid6->Cells[9][id].ToInt();
n = n2-n1;
}
else{
n = 0;
}
s_id = Form1->StringGrid11->Tag;
col = Form1->StringGrid5->ColCount;
Form1->StringGrid11->ColCount = col;
for(int j = start,p;j < ended+n;j++){
Form1->StringGrid11->Tag++;
tag = Form1->StringGrid11->Tag;
Form1->StringGrid11->RowCount = tag;
if(j < ended)
p = j;
else{
p = n1;
n1++;
}
//if(Form1->StringGrid5->Cells[0][p] == "")
// ShowMessage(p);
for(int k = 0;k < col;k++){
Form1->StringGrid11->Cells[k][tag-1] = Form1-
>StringGrid5->Cells[k][p];
}
}
e_id = Form1->StringGrid11->Tag;
Form1->StringGrid6->Cells[8][i] = s_id;
Form1->StringGrid6->Cells[9][i] = e_id;
}
}
rebooter(id2);
delete N2;
return 0;
}
void quarterEllipse(int type,int x1,int y1,int x2,int y2){
if(type == 0){
Form1->Image1->Canvas->MoveTo(x1,y1);
Form1->Image1->Canvas->LineTo(x2,y2);
}
else{
if(type!=3){
float xy[4][2];
if(type == 1){
if(x1<x2&&y1>y2){
xy[0][0] = 2*x1-x2;
xy[0][1] = y1;
xy[1][0] = x2;
xy[1][1] = 2*y2-y1;
xy[2][0] = x1;
xy[2][1] = y1;
xy[3][0] = x2;
xy[3][1] = y2;
}
else{
if(x1>x2&&y1<y2){
xy[0][0] = 2*x2-x1;
xy[0][1] = y2;
xy[1][0] = x1;
xy[1][1] = 2*y1-y2;
xy[2][0] = x2;
xy[2][1] = y2;
xy[3][0] = x1;
xy[3][1] = y1;
}
else{
if(x1>x2&&y1>y2){
xy[0][0] = 2*x1-x2;
xy[0][1] = y1;
xy[1][0] = x2;
xy[1][1] = 2*y2-y1;
xy[2][0] = x2;
xy[2][1] = y2;
xy[3][0] = x1;
xy[3][1] = y1;](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_73.png?v=1)
![}
else{
xy[0][0] = 2*x2-x1;
xy[0][1] = y2;
xy[1][0] = x1;
xy[1][1] = 2*y1-y2;
xy[2][0] = x1;
xy[2][1] = y1;
xy[3][0] = x2;
xy[3][1] = y2;
}
}
}
}
else{
if(x1<x2&&y1>y2){
xy[0][0] = 2*x2-x1;
xy[0][1] = y2;
xy[1][0] = x1;
xy[1][1] = 2*y1-y2;
xy[2][0] = x2;
xy[2][1] = y2;
xy[3][0] = x1;
xy[3][1] = y1;
}
else{
if(x1>x2&&y1<y2){
xy[0][0] = 2*x1-x2;
xy[0][1] = y1;
xy[1][0] = x2;
xy[1][1] = 2*y2-y1;
xy[2][0] = x1;
xy[2][1] = y1;
xy[3][0] = x2;
xy[3][1] = y2;
}
else{
if(x1>x2&&y1>y2){
xy[0][0] = 2*x2-x1;
xy[0][1] = y2;
xy[1][0] = x1;
xy[1][1] = 2*y1-y2;
xy[2][0] = x1;
xy[2][1] = y1;
xy[3][0] = x2;
xy[3][1] = y2;
}
else{
xy[0][0] = 2*x1-x2;
xy[0][1] = y1;
xy[1][0] = x2;
xy[1][1] = 2*y2-y1;
xy[2][0] = x2;
xy[2][1] = y2;
xy[3][0] = x1;
xy[3][1] = y1;
}
}
}
}
Form1->Image1->Canvas->Arc(xy[0][0],xy[0][1],xy[1][0],xy[1][1],xy[2][0],xy[2]
[1],xy[3][0],xy[3][1]);
Form1->Image1->Canvas->MoveTo(x2,y2);
}
}
}
void draughter(int zetX,int zetY){
int xy0,x1,y1,x2,y2,tag,first = 0,secnd,buffer;
tag = Form1->StringGrid1->Tag;
for(int i = 1;i < tag;i++){
if(i == 1){
buffer = i-1;
}
if(Form1->StringGrid1->Cells[1][i] == ""){
first = i-1;
secnd = buffer;
if(i+1 < tag)
buffer = i+1;
}
else{](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_74.png?v=1)
![if(i<tag&&Form1->StringGrid1->Cells[1][i-1]!=""){
first = i-1;
secnd = i;
}
else
continue;
}
xy0 = Form1->StringGrid1->Cells[0][first].ToInt();
x1 = Form1->StringGrid1->Cells[1][first].ToInt();
y1 = Form1->StringGrid1->Cells[2][first].ToInt();
x2 = Form1->StringGrid1->Cells[1][secnd].ToInt();
y2 = Form1->StringGrid1->Cells[2][secnd].ToInt();
x1 = x1 + zetX;
y1 = y1 + zetY;
x2 = x2 + zetX;
y2 = y2 + zetY;
quarterEllipse(xy0,x1,y1,x2,y2);
}
}
void draughter3D(int x1,int y1,int x2,int y2){
int x0,y0;
draughter(0,0);
Form1->Image1->Canvas->Pen->Style = psDash;
for(int i = 0;i < Form1->StringGrid1->RowCount;i++){
if(Form1->StringGrid1->Cells[1][i] != ""){
x0 = Form1->StringGrid1->Cells[1][i].ToInt();
y0 = Form1->StringGrid1->Cells[2][i].ToInt();
Form1->Image1->Canvas->MoveTo(x0,y0);
Form1->Image1->Canvas->LineTo(x0 + x2 - x1,y0 + y2 - y1);
}
}
draughter(x2-x1,y2-y1);
Form1->Image1->Canvas->Pen->Style = psSolid;
}
int writeToXLS(){
int col,row;
float x1,x2,y1,y2,z;
row = Form1->StringGrid4->RowCount;
stream = fopen("MKZ.txt","w+t");
for(int i = 0,n = 0;i < row;i++){
n = Form1->StringGrid4->Cells[0][i].ToInt();
fprintf(stream,"%i\t",n);
x1 = Form1->StringGrid4->Cells[1][i].ToDouble();
y1 = Form1->StringGrid4->Cells[2][i].ToDouble();
x2 = Form1->StringGrid4->Cells[3][i].ToDouble();
y2 = Form1->StringGrid4->Cells[4][i].ToDouble();
z = Form1->StringGrid4->Cells[5][i].ToDouble();
x1 = x1 + x2;
y1 = y1 + y2;
fprintf(stream,"%.3f\t",x1);
fprintf(stream,"%.3f\t",y1);
fprintf(stream,"%.3f\t",z);
fprintf(stream,"\n");
}
fclose(stream);
col = Form1->StringGrid3->ColCount;
row = Form1->StringGrid3->RowCount;
stream = fopen("MNZ.txt","w+t");
for(int i = 0;i < row;i++){
for(int j = 1,m,w;j < col;j++){
m = Form1->StringGrid3->Cells[j][i].ToInt();
w = Form1->StringGrid4->Cells[0][m].ToInt();
fprintf(stream,"%i\t",w);
}
fprintf(stream,"\n");
}
fclose(stream);
return 0;
}
int createrPolygon(int id){
int start,ended,tag = Form1->StringGrid6->RowCount;
int s,e,r,t,l,p;
Form1->StringGrid3->ColCount = 9;
Form1->StringGrid6->ColCount = 10;
for(int i = 0,k,m;i < tag;i++){
r = 0;
if(id == Form1->StringGrid6->Cells[0][i].ToInt()){
start = Form1->StringGrid6->Cells[1][i].ToInt();
ended = Form1->StringGrid6->Cells[2][i].ToInt();
m = Form1->StringGrid6->Cells[3][i].ToInt();](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_75.png?v=1)
![r = Form1->StringGrid6->Cells[4][i].ToInt();
l = Form1->StringGrid6->Cells[5][i].ToInt();
p = m*r;
Form1->StringGrid6->Cells[6][i] = Form1->StringGrid3->Tag;
s = (m+1)*(r+1);
for(int j = start,n = 0,q = 0,x = 0;j < ended-s;j++){
if(n != m){
if(x != p){
n++;
x++;
Form1->StringGrid3->Tag++;
k = Form1->StringGrid3->Tag;
Form1->StringGrid3->RowCount = k;
q = j;
Form1->StringGrid3->Cells[0][k-1] = k;
Form1->StringGrid3->Cells[1][k-1] = q;
Form1->StringGrid3->Cells[2][k-1] = q+1;
Form1->StringGrid3->Cells[3][k-1] = q+m+1;
Form1->StringGrid3->Cells[4][k-1] = q+m+2;
Form1->StringGrid3->Cells[5][k-1] = q+s;
Form1->StringGrid3->Cells[6][k-1] = q+1+s;
Form1->StringGrid3->Cells[7][k-1] = q+m+1+s;
Form1->StringGrid3->Cells[8][k-1] = q+m+2+s;
}
else{
if(j+m+1<ended){
j = j+m;
x = 0;
}
else
break;
}
}
else{
n = 0;
}
}
Form1->StringGrid6->Cells[7][i] = Form1->StringGrid3->Tag;
s = start;
ended = start + (m+1)*(r+1);
e = ended;
Form1->StringGrid5->ColCount = 4;
t = 1;
Form1->StringGrid6->Cells[8][i] = Form1->StringGrid5->Tag;
for(int j = s+1;s<e?j<e:j>=e;j=j+t){
for(int p = 0;p < l;p++){
Form1->StringGrid5->Tag++;
k = Form1->StringGrid5->Tag;
Form1->StringGrid5->RowCount = k;
Form1->StringGrid5->Cells[0][k-1] = j-t+p*(m+1)*(r+1);
Form1->StringGrid5->Cells[1][k-1] = j+p*(m+1)*(r+1);
Form1->StringGrid5->Cells[2][k-1] = j-t+
(p+1)*(m+1)*(r+1);
Form1->StringGrid5->Cells[3][k-1] = j+(p+1)*(m+1)*(r+1);
}
if(j-s == m)
t = m+1;
else{
if(j == ended-1){
t = -1;
e = e+s;
s = e-s;
e = e-s;
}
else{
if(ended-j == m+1)
t = -m-1;
}
}
}
Form1->StringGrid6->Cells[9][i] = Form1->StringGrid5->Tag;
}
}
return 0;
}
int oPolDr(int id){
int n,start,ended,row,col;
float x0,y0,x1,x2,y1,y2;
TPoint points[4];
n = Form1->StringGrid6->Cells[5][id].ToInt();](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_76.png?v=1)
![start = Form1->StringGrid6->Cells[6][id].ToInt();
ended = Form1->StringGrid6->Cells[7][id].ToInt();
row = (ended-start)/n+start;
col = 4;
for(int i = start;i < row;i++){
for(int j = 1,k;j <= col;j++){
k = Form1->StringGrid3->Cells[j][i].ToInt();
x1 = Form1->StringGrid4->Cells[1][k].ToDouble();
y1 = Form1->StringGrid4->Cells[2][k].ToDouble();
x2 = Form1->StringGrid4->Cells[3][k].ToDouble();
y2 = Form1->StringGrid4->Cells[4][k].ToDouble();
x0 = x1+x2;
y0 = y1+y2;
if(j == 3)
n = 3;
else{
if(j == 4)
n = 2;
else
n = j-1;
}
points[n] = Point(x0,y0);
}
Form1->Image1->Canvas->Polygon(points,3);
} /*
for(int i = start;i < row;i++){
for(int j = 1,k,yx;j <= col;j++){
k = Form1->StringGrid3->Cells[j][i].ToInt();
yx = Form1->StringGrid4->Cells[0][k].ToInt();
x1 = Form1->StringGrid4->Cells[1][k].ToDouble();
y1 = Form1->StringGrid4->Cells[2][k].ToDouble();
x2 = Form1->StringGrid4->Cells[3][k].ToDouble();
y2 = Form1->StringGrid4->Cells[4][k].ToDouble();
x0 = x1+x2;
y0 = y1+y2;
if(j == 3)
n = 3;
else{
if(j == 4)
n = 2;
else
n = j-1;
}
Form1->Image1->Canvas->TextOutA(x0-2,y0-4,yx);
}
} */
return 0;
}
int aPolDr(){
int row;
row = Form1->StringGrid6->RowCount;
for(int i = 0;i < row;i++)
oPolDr(i);
return 0;
}
int polygonDraughter(int id){
TPoint points[4];
int row,col,m,n,start,ended;
float x0,y0,x1,y1,x2,y2;
col = Form1->StringGrid5->ColCount;
start = Form1->StringGrid6->Cells[8][id].ToInt();
ended = Form1->StringGrid6->Cells[9][id].ToInt();
for(int i = start;i < ended;i++){
for(int j = 0;j < col;j++){
m = Form1->StringGrid5->Cells[j][i].ToInt();
x1 = Form1->StringGrid4->Cells[1][m].ToDouble();
y1 = Form1->StringGrid4->Cells[2][m].ToDouble();
x2 = Form1->StringGrid4->Cells[3][m].ToDouble();
y2 = Form1->StringGrid4->Cells[4][m].ToDouble();
x0 = x1+x2;
y0 = y1+y2;
if(j == 2)
n = 3;
else{
if(j == 3)
n = 2;
else
n = j;](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_77.png?v=1)
![}
points[n] = Point(x0,y0);
}
Form1->Image1->Canvas->Polygon(points,3);
}
return 0;
}
float *turXY0(int fst,int scd){
int f,s,lx,tur = 4;
float x0,y0,x1,x2,y1,y2,*txy;
f = fst;
s = scd;
lx = Form1->StringGrid1->Cells[0][f].ToInt();
x1 = Form1->StringGrid1->Cells[1][f].ToDouble();
y1 = Form1->StringGrid1->Cells[2][f].ToDouble();
x2 = Form1->StringGrid1->Cells[1][s].ToDouble();
y2 = Form1->StringGrid1->Cells[2][s].ToDouble();
if(x2>x1&&y2<y1||x2<x1&&y2>y1)
if(lx == 1)
tur = 4;
else
tur = 2;
else
if(x2>x1&&y2>y1||x2<x1&&y2<y1)
if(lx == 1)
tur = 3;
else
tur = 1;
if(x1<x2&&y1<y2||x1>x2&&y1<y2)
if(lx == 1){
x0 = x2;
y0 = y1;
}
else{
x0 = x1;
y0 = y2;
}
else
if(x1>x2&&y1>y2||x1<x2&&y1>y2)
if(lx == 1){
x0 = x1;
y0 = y2;
}
else{
x0 = x2;
y0 = y1;
}
txy = new float[3];
txy[0] = tur;
txy[1] = x0;
txy[2] = y0;
return txy;
}
int restangleMathMod(int z){
int m,n,k,l,t,x1,x2,y1,y2,M,N,pX,pY,tur = 4;
float length,lx,ly,alpha,x0,y0,**MK,**MN1,**MN2,xy[4][2];
m = Form1->Edit9->Text.ToInt();
n = Form1->Edit10->Text.ToInt();
l = Form1->Edit7->Text.ToInt();
M = m*n;
N = (m+1)*(n+1);
MK = new float*[N];
if(z == 0)
for(int i = 0;i < 4;i++){
x1 = Form1->StringGrid2->Cells[0][i].ToInt();
xy[i][0] = Form1->StringGrid1->Cells[1][x1].ToDouble();
xy[i][1] = Form1->StringGrid1->Cells[2][x1].ToDouble();
}
else{
for(int i = 0;i < 4;i++){
xy[i][0] = Form1->StringGrid2->Cells[0][i].ToDouble();
xy[i][1] = Form1->StringGrid2->Cells[1][i].ToDouble();
}
}
MN1 = new float*[n+1];
MN2 = new float*[n+1];
for(int i = 0;i <= n;i++){
MN1[i] = new float[2];
MN2[i] = new float[2];
MN1[i][0] = xy[0][0] + i*(xy[3][0] - xy[0][0])/n;](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_78.png?v=1)
![MN1[i][1] = xy[0][1] + i*(xy[3][1] - xy[0][1])/n;
MN2[i][0] = xy[1][0] + i*(xy[2][0] - xy[1][0])/n;
MN2[i][1] = xy[1][1] + i*(xy[2][1] - xy[1][1])/n;
for(int j = 0;j <= m;j++){
MK[i*(m+1) + j] = new float[2];
MK[i*(m+1) + j][0] = MN1[i][0] + j*(MN2[i][0] - MN1[i][0])/m;
MK[i*(m+1) + j][1] = MN1[i][1] + j*(MN2[i][1] - MN1[i][1])/m;
}
}
tur = z;
if(z != 0){
x0 = Form1->StringGrid2->Cells[0][3].ToDouble();
y0 = Form1->StringGrid2->Cells[1][3].ToDouble();
for(int i = 0;i < N;i++){
if(tur == 1||tur == 2)
MK[i][1] = 2*y0 - MK[i][1];
if(tur == 2||tur == 3)
MK[i][0] = 2*x0 - MK[i][0];
}
}
Form1->StringGrid6->Tag++;
M = Form1->StringGrid6->Tag;
Form1->StringGrid6->ColCount = 5;
Form1->StringGrid6->RowCount = M;
Form1->StringGrid6->Cells[0][M-1] = M;
Form1->StringGrid6->Cells[1][M-1] = Form1->StringGrid4->Tag;
Form1->StringGrid6->Cells[3][M-1] = m;
Form1->StringGrid6->Cells[4][M-1] = n;
Form1->StringGrid6->Cells[5][M-1] = l;
Form1->StringGrid4->ColCount = 6;
x2 = 0;
pX = Form1->Edit3->Text.ToInt();
pY = Form1->Edit4->Text.ToInt();
x0 = Form1->Edit8->Text.ToDouble();
y0 = Form1->Edit6->Text.ToDouble();
alpha = Form1->Edit5->Text.ToDouble();
ly = Form1->Edit2->Text.ToDouble();
for(int p = 0;p <= l;p++){
for(int i = 0,j;i < N;i++){
if(alpha != 0)
lx = sqrt((MK[i][0]+pX-x0)*(MK[i][0]+pX-x0)+(MK[i][1]+pY-
y0)*(MK[i][1]+pY-y0))*cos(alpha)/sin(alpha);
else
lx = 0;
length = ly + abs(lx);
x2++;
Form1->StringGrid4->Tag++;
j = Form1->StringGrid4->Tag;
Form1->StringGrid4->RowCount = j;
Form1->StringGrid4->Cells[0][j-1] = x2;
Form1->StringGrid4->Cells[1][j-1] = MK[i][0] + p*pX/l;
Form1->StringGrid4->Cells[2][j-1] = MK[i][1] + p*pY/l;
Form1->StringGrid4->Cells[3][j-1] = p*pX/l;
Form1->StringGrid4->Cells[4][j-1] = p*pY/l;
Form1->StringGrid4->Cells[5][j-1] = p*length/l;
}
}
Form1->StringGrid6->Cells[2][M-1] = Form1->StringGrid4->Tag;
createrPolygon(M);
polygonDraughter(M-1);
writeToXLS();
for(int i = 0;i <= n;i++){
delete MN1[i];
delete MN2[i];
}
delete MN1;
delete MN2;
for(int i = 0;i < N;i++){
delete MK[i];
}
delete MK;
return 0;
}
int restangleEllipseMathMod(){
int elmk,tugk,i,j,k,m,n,n1,n2,pX,pY,l,tur = 4;
float
length,lx,ly,alpha,alfa,kA,kB,a,b,r,x0,y0,x1,y1,x2,y2,x3,y3,**bkxy,**array0,**array1;
n1 = Form1->Edit1->Text.ToInt();
n2 = Form1->Edit9->Text.ToInt();
m = Form1->Edit10->Text.ToInt();](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_79.png?v=1)
![l = Form1->Edit7->Text.ToInt();
n = n1 + n2;
elmk = (n1 + n2)*m;
tugk = (n1 + n2 + 1)*(m + 1);
array0 = new float*[n1+n2+1];
array1 = new float*[n1+n2+1];
i = Form1->StringGrid2->Cells[0][1].ToInt();
j = Form1->StringGrid2->Cells[0][2].ToInt();
k = Form1->StringGrid2->Cells[0][3].ToInt();
x1 = Form1->StringGrid1->Cells[1][i].ToInt();
y1 = Form1->StringGrid1->Cells[2][i].ToInt();
x2 = Form1->StringGrid1->Cells[1][j].ToInt();
y2 = Form1->StringGrid1->Cells[2][j].ToInt();
x0 = Form1->StringGrid1->Cells[1][k].ToInt();
y0 = Form1->StringGrid1->Cells[2][k].ToInt();
kB = sqrt((x1-x2)*(x1-x2) + (y1-y2)*(y1-y2));
kA = sqrt((x0-x2)*(x0-x2) + (y0-y2)*(y0-y2));
i = Form1->StringGrid2->Cells[0][0].ToInt();
j = Form1->StringGrid2->Cells[0][4].ToInt();
x1 = Form1->StringGrid1->Cells[1][i].ToInt();
y1 = Form1->StringGrid1->Cells[2][i].ToInt();
x2 = Form1->StringGrid1->Cells[1][j].ToInt();
y2 = Form1->StringGrid1->Cells[2][j].ToInt();
x0 = x2;
y0 = y1;
if((x1-x2)>0&&(y1-y2) < 0)
tur = 4;
else{
if((x1-x2)<0&&(y1-y2)<0)
tur = 3;
else{
if((x1-x2)<0&&(y1-y2)>0)
tur = 2;
else
tur = 1;
}
}
a = abs(x1 - x2);
b = abs(y1 - y2);
bkxy = new float*[tugk];
for(i = 0;i < tugk;i++)
bkxy[i] = new float[2];
for(int i = 0;i <= n1+n2;i++){
array1[i] = new float[2];
}
alfa = 0;
array1[0][0] = kA + x0;
array1[0][1] = kA*sin(alfa)/cos(alfa) + y0;
alfa = atan(kB/kA);
array1[n1][0] = kA + x0;
array1[n1][1] = kA*sin(alfa)/cos(alfa) + y0;
alfa = atan(kB/kA) + atan(kA/kB);
array1[n1+n2][0] = kB*cos(alfa)/sin(alfa) + x0;
array1[n1+n2][1] = kB + y0;
for(int i = 1,j = 1;i < n1+n2;i++){
if(i < n1){
x1 = array1[0][0];
y1 = array1[0][1];
x2 = array1[n1][0];
y2 = array1[n1][1];
n = n1;
}
else{
x1 = array1[n1][0];
y1 = array1[n1][1];
x2 = array1[n1+n2][0];
y2 = array1[n1+n2][1];
n = n2;
}
array1[i][0] = x1 + j*(x2-x1)/n;
array1[i][1] = y1 + j*(y2-y1)/n;
j++;
if(j == n)
j = 0;
}
for(i = 0,k = 0;i <= n1+n2;i++){
array0[i] = new float[2];
if(i < n1){](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_80.png?v=1)
![alfa = i*atan(kB/kA)/n1;
}
else{
alfa = atan(kB/kA) + (i-n1)*atan(kA/kB)/n2;
}
if(i != n1+n2){
r = a*b/((cos(alfa)*sqrt(b*b + a*a*tan(alfa)*tan(alfa))));
}
else{
r = b;
}
array0[i][0] = r*cos(alfa) + x0;
array0[i][1] = r*sin(alfa) + y0;
x1 = array0[i][0];
y1 = array0[i][1];
x2 = array1[i][0];
y2 = array1[i][1];
for(j = 0;j <= m;j++,k++){
bkxy[i*(m+1)+j][0] = x1 + j*(x2-x1)/m;
bkxy[i*(m+1)+j][1] = y1 + j*(y2-y1)/m;
}
}
for(i = 0;i < tugk;i++){
if(tur == 1||tur == 2)
bkxy[i][1] = 2*y0 - bkxy[i][1];
if(tur == 2||tur == 3)
bkxy[i][0] = 2*x0 - bkxy[i][0];
}
n = n1+n2;
Form1->StringGrid6->Tag++;
elmk = Form1->StringGrid6->Tag;
Form1->StringGrid6->ColCount = 6;
Form1->StringGrid6->RowCount = elmk;
Form1->StringGrid6->Cells[0][elmk-1] = elmk;
Form1->StringGrid6->Cells[1][elmk-1] = Form1->StringGrid4->Tag;
Form1->StringGrid6->Cells[3][elmk-1] = m;
Form1->StringGrid6->Cells[4][elmk-1] = n;
Form1->StringGrid6->Cells[5][elmk-1] = l;
pX = Form1->Edit3->Text.ToInt();
pY = Form1->Edit4->Text.ToInt();
x0 = Form1->Edit8->Text.ToDouble();
y0 = Form1->Edit6->Text.ToDouble();
alpha = Form1->Edit5->Text.ToDouble();
ly = Form1->Edit2->Text.ToDouble();
Form1->StringGrid4->ColCount = 6;
Form1->StringGrid4->RowCount = Form1->StringGrid4->Tag;
x2 = 0;
for(int p = 0;p <= l;p++){
for(int i = 0,j;i < tugk;i++){
if(alpha != 0)
lx = sqrt((bkxy[i][0]+pX-x0)*(bkxy[i][0]+pX-x0)+(bkxy[i][1]+pY-
y0)*(bkxy[i][1]+pY-y0))*cos(alpha)/sin(alpha);
else
lx = 0;
length = ly + abs(lx);
x2++;
Form1->StringGrid4->Tag++;
j = Form1->StringGrid4->Tag;
Form1->StringGrid4->RowCount = j;
Form1->StringGrid4->Cells[0][j-1] = x2;
Form1->StringGrid4->Cells[1][j-1] = bkxy[i][0] + p*pX/l;
Form1->StringGrid4->Cells[2][j-1] = bkxy[i][1] + p*pY/l;
Form1->StringGrid4->Cells[3][j-1] = p*pX/l;
Form1->StringGrid4->Cells[4][j-1] = p*pY/l;
Form1->StringGrid4->Cells[5][j-1] = p*length/l;
}
}
Form1->Image1->Canvas->Pen->Color = clWhite;
Form1->Image1->Canvas->Pen->Style = psSolid;
Form1->StringGrid6->Cells[2][elmk-1] = Form1->StringGrid4->Tag;
createrPolygon(elmk);
polygonDraughter(elmk-1);
for(int i = 0;i <= n;i++){
delete array0[i];
delete array1[i];
}
delete array0;
delete array1;](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_81.png?v=1)
![for(int i = 0;i < tugk;i++)
delete bkxy[i];
delete bkxy;
return 0;
}
int ellipseMathMod(){
int i,j,k,l,n,n1,n2,m,t,elmk,tugk,pX,pY,tur = 4;
float x0,y0,r1,r2,a,b,*ai,r,R,tx,alfa1,x1,y1,x2,y2,x3,y3,x4,y4,s1;
float lx,ly,alpha,length,**bkxy;
i = Form1->StringGrid2->Cells[0][0].ToInt();
j = Form1->StringGrid2->Cells[0][1].ToInt();
k = Form1->StringGrid2->Cells[0][2].ToInt();
l = Form1->StringGrid2->Cells[0][3].ToInt();
x1 = Form1->StringGrid1->Cells[1][i].ToInt();
y1 = Form1->StringGrid1->Cells[2][i].ToInt();
x2 = Form1->StringGrid1->Cells[1][j].ToInt();
y2 = Form1->StringGrid1->Cells[2][j].ToInt();
x3 = Form1->StringGrid1->Cells[1][k].ToInt();
y3 = Form1->StringGrid1->Cells[2][k].ToInt();
x4 = Form1->StringGrid1->Cells[1][l].ToInt();
y4 = Form1->StringGrid1->Cells[2][l].ToInt();
tx = sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));
x0 = x4;
y0 = y1;
if((x1-x4)>0&&(y1-y4)<0)
tur = 4;
else{
if((x1-x4)<0&&(y1-y4)<0)
tur = 3;
else{
if((x1-x4)<0&&(y1-y4)>0)
tur = 2;
else
tur = 1;
}
}
r1 = sqrt((x1-x0)*(x1-x0)+(y1-y0)*(y1-y0));
r2 = sqrt((x4-x0)*(x4-x0)+(y4-y0)*(y4-y0));
a = sqrt((x2-x0)*(x2-x0)+(y2-y0)*(y2-y0));
b = sqrt((x3-x0)*(x3-x0)+(y3-y0)*(y3-y0));
n1 = Form1->Edit1->Text.ToInt();
n2 = Form1->Edit9->Text.ToInt();
m = Form1->Edit10->Text.ToInt();
t = Form1->Edit7->Text.ToInt();
n = n1 + n2;
elmk = m*(n1 + n2);
tugk = (m + 1)*(n1 + n2 + 1);
bkxy = new float*[m+1];
for(i = 0;i<=m;i++){
bkxy[i] = new float[2];
bkxy[i][0] = x1 + i*(x2-x1)/m;
bkxy[i][1] = y1 + i*(y2-y1)/m;
}
ai = new float[m];
for(i = 0;i<m;i++){
ai[i] = sqrt((bkxy[i+1][0] - bkxy[i][0])*(bkxy[i+1][0] - bkxy[i][0]) + (bkxy[i+1]
[1] - bkxy[i][1])*(bkxy[i+1][1] - bkxy[i][1]));
}
bkxy = new float*[tugk];
for(i = 0;i < tugk;i++)
bkxy[i] = new float[2];
for(i = 0;i<=n1+n2;i++){
s1 = 0;
if(i < n1){
alfa1 = i*atan(b/a)/n1;
}
else{
alfa1 = atan(b/a)+(i-n1)*atan(a/b)/n2;
}
if(i!=n1+n2){
r = r1*r2/(cos(alfa1)*sqrt(r2*r2 + r1*r1*tan(alfa1)*tan(alfa1)));
R = a*b/(cos(alfa1)*sqrt(b*b + a*a*tan(alfa1)*tan(alfa1)));
}
else{
r = r2;
R = b;
}
for(j = 0;j <= m;j++){
if(j>0)
s1+=ai[j-1];](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_82.png?v=1)
![if(j == 0){
bkxy[i*(m+1)+j][0] = r*cos(alfa1) + x0;
bkxy[i*(m+1)+j][1] = r*sin(alfa1) + y0;
}
else{
bkxy[i*(m+1)+j][0] = ((R - r)*s1/tx + r)*cos(alfa1) + x0;
bkxy[i*(m+1)+j][1] = ((R - r)*s1/tx + r)*sin(alfa1) + y0;
}
}
}
for(i = 0;i < tugk;i++){
if(tur == 1||tur == 2)
bkxy[i][1] = 2*y0 - bkxy[i][1];
if(tur == 2||tur == 3)
bkxy[i][0] = 2*x0 - bkxy[i][0];
}
Form1->StringGrid6->Tag++;
elmk = Form1->StringGrid6->Tag;
Form1->StringGrid6->ColCount = 6;
Form1->StringGrid6->RowCount = elmk;
Form1->StringGrid6->Cells[0][elmk-1] = elmk;
Form1->StringGrid6->Cells[1][elmk-1] = Form1->StringGrid4->Tag;
Form1->StringGrid6->Cells[3][elmk-1] = m;
Form1->StringGrid6->Cells[4][elmk-1] = n;
Form1->StringGrid6->Cells[5][elmk-1] = t;
pX = Form1->Edit3->Text.ToInt();
pY = Form1->Edit4->Text.ToInt();
x0 = Form1->Edit8->Text.ToDouble();
y0 = Form1->Edit6->Text.ToDouble();
alpha = Form1->Edit5->Text.ToDouble();
ly = Form1->Edit2->Text.ToDouble();
Form1->StringGrid4->ColCount = 6;
Form1->StringGrid4->RowCount = Form1->StringGrid4->Tag;
x2 = 0;
for(int p = 0;p <= t;p++){
for(int i = 0,j;i < tugk;i++){
if(alpha != 0)
lx = sqrt((bkxy[i][0]+pX-x0)*(bkxy[i][0]+pX-x0)+(bkxy[i][1]+pY-
y0)*(bkxy[i][1]+pY-y0))*cos(alpha)/sin(alpha);
else
lx = 0;
length = ly + abs(lx);
x2++;
Form1->StringGrid4->Tag++;
j = Form1->StringGrid4->Tag;
Form1->StringGrid4->RowCount = j;
Form1->StringGrid4->Cells[0][j-1] = x2;
Form1->StringGrid4->Cells[1][j-1] = bkxy[i][0] + p*pX/t;
Form1->StringGrid4->Cells[2][j-1] = bkxy[i][1] + p*pY/t;
Form1->StringGrid4->Cells[3][j-1] = p*pX/t;
Form1->StringGrid4->Cells[4][j-1] = p*pY/t;
Form1->StringGrid4->Cells[5][j-1] = p*length/t;
}
}
Form1->StringGrid6->Cells[2][elmk-1] = Form1->StringGrid4->Tag;
createrPolygon(elmk);
polygonDraughter(elmk-1);
for(int i = 0;i < tugk;i++)
delete bkxy[i];
delete bkxy;
return 0;
}
int sphereMathMod(){
int f,s,n,n1,n2,m,l,elmk,tugk,pX,pY,tur = 4;
float lx,ly,r,alpha,x0,y0,x1,x2,y1,y2,r1,r2,*txy;
float **bkxy,**ai,**bi,**ci,length;
n = Form1->StringGrid1->RowCount;
f = Form1->StringGrid2->Cells[0][0].ToInt();
s = Form1->StringGrid2->Cells[0][1].ToInt();
if(f > s){
f = f + s;
s = f - s;
f = f - s;
}
x1 = Form1->StringGrid1->Cells[1][f].ToDouble();
y1 = Form1->StringGrid1->Cells[2][f].ToDouble();
x2 = Form1->StringGrid1->Cells[1][s].ToDouble();
y2 = Form1->StringGrid1->Cells[2][s].ToDouble();
if(f == 0&&s == n-1)
txy = turXY0(s,f);](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_83.png?v=1)
![else
txy = turXY0(f,s);
tur = txy[0];
x0 = txy[1];
y0 = txy[2];
delete txy;
if(tur != 4){
x1 = x1 + x2;
x2 = x1 - x2;
x1 = x1 - x2;
y1 = y1 + y2;
y2 = y1 - y2;
y1 = y1 - y2;
}
r1 = sqrt((x1-x0)*(x1-x0)+(y1-y0)*(y1-y0));
r2 = sqrt((x2-x0)*(x2-x0)+(y2-x0)*(y2-x0));
n1 = Form1->Edit1->Text.ToInt();
n2 = Form1->Edit9->Text.ToInt();
m = Form1->Edit10->Text.ToInt();
l = Form1->Edit7->Text.ToInt();
n = n1 + n2;
elmk = m*n;
tugk = (m + 1)*(n + 1);
ai = new float*[n+1];
bi = new float*[n+1];
ci = new float*[n+1];
bkxy = new float*[tugk];
for(int i = 0;i <= n;i++){
ai[i] = new float[2];
bi[i] = new float[2];
ci[i] = new float[2];
}
for(int i = 0;i <= n;i++){
if(i < n1)
alpha = i*atan(r1/r2)/n1;
else
alpha = atan(r1/r2)+(i-n1)*atan(r2/r1)/n2;
if(i != n)
r = r1*r2/((cos(alpha)*sqrt(r1*r1 + r2*r2*tan(alpha)*tan(alpha))));
else
r = r1;
bi[i][0] = r*cos(alpha) + x0;
bi[i][1] = r*sin(alpha) + y0;
}
ci[0][0] = (bi[0][0]+x0)/2;
ci[0][1] = (bi[0][1]+y0)/2;
ci[n][0] = (bi[n][0]+x0)/2;
ci[n][1] = (bi[n][1]+y0)/2;
ci[n1][0] = ci[0][0];
ci[n1][1] = ci[n][1];
Form1->StringGrid2->ColCount = 2;
Form1->StringGrid2->RowCount = 4;
Form1->StringGrid2->Cells[0][0] = ci[0][0];
Form1->StringGrid2->Cells[1][0] = ci[0][1];
Form1->StringGrid2->Cells[0][1] = ci[n1][0];
Form1->StringGrid2->Cells[1][1] = ci[n1][1];
Form1->StringGrid2->Cells[0][2] = ci[n][0];
Form1->StringGrid2->Cells[1][2] = ci[n][1];
Form1->StringGrid2->Cells[0][3] = x0;
Form1->StringGrid2->Cells[1][3] = y0;
Form1->Edit9->Text = n1;
Form1->Edit10->Text = n2;
for(int i = 0,k;i < 2;i++){
if(i == 0)
k = n1;
else
k = n2;
for(int j = 0;j <= k;j++){
ai[i*n1+j][0] = ci[i*n1][0]+j*(ci[i*n1+k][0]-ci[i*n1][0])/k;
ai[i*n1+j][1] = ci[i*n1][1]+j*(ci[i*n1+k][1]-ci[i*n1][1])/k;
for(int q = 0;q <= m;q++){
bkxy[(i*n1+j)*(m+1)+q] = new float[2];
bkxy[(i*n1+j)*(m+1)+q][0] = ai[i*n1+j][0]+q*(bi[i*n1+j][0]-
ai[i*n1+j][0])/m;
bkxy[(i*n1+j)*(m+1)+q][1] = ai[i*n1+j][1]+q*(bi[i*n1+j][1]-
ai[i*n1+j][1])/m;
}
}
}
for(int i = 0;i < tugk;i++){](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_84.png?v=1)
![if(tur == 1||tur == 2)
bkxy[i][1] = 2*y0 - bkxy[i][1];
if(tur == 2||tur == 3)
bkxy[i][0] = 2*x0 - bkxy[i][0];
}
Form1->StringGrid6->Tag++;
elmk = Form1->StringGrid6->Tag;
Form1->StringGrid6->ColCount = 6;
Form1->StringGrid6->RowCount = elmk;
Form1->StringGrid6->Cells[0][elmk-1] = elmk;
Form1->StringGrid6->Cells[1][elmk-1] = Form1->StringGrid4->Tag;
Form1->StringGrid6->Cells[3][elmk-1] = m;
Form1->StringGrid6->Cells[4][elmk-1] = n;
Form1->StringGrid6->Cells[5][elmk-1] = l;
pX = Form1->Edit3->Text.ToInt();
pY = Form1->Edit4->Text.ToInt();
x0 = Form1->Edit8->Text.ToDouble();
y0 = Form1->Edit6->Text.ToDouble();
alpha = Form1->Edit5->Text.ToDouble();
ly = Form1->Edit2->Text.ToDouble();
Form1->StringGrid4->ColCount = 6;
Form1->StringGrid4->RowCount = Form1->StringGrid4->Tag;
x2 = 0;
for(int p = 0;p <= l;p++){
for(int i = 0,j;i < tugk;i++){
if(alpha != 0)
lx = sqrt((bkxy[i][0]+pX-x0)*(bkxy[i][0]+pX-x0)+(bkxy[i][1]+pY-
y0)*(bkxy[i][1]+pY-y0))*cos(alpha)/sin(alpha);
else
lx = 0;
length = ly + abs(lx);
x2++;
Form1->StringGrid4->Tag++;
j = Form1->StringGrid4->Tag;
Form1->StringGrid4->RowCount = j;
Form1->StringGrid4->Cells[0][j-1] = x2;
Form1->StringGrid4->Cells[1][j-1] = bkxy[i][0] + p*pX/l;
Form1->StringGrid4->Cells[2][j-1] = bkxy[i][1] + p*pY/l;
Form1->StringGrid4->Cells[3][j-1] = p*pX/l;
Form1->StringGrid4->Cells[4][j-1] = p*pY/l;
Form1->StringGrid4->Cells[5][j-1] = p*length/l;
}
}
Form1->StringGrid6->Cells[2][elmk-1] = Form1->StringGrid4->Tag;
createrPolygon(elmk);
polygonDraughter(elmk-1);
restangleMathMod(tur);
//comparer(elmk-1,elmk);
//hangerArea(elmk-1,elmk);
for(int i = 0;i <= n;i++){
delete ai[i];
delete bi[i];
delete ci[i];
}
writeToXLS();
delete ai;
delete bi;
delete ci;
for(int i = 0;i < tugk;i++)
delete bkxy[i];
delete bkxy;
delete txy;
return 0;
}
void mouseCoordinate(int X,int Y){
int w,h;
w = Form1->Image1->Width;
h = Form1->Image1->Height;
Form1->Image1->Canvas->Pen->Color = clGray;
Form1->Image1->Canvas->MoveTo(X,0);
Form1->Image1->Canvas->LineTo(X,h);
Form1->Image1->Canvas->MoveTo(0,Y);
Form1->Image1->Canvas->LineTo(w,Y);
Form1->Image1->Canvas->Pen->Color = clWhite;
}
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
int x1,y1,x2,y2,tag = this->StringGrid1->Tag;
this->Label2->Caption = X;](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_85.png?v=1)
![this->Label4->Caption = Y;
if(switcher){
if(tag > 0&&this->StringGrid1->Cells[1][tag-1] != ""){
x1 = this->StringGrid1->Cells[1][tag-1].ToInt();
y1 = this->StringGrid1->Cells[2][tag-1].ToInt();
liner(25);
mouseCoordinate(X,Y);
miniEllipses();
if(tag > 1)
draughter(0,0);
quarterEllipse(xy,x1,y1,X,Y);
this->StringGrid1->Cells[0][tag-1] = xy;
}
}
if(button3D){
int rc,tag = this->StringGrid8->Tag;
float length;
if(tag > 0&&tag != 3){
liner(25);
miniEllipses();
rc = this->StringGrid8->Cells[0][tag-1].ToInt();
x1 = this->StringGrid1->Cells[1][rc].ToInt();
y1 = this->StringGrid1->Cells[2][rc].ToInt();
draughter3D(x1,y1,X,Y);
if(tag == 1){
length = sqrt((X-x1)*(X-x1)+(Y-y1)*(Y-y1));
this->Edit2->Text = length;
}
else{
if(tag == 2){
this->Edit3->Text = X-x1;
this->Edit4->Text = Y-y1;
}
}
}
}
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
xy = 0;
switcher = true;
button3D = false;
}
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
int tag;
if(switcher){
tag = this->StringGrid1->Tag;
if(tag > 1&&this->StringGrid1->Cells[1][tag-2] == ""||tag>1&&this->StringGrid1-
>Cells[0][tag-2]==3||tag == 1){
xs = this->StringGrid1->Cells[1][tag-1].ToInt();
ys = this->StringGrid1->Cells[2][tag-1].ToInt();
}
if(X>=(xs-4)&&X<=(xs+4)&&Y>=(ys-4)&&Y<=(ys+4)&&tag>1){
Form1->Image1->Canvas->LineTo(xs,ys);
Form1->StringGrid1->Tag++;
Form1->StringGrid1->Cells[0][tag-1] = xy;
}
else{
this->StringGrid1->Tag++;
tag = this->StringGrid1->Tag;
this->StringGrid1->ColCount = 3;
this->StringGrid1->RowCount = tag;
this->StringGrid1->Cells[1][tag-1] = X;
this->StringGrid1->Cells[2][tag-1] = Y;
if(tag>=2){
this->StringGrid1->Cells[0][tag-2] = xy;
}
else
this->StringGrid1->Cells[0][tag-1] = xy;
}
}
if(button3D){
int k,x0,y0,w;
bool scanner = false;
this->StringGrid8->ColCount = 2;](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_86.png?v=1)
![for(int i = 0;i < this->StringGrid1->RowCount;i++){
if(this->StringGrid1->Cells[1][i] != ""){
x0 = this->StringGrid1->Cells[1][i].ToInt();
y0 = this->StringGrid1->Cells[2][i].ToInt();
if(X>=(x0-4)&&X<=(x0+4)&&Y>=(y0-4)&&Y<=(y0+4)){
scanner = true;
w = i;
}
}
}
if(scanner){
x0 = this->StringGrid1->Cells[1][w].ToInt();
y0 = this->StringGrid1->Cells[2][w].ToInt();
this->StringGrid8->Tag = this->StringGrid8->RowCount;
k = this->StringGrid8->Tag;
this->StringGrid8->Cells[0][k-1] = w;
this->StringGrid8->Cells[1][k-1] = X-x0;
this->StringGrid8->Cells[2][k-1] = Y-y0;
}
else{
this->StringGrid8->Tag = this->StringGrid8->RowCount;
k = this->StringGrid8->Tag;
if(k == 3){
this->Edit8->Text = X;
this->Edit6->Text = Y;
this->StringGrid8->Cells[0][k-1] = this->Edit8->Text;
this->StringGrid8->Cells[1][k-1] = this->Edit6->Text;
this->StringGrid8->Cells[2][k-1] = this->Edit5->Text;
}
else
button3D = false;
}
}
if(!mathModSw){
int x1,y1;
bool filtr = true;
this->StringGrid2->ColCount = 1;
for(int i = 0;i < this->StringGrid1->Tag;i++){
if(this->StringGrid1->Cells[1][i] != ""){
x1 = this->StringGrid1->Cells[1][i].ToInt();
y1 = this->StringGrid1->Cells[2][i].ToInt();
if(X>=(x1-4)&&X<=(x1+4)&&Y>=(y1-4)&&Y<=(y1+4)){
for(int j = 0;j < this->GroupBox1->Tag;j++)
if(this->StringGrid2->Cells[0][j].ToInt() == i)
filtr = false;
if(filtr){
this->GroupBox1->Tag++;
tag = this->GroupBox1->Tag;
this->StringGrid2->RowCount = tag;
this->Label15->Caption = tag;
this->StringGrid2->Cells[0][tag-1] = i;
}
break;
}
}
}
}
if(this->StringGrid8->RowCount == 3){
this->Edit8->Text = X;
this->Edit6->Text = Y;
}
}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
mathModSw = false;
switcher = false;
this->GroupBox1->Show();
this->GroupBox1->Tag = 0;
this->GroupBox1->Caption = "Restangle";
this->Button2->Tag++;
this->Button3->Tag = 0;
this->Button4->Tag = 0;
this->Button11->Tag = 0;
this->Label5->Hide();
this->Edit1->Hide();
this->Label14->Caption = "n";
this->Label15->Caption = this->GroupBox1->Tag;
if(this->StringGrid8->Tag == 0){
this->Label22->Hide();](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_87.png?v=1)
![this->Button12->Tag++;
}
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
int tag;
tag = this->Button12->Tag;
if(tag > 0){
Timer1->Enabled = false;
openGL(0);
Timer1->Enabled = true;
}
}
void __fastcall TForm1::Button13Click(TObject *Sender)
{
xy = 3;
switcher = true;
button3D = false;
}
void selectedItem(int si){
int s,e,col;
String ss,s0,s1 = "Sohaning N tugun nuqtalar soni -> ";
String sn = "\n",s2,s3 = "Sohaning M elementlar soni -> ";
s = Form1->StringGrid6->Cells[1][si].ToInt();
e = Form1->StringGrid6->Cells[2][si].ToInt();
Form1->StringGrid12->ColCount = 4;
Form1->StringGrid12->RowCount = e-s;
s0 = e-s;
for(int i = s;i < e;i++){
Form1->StringGrid12->Cells[0][i-s] = Form1->StringGrid4->Cells[0][i];
Form1->StringGrid12->Cells[1][i-s] = Form1->StringGrid4->Cells[1][i];
Form1->StringGrid12->Cells[2][i-s] = Form1->StringGrid4->Cells[2][i];
Form1->StringGrid12->Cells[3][i-s] = Form1->StringGrid4->Cells[5][i];
}
s = Form1->StringGrid6->Cells[6][si].ToInt();
e = Form1->StringGrid6->Cells[7][si].ToInt();
col = Form1->StringGrid3->ColCount;
Form1->StringGrid13->ColCount = col-1;
Form1->StringGrid13->RowCount = e-s;
s2 = e-s;
for(int i = s;i < e;i++)
for(int j = 1,x;j < col;j++){
x = Form1->StringGrid3->Cells[j][i].ToInt();
Form1->StringGrid13->Cells[j-1][i-s] = Form1->StringGrid4->Cells[0][x];
}
ss = s1 + s0 + sn + s3 + s2;
Form1->Memo1->Text = ss;
}
void __fastcall TForm1::Button14Click(TObject *Sender)
{
int row,si = 0;
String s0,s1,s2 = "- chi soha";
row = this->StringGrid6->Tag;
for(int i = 0,x;i < row;i++){
x = this->StringGrid6->Cells[0][i].ToInt();
s1 = x;
s0 = s1 + ' ' + s2;
this->ListBox3->Items->Add(s0);
}
this->ListBox3->ItemIndex = 0;
selectedItem(si);
this->Image1->Hide();
this->Panel1->Hide();
this->Width = 831;
this->Panel2->Show();
}
void __fastcall TForm1::Button15Click(TObject *Sender)
{
this->Image1->Show();
this->Panel1->Show();
this->Width = 1232;
this->Panel2->Hide();
}
void __fastcall TForm1::Button16Click(TObject *Sender)](https://docx.uz/documents/fcf0078a-52a6-4eb6-9cce-0453b9c25214/page_92.png?v=1)
-
Похожие документы
- Zamonaviy axborotlarni himoyalash usullari va vositalari. antivirus dasturlari va ular bilan ishlash
- dev C++ dasturi mihitida ishlash
- ikki o‘zgaruvchining chiziqli diofant tenglamalarni yechish algoritmi foydalanilgan adabiyotlar
- “Dasturlash asoslari” fanini pedagogik va axborot texnologiyalari yordamida o‘qitish metodikasi
- “Programmalash asoslari” fanidan “Sayohat agentligi” faoliyatini baholash uchun dasturiy ilova yaratish