Построить график функции на интервале (без компонента TChart)

@Разиля · Регистрация: 17.02.2009

Студворк — интернет-сервис помощи студентам

мне нужно, задав функцию Y= tgx-1/3*tg3x+1/5*tg5-1/3 на интервале [0;0.8]построить ее график , не используя компонент Chart , нужно срочно

@IS · 18.02.2009, 23:12

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
///---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "math.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
float x,y,xBack,yBack;
xBack = Img->Width;
yBack = Img->Height;
for (x=0; x<=0.8; x=x+0.1)
        {
        y= tanl(x)-(1/3)*tanl(5*x)+(1/5)*tanl(5)-(1/3);
        if (x==0)Img->Canvas->MoveTo((Img->Width)/2,(Img->Height)/2);
        Img->Canvas->LineTo((Img->Width)/2 + 50*x,(Img->Height)/2-50*y);
        xBack = (Img->Width)/2 + 50*x;
        yBack = (Img->Height)/2 - 50*y;
        RichEdit1->Lines->Add(FloatToStr(x)+" y="+FloatToStr(y));
        }
 
}
 
}

файл unit1.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
//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <ComCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TImage *Img;
        TRichEdit *RichEdit1;
        void __fastcall FormCreate(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

@Разиля · 20.02.2009, 19:16 **[ТС]**

спасибо огромное очень выручили

Добавлено через 22 часа 16 минут 35 секунд
мне нужно, в стрингриде вводя значения х в интервале [0;0.8] вычислить значения y и построить график функции Y= tgx-1/3*tg3x+1/5*tg5-1/3 на компоненте имидж, пожалуйста помогите.

@IS · 20.02.2009, 23:18

Разиля, http://slil.ru/26924790

@Разиля · 23.02.2009, 16:09 **[ТС]**

мне нужно построить график Y= tgx-1/3*tg3x+1/5*tg5-1/3 на интервале [0;0.8], так чтобы когда вводишь в стрингриде значения Х автоматически вычислялось значение У и на компоненте Chart строился график этой функции. помогите пожалуйста.

@Разиля · 24.02.2009, 18:54 **[ТС]**

подскажите пожалуйста каким образом в Image можно изменять цвета графика, нужно срочно

@IS · 24.02.2009, 19:45

Разиля, вот

C++
1
Img->Canvas->Pen->Color = clBlue;

@Разиля · 24.02.2009, 20:13 **[ТС]**

меня выбрасывает с программы таким образом, может из за того что, у меня график нарисован по заданной функции

@IS · 24.02.2009, 22:52

Разиля, ничего не понял. Прога вылетает? Там вылетать нечему. Это ставим

C++
1
Img->Canvas->Pen->Color = clBlue;

в процедуру void __fastcall TForm1::FormCreate(TObject *Sender)

@Разиля · 25.02.2009, 12:07 **[ТС]**

все равно спасибо, у меня еще один вопрос как в стрингриде когда вводишь значения x вычислить значение y=cosx, помогите пожалуйста не могу разобраться:'(

@IS · 25.02.2009, 12:59

Разиля, добавил. Ставите 2 компонента Edit

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "math.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Img->Canvas->Pen->Color = clBlue;
float x,y,xBack,yBack;
xBack = Img->Width;
yBack = Img->Height;
for (x=0; x<=0.8; x=x+0.1)
        {
        y= tanl(x)-(1/3)*tanl(5*x)+(1/5)*tanl(5)-(1/3);
        if (x==0)Img->Canvas->MoveTo((Img->Width)/2,(Img->Height)/2);
        Img->Canvas->LineTo((Img->Width)/2 + 50*x,(Img->Height)/2-50*y);
        xBack = (Img->Width)/2 + 50*x;
        yBack = (Img->Height)/2 - 50*y;
        RichEdit1->Lines->Add(FloatToStr(x)+" y="+FloatToStr(y));
        }
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
float x,y;
x=StrToFloat(LabeledEdit1->Text);
y= tanl(x)-(1/3)*tanl(5*x)+(1/5)*tanl(5)-(1/3);
LabeledEdit2->Text = FloatToStr(y);
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
float a;
a = StrToFloat(Edit1->Text);
if (Edit1->Text != "") Edit2->Text = cos(3.14*a / 180);
}
//---------------------------------------------------------------------------

файл unit1.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
//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <ComCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TImage *Img;
        TRichEdit *RichEdit1;
        TLabeledEdit *LabeledEdit1;
        TLabeledEdit *LabeledEdit2;
        TButton *Button1;
        TGroupBox *GroupBox1;
        TEdit *Edit1;
        TEdit *Edit2;
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Edit1Change(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Косинус считает в градусах. Со StringGrid времени нет разбираться. Читайте Архангельского.

@Разиля · 25.02.2009, 15:18 **[ТС]**

не ужели мне никто не поможет

@IS · 25.02.2009, 22:40

Сообщение от Разиля

не ужели мне никто не поможет

в чем? StrinGrid описан у Архангельского. И там сказано, что этот компонент предназначен только для вывода и редактирования информаии. Таким образов, в этом компонете Вы не можете ввести в него данные (точнее можете, но хитро - программным способом).

Новые блоги и статьи Все статьи Все блоги /
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .

@Разиля 0 / 0 / 0 Регистрация: 17.02.2009 Сообщений: 38

	Построить график функции на интервале (без компонента TChart) 18.02.2009, 17:52. Показов 2998. Ответов 12 Метки нет (Все метки) мне нужно, задав функцию Y= tgx-1/3tg3x+1/5tg5-1/3 на интервале [0;0.8]построить ее график , не используя компонент Chart , нужно срочно 0

@Разиля 0 / 0 / 0 Регистрация: 17.02.2009 Сообщений: 38
	20.02.2009, 19:16 [ТС]
	спасибо огромное очень выручили Добавлено через 22 часа 16 минут 35 секунд мне нужно, в стрингриде вводя значения х в интервале [0;0.8] вычислить значения y и построить график функции Y= tgx-1/3tg3x+1/5tg5-1/3 на компоненте имидж, пожалуйста помогите. 0

@IS 13 / 13 / 2 Регистрация: 01.10.2008 Сообщений: 116
	20.02.2009, 23:18
	Разиля, http://slil.ru/26924790 1

@Разиля 0 / 0 / 0 Регистрация: 17.02.2009 Сообщений: 38
	23.02.2009, 16:09 [ТС]
	мне нужно построить график Y= tgx-1/3tg3x+1/5tg5-1/3 на интервале [0;0.8], так чтобы когда вводишь в стрингриде значения Х автоматически вычислялось значение У и на компоненте Chart строился график этой функции. помогите пожалуйста. 0

@Разиля 0 / 0 / 0 Регистрация: 17.02.2009 Сообщений: 38
	24.02.2009, 18:54 [ТС]
	подскажите пожалуйста каким образом в Image можно изменять цвета графика, нужно срочно 0

@Разиля 0 / 0 / 0 Регистрация: 17.02.2009 Сообщений: 38
	24.02.2009, 20:13 [ТС]
	меня выбрасывает с программы таким образом, может из за того что, у меня график нарисован по заданной функции 0

@Разиля 0 / 0 / 0 Регистрация: 17.02.2009 Сообщений: 38
	25.02.2009, 12:07 [ТС]
	все равно спасибо, у меня еще один вопрос как в стрингриде когда вводишь значения x вычислить значение y=cosx, помогите пожалуйста не могу разобраться:'( 0

@Разиля 0 / 0 / 0 Регистрация: 17.02.2009 Сообщений: 38
	25.02.2009, 15:18 [ТС]
	не ужели мне никто не поможет 0