Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Новый участник


Сообщения: 6
Благодарности: 0

Профиль | Отправить PM | Цитировать


Ну вы братцы кролики и жукиии!!!)))
Ладно, вот я тут попробЫвал кое что, но чует мое сердце, что белиберда какая то все это. Скажите следующий код работоспостобен, и показывает ли то что я ищу или же это бред собачий я написал?:

Код: Выделить весь код
TFormSosred *FormSosred;

   float K,T,tau;
   const Amax = 30;
   float w[Amax];
   float  K0,K1;
//---------------------------------------------------------------------------
__fastcall TFormSosred::TFormSosred(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TFormSosred::ButtonExeClick(TObject *Sender)
{
try
    {
    K=Edit1->Text.ToFloat();
    T=Edit2->Text.ToFloat();
    tau=Edit3->Text.ToFloat();
    }
catch(EConvertError&)
{
}
for (float w=0; w<=30; w++)
    {
    w=w*0.05;
    K0=(w*sin(tau*w)+T*w*w*cos(tau*w))/K;
    K1=(T*w*sin(tau*w)-cos(tau*w))/K;
    Series1->AddXY(K0,K1);
    }

Последний раз редактировалось Drongo, 17-12-2011 в 13:05.


Отправлено: 23:00, 16-05-2011 | #241