Составить программу вывода графика

@Summy · Регистрация: 05.11.2015

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

Составить программу вывода графика
Даны уравнения циссоиды:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?X=\frac{5*{t}^{2}}{1+{t}^{2}}$

$https://www.cyberforum.ru/cgi-bin/latex.cgi?Y=\frac{5*{t}^{3}}{1+{t}^{2}}$

$https://www.cyberforum.ru/cgi-bin/latex.cgi?t=\tan (f)$

Аргумент и его диапазон:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?f[-\pi /4,\pi /4]$

Цвет графика/фона: розовый, черный

Не представляю как это делать, нужна ваша помощь, спасибо

@gunslinger · 13.11.2016, 16:11

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
  Color = clBlack;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Refresh();
  for (float f = -M_PI/4; f <= M_PI/4; f+=0.001)
  {
    float t = tan(f);
    Canvas->Pixels[200+50*(5*t*t)/(1+t*t)][150+50*(5*t*t*t)/(1+t*t)] = clFuchsia;
  }
}

@Summy · 14.11.2016, 15:35 **[ТС]**

Благодарю)
Помогите еще добавить здесь оси и вместо цикла for использовать while надо

@Summy · 28.11.2016, 15:19 **[ТС]**

Надо задать область вывода графика ( масштаб и оси), помогите пожалуйста

@burnthemeat · 28.11.2016, 18:11

Чайку вам не заварить там?

@Почтальон · 28.11.2016, 20:37

Не по теме:

Сообщение от burnthemeat

Чайку вам не заварить там?

два кусочка сахара, пожалуйста :)

@vanack · 29.11.2016, 02:16

А что мешает использовать Chart? Там и оси уже есть

C++
1
2
3
4
5
6
7
8
9
 float x, y, t;
 
 for (float f = -M_PI/4; f <= M_PI/4; f+=0.001)
  {
    t = tan(f);
    x= (5*t*t)/(1+t*t);
    y= (5*t*t*t)/(1+t*t);
    Chart1->Series[0]->AddXY(x,y);
  }

@Summy · 29.11.2016, 11:10 **[ТС]**

Не по теме:

И к чайку еще бутербродов самых настоящих, если проводить такую аналогию :jokingly::coffee:

Мне так легче разобраться, посредством анализа уже написанных программ

В книжке по этой среде видел пример программы графика, он куда длиннее был, но там график задается всего одной функцией, помню, что используют repeat, а еще while и do. Я потом сюда его напишу.
(Меня пугает такая лаконичность)

@vanack · 29.11.2016, 11:33

Summy, если вам принципиально использовать цикл do-while, то в принципе никто не запрещает вам это делать – по сути ничего не изменится и график программа будет выводить такой же.
Уже говорил, в билдере есть готовый инструментарий с множеством настроек для построения и вывода графиков – Chart. Пользуйтесь!

@Summy · 15.01.2017, 19:28 **[ТС]**

Мне негде посмотреть, выручите, пожалуйста. Что это выведет и выведет ли вообще?
Необходим скрин результата программы. (должен получится этот график с осями

)

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "math.h"
#include "Unit1.h"
#define pi M_PI
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
 
float fx(float fi)
{return 5* tan(fi)* tan(fi)/(1+tan(fi)*tan(fi));}
float fy(float fi)
{return 5* tan(fi)* tan(fi) *tan(fi)/(1+tan(fi)*tan(fi));}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::OnPaint(TObject *Sender)
{
float x1,x2,y1,y2;
float x,y,fi2,fi1,fi,fy,fx;
float dfi;
int l,b;
int w,h;
int x0,y0;
float mx,my;
l=10;
b=Form1->ClientHeight-20;
h=Form1->ClientHeight-40;
w=Form1->Width-20;
fi1=-pi/4;
fi2=pi/4;
dfi=0.005;
y1=fy;
y2=fy;
x1=fx;
x2=fx;
do
{
                y=fy;
                if(y<y1)y1=y;
                if(y>y2)y2=y;
                x=fx;
                if(x<x1)x1=x;
                if(x>x2)x2=x;
                fi+=dfi;
                }
while(fi<=fi2);
my=(float)h/(abs)(y2+y1);
mx=w/(abs)(x2+x1);
x0=1+abs(x2-x1);
y0=b-abs(y1*my);
Canvas->MoveTo(x0,b);Canvas->LineTo(x0,b-h);
Canvas->MoveTo(1,y0);Canvas->LineTo(1+w,y0);
Canvas->TextOutA(x0+5,b-h,FloatToStrF(y2,ffGeneral,6,3));
Canvas->TextOutA(x0+5,b,FloatToStrF(y1,ffGeneral,6,3));
Canvas->TextOutA(x0+5,y0,0);
Canvas->TextOutA(x0+150,y0-150," 5* tan(fi)* tan(fi) *tan(fi)/(1+tan(fi)*tan(fi)), 5* tan(fi) *tan(fi)/(1+tan(fi)*tan(fi))");
fi=fi1;
do
{
                y=fy; x=fx;
                Canvas->Pixels[x0+x*mx][y0-y*my]=clFuchsia;
                fi+=dfi;
                }
while(fi<=fi2);
 }
//---------------------------------------------------------------------------

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Summy 2 / 2 / 5 Регистрация: 05.11.2015 Сообщений: 90

	Составить программу вывода графика 13.11.2016, 13:16. Показов 882. Ответов 9 Метки нет (Все метки) Составить программу вывода графика Даны уравнения циссоиды: $https://www.cyberforum.ru/cgi-bin/latex.cgi?X=\frac{5{t}^{2}}{1+{t}^{2}}$ $https://www.cyberforum.ru/cgi-bin/latex.cgi?Y=\frac{5{t}^{3}}{1+{t}^{2}}$ $https://www.cyberforum.ru/cgi-bin/latex.cgi?t=\tan (f)$ Аргумент и его диапазон: $https://www.cyberforum.ru/cgi-bin/latex.cgi?f[-\pi /4,\pi /4]$ Цвет графика/фона: розовый, черный Не представляю как это делать, нужна ваша помощь, спасибо 0

@Summy 2 / 2 / 5 Регистрация: 05.11.2015 Сообщений: 90
	14.11.2016, 15:35 [ТС]
	Благодарю) Помогите еще добавить здесь оси и вместо цикла for использовать while надо 0

@Summy 2 / 2 / 5 Регистрация: 05.11.2015 Сообщений: 90
	28.11.2016, 15:19 [ТС]
	Надо задать область вывода графика ( масштаб и оси), помогите пожалуйста 0

@burnthemeat 4 / 4 / 1 Регистрация: 06.05.2013 Сообщений: 86
	28.11.2016, 18:11
	Чайку вам не заварить там? 0

@Summy 2 / 2 / 5 Регистрация: 05.11.2015 Сообщений: 90
	29.11.2016, 11:10 [ТС]
	Не по теме: И к чайку еще бутербродов самых настоящих, если проводить такую аналогию :jokingly::coffee: Мне так легче разобраться, посредством анализа уже написанных программ В книжке по этой среде видел пример программы графика, он куда длиннее был, но там график задается всего одной функцией, помню, что используют repeat, а еще while и do. Я потом сюда его напишу. (Меня пугает такая лаконичность) 0

@vanack 2 / 2 / 2 Регистрация: 27.12.2015 Сообщений: 18
	29.11.2016, 11:33
	Summy, если вам принципиально использовать цикл do-while, то в принципе никто не запрещает вам это делать – по сути ничего не изменится и график программа будет выводить такой же. Уже говорил, в билдере есть готовый инструментарий с множеством настроек для построения и вывода графиков – Chart. Пользуйтесь! 0