VPF::[C++ Builder]Кривая коха - Форум программистов

mego4el

Дата 10.7.2011, 13:23 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 19.9.2010

Репутация: нет
Всего: нет

Доброго дня. Никак не получается нормально построить кривую Коха, и вывести её графически на экран на форме (C++ Builder). Есть кусок кода, но как я его не крутил, ничего не получилось((, помогите пожалуйста!

Код

#include <math.h>

  double t, x, y, p;
  long k  ;
  int mx, my, rad  ;
  long int itter=50000;
  mx = 10;
  my = 200;
  rad =600;
  Randomize;
  x=0.0;
  y=0.0;

   for(k=1; k<=itter; k++)
    {
     p = random(2);
     t = x;
    if (p <= 0.5)
      {
      x =  0.5 * x + 1/(2*pow(3,0.5)) * y;
      y =  1/(2*pow(3,0.5)) * t - 0.5 * y;
      }
     else
     {
        x =  0.5 * x - 1/(2*sqrt(3)) * y +0.5;
        y =  -1/(2*sqrt(3)) * t - 0.5 * y + 1/(2*sqrt(3));
        }
        pole->Canvas->Pixels[mx + int(rad * x)][my - int(rad * y)]=RGB(25,25,0);
     }

UniBomb

Дата 11.7.2011, 08:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Награды: 1

Профиль
Группа: Завсегдатай
Сообщений: 1754
Регистрация: 24.10.2006
Где: Санкт-Петербург

Репутация: нет
Всего: 97

mego4el, а в чём проблема? Код абсолютно рабочий smile

Если без формошлёпства, то вот:

main.h

Код


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

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private:    // User declarations
public:        // User declarations
    __fastcall TForm1(TComponent* Owner);
    TImage *pole;
    TButton *start;
    void __fastcall StartButtonClick(TObject *Sender);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

main.cpp

Код


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

#include <vcl.h>
#include <math.h>
#pragma hdrstop

#include "main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    Form1->Width = 660;
    Form1->Height = 320;
    Form1->Caption = "Кривая Коха";

    pole = new TImage(Form1);
    pole->Left = 5;
    pole->Top = 5;
    pole->Width = 640;
    pole->Height = 240;
    pole->Parent = Form1;

    start = new TButton(Form1);
    start->Left = 5;
    start->Top = 255;
    start->Width = 640;
    start->Parent = Form1;    
    start->Caption = "Построить";
    start->OnClick = StartButtonClick;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StartButtonClick(TObject *Sender)
{
    double t, x, y, p;
    long k  ;
    int mx, my, rad  ;
    long int itter=50000;
    mx = 10;
    my = 200;
    rad =600;
    Randomize;
    x=0.0;
    y=0.0;
    for(k=1; k<=itter; k++)
    {
        p = random(2);
        t = x;
        if (p <= 0.5)
        {
            x =  0.5 * x + 1/(2*pow(3,0.5)) * y;
            y =  1/(2*pow(3,0.5)) * t - 0.5 * y;
        }
        else
        {
            x =  0.5 * x - 1/(2*sqrt(3)) * y +0.5;
            y =  -1/(2*sqrt(3)) * t - 0.5 * y + 1/(2*sqrt(3));
        }
        pole->Canvas->Pixels[mx + int(rad * x)][my - int(rad * y)]=RGB(25,25,0);
    }    
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    delete start;
    delete pole;    
}
//---------------------------------------------------------------------------

--------------------

recaptcha is great

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »