Форум программистов, компьютерный форум CyberForum.ru

Рекурсивное разбиение области - C++

Восстановить пароль Регистрация
 
bobik
Сообщений: n/a
24.09.2012, 19:30     Рекурсивное разбиение области #1
Помогите найти ошибку пожалуйста.
Задание-разбить прямоугольную область на правильные N-угольники.
Вся имеющяяся теория у меня:
Методы визуал.doc - https://docs.google.com/open?id=0B5G...041YjB2V1FySk0
вот код С++ на Борланд Билдере
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
#include <vcl.h>
#pragma hdrstop
#include "as.h"
 #include <math.h>
#include <iostream.h>
#pragma package(smart_init)
#pragma resource "*.dfm"
using namespace std;
struct MyPoint {double x,y;};
double X1,Y1,X2,Y2;
double m,R,Xc,Yc,n;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
 
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
 
 n=StrToInt(Edit1->Text);
 
 
X1=StrToInt(Edit2->Text);
Y1=StrToInt(Edit3->Text);
X2=StrToInt(Edit4->Text);
Y2=StrToInt(Edit5->Text);
Xc=X1+((X2-X1)/2);
Yc=Y1+((Y2-Y1)/2);
R=(((X2-X1)/2)<((Y2-Y1)/2))?(( X2-X1)/2 ) : ( (Y2-Y1 )/2);
 
double j=1;
m=10;
 
metka2:
 
   //RectangleDraw(1,j,R,Xc,Yc,m);
  // j++;
  // if (j <= n) {goto metka2;}
 
 
 //---------------------------------------------------------------------------
    //  MyPoint *A=new MyPoint [n+1];
 
Canvas->Pen->Color = clBlack;
Canvas->Brush->Color=RGB(255-n*10,155-n*10,255-n*20);
TPoint A[100];
double angle=0;
int ii=0;
for (ii=0;ii<=n;ii++)
{
A[ii].x=int(Xc+R*cos(angle*M_PI/180+M_PI/n));
A[ii].y=int(Yc+R*sin(angle*M_PI/180+M_PI/n));
angle=angle+360/n;
}
for (ii=0;ii<=n;ii++)   Canvas->Polygon(A,n);
//---------------------------------------------------------------------------
 
 
     }
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
X1=StrToInt(Edit2->Text);
Y1=StrToInt(Edit3->Text);
X2=StrToInt(Edit4->Text);
Y2=StrToInt(Edit5->Text);
 
Canvas->Pen->Color = clBlack;
  Canvas->Brush->Color=clWhite;
  TPoint points[5];
  points[0].x = X1;
  points[0].y = Y1;
  points[1].x = X2;
  points[1].y = Y1;
  points[2].x = X2;
  points[2].y = Y2;
  points[3].x = X1;
  points[3].y = Y2;
  points[4].x = X1;
  points[4].y = Y1;
Canvas->Polygon(points,4);
 
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void RectangleDraw(double Current,double Count,double R,double Xc,double Yc,double m){
     if  (Current==Count) {
               if ( ((Xc-R)>= X1) && ((Xc+R)<= X2) && ((Yc-R)>=Y1) && ((Yc+R)<=Y2) ) {
 
Form1->Canvas->Pen->Color = clBlack;
Form1->Canvas->Brush->Color=RGB(255-Current*10,155-Current*10,255-Current*20);
TPoint A[100];
double angle=0;
int ii=0;
for (ii=0;ii<=n;ii++)
{
A[ii].x=int(Xc+R*cos(angle*M_PI/180+M_PI/n));
A[ii].y=int(Yc+R*sin(angle*M_PI/180+M_PI/n));
angle=angle+360/n;
}
for (ii=0;ii<=n;ii++)   Form1->Canvas->Polygon(A,n);
 return;
 
 
               }
               else { return; }
 
        }
        else {
       int i=0;
metka:
        RectangleDraw(Current+1, Count, R/2,(Xc+R*cos((2*M_PI)/m))/2,(Yc+R*sin((2*M_PI)/m))/2, m);
        i++;
        if(i<m) {goto metka;}
        RectangleDraw(Current+1,Count,R/2, Xc, Yc, m);
 
         return;
        }
 
 
}
 //---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
n=StrToInt(Edit1->Text);
m=StrToInt(Edit6->Text);
X1=StrToInt(Edit2->Text);
Y1=StrToInt(Edit3->Text);
X2=StrToInt(Edit4->Text);
Y2=StrToInt(Edit5->Text);
Xc=X1+((X2-X1)/2);
Yc=Y1+((Y2-Y1)/2);
R=(((X2-X1)/2)<((Y2-Y1)/2))?(( X2-X1)/2 ) : ( (Y2-Y1 )/2);
 
double j=1;
 
 
metka2:
 
   RectangleDraw(1,j,R,Xc,Yc,m);
   j++;
   if (j <= n) {goto metka2;}
 
 
}
//---------------------------------------------------------------------------
as.h :
Кликните здесь для просмотра всего текста
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
//---------------------------------------------------------------------------
 
#ifndef asH
#define asH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *Button1;
        TEdit *Edit1;
        TLabel *Label1;
        TLabel *Label2;
        TEdit *Edit2;
        TEdit *Edit3;
        TLabel *Label3;
        TLabel *Label4;
        TLabel *Label5;
        TLabel *Label6;
        TLabel *Label7;
        TEdit *Edit4;
        TEdit *Edit5;
        TButton *Button2;
        TButton *Button3;
        TEdit *Edit6;
        TLabel *Label8;
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall Button3Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif


as.dfm :

Кликните здесь для просмотра всего текста
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
object Form1: TForm1
  Left = 457
  Top = 122
  Width = 870
  Height = 640
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 48
    Width = 71
    Height = 13
    Caption = #1050#1086#1083'-'#1074#1086' '#1091#1075#1083#1086#1074'='
  end
  object Label2: TLabel
    Left = 8
    Top = 88
    Width = 150
    Height = 13
    Caption = #1051#1077#1074#1099#1081' '#1074#1077#1088#1093#1085#1080#1081' '#1091#1075#1086#1083' '#1086#1073#1083#1072#1089#1090#1080':'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 24
    Top = 120
    Width = 29
    Height = 20
    Caption = 'X1='
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 24
    Top = 152
    Width = 29
    Height = 20
    Caption = 'Y1='
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 8
    Top = 176
    Width = 153
    Height = 13
    Caption = #1055#1088#1072#1074#1099#1081' '#1085#1080#1078#1085#1080#1081' '#1091#1075#1086#1083' '#1086#1073#1083#1072#1089#1090#1080':'
  end
  object Label6: TLabel
    Left = 24
    Top = 208
    Width = 29
    Height = 20
    Caption = 'X2='
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 24
    Top = 232
    Width = 29
    Height = 20
    Caption = 'Y2='
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 8
    Top = 8
    Width = 115
    Height = 13
    Caption = #1042#1083#1086#1078#1077#1085#1086#1089#1090#1100' '#1088#1077#1082#1091#1088#1089#1080#1081':'
  end
  object Button1: TButton
    Left = 40
    Top = 280
    Width = 81
    Height = 41
    Caption = #1055#1086#1089#1090#1086#1088#1080#1090#1100
    TabOrder = 0
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 88
    Top = 48
    Width = 49
    Height = 21
    TabOrder = 1
    Text = '4'
  end
  object Edit2: TEdit
    Left = 88
    Top = 120
    Width = 49
    Height = 21
    TabOrder = 2
    Text = '170'
  end
  object Edit3: TEdit
    Left = 88
    Top = 152
    Width = 49
    Height = 21
    TabOrder = 3
    Text = '50'
  end
  object Edit4: TEdit
    Left = 88
    Top = 208
    Width = 49
    Height = 21
    TabOrder = 4
    Text = '700'
  end
  object Edit5: TEdit
    Left = 88
    Top = 232
    Width = 49
    Height = 21
    TabOrder = 5
    Text = '500'
  end
  object Button2: TButton
    Left = 8
    Top = 328
    Width = 153
    Height = 33
    Caption = #1055#1086#1089#1090#1088#1086#1080#1090#1100' '#1086#1073#1083#1072#1089#1090#1100
    TabOrder = 6
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 24
    Top = 392
    Width = 33
    Height = 25
    Caption = 'Button3'
    TabOrder = 7
    OnClick = Button3Click
  end
  object Edit6: TEdit
    Left = 120
    Top = 24
    Width = 49
    Height = 21
    TabOrder = 8
    Text = '10'
  end
end



весь проект в архиве:
https://docs.google.com/open?id=0B5G...lA5ZTFPalFucW8

вот что строится.
https://docs.google.com/open?id=0B5G...XAyX1F5dno1NVE

П.С. забыл удалить Button3 -он использовался только для проверки работоспособности кода.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.09.2012, 19:30     Рекурсивное разбиение области
Посмотрите здесь:

Рекурсивное вычисление C++
Рекурсивное разбиение прямоугольной области правильным n-угольником C++
C++ Рекурсивное умножение матриц
рекурсивное создание потока C++
Рекурсивное определение типов C++
C++ Рекурсивное вычисление суммы.
C++ Рекурсивное сложение
C++ Рекурсивное возведение в степень

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 04:18. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru