Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
0 / 0 / 1
Регистрация: 24.12.2011
Сообщений: 5

Канва, график функции sin(x) в модуле в первом и втором квадрантах

25.12.2011, 00:40. Показов 2189. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем привет.
Такая проблема, нужно построить график функции sin(x) в модуле в первом и втором квадрантах.

Как это сделать ?
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
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "math.h"
#include <cmath.h>
float f(float x)
{
return sin(x);
}
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
  Grafik();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormResize(TObject *Sender)
{
  TRect rct=Rect(0,0,ClientWidth,ClientHeight);
  Canvas->FillRect(rct);
  Grafik();
}
// для доступа к sin и exp
// фyнкция, график которой надо построить
//----------------------------------------------
void TForm1::Grafik() //функцию нужно зарегистрировать
{
  Canvas->Brush->Style=bsHorizontal;
  Canvas->Brush->Style=bsVertical;
  if x<0 then x= float x1,x2; //границы изменения аргумента
  // функции
  float y1, y2;  // границы изменения значения
  // функции 
  float x;
  // аргумент функции
  float y;        // значение функции в точке x
  float dx;       // приращение аргумента
  int l,b;        // левый нижний угол области 
                  //вывода графика
  int w,h;  //ширина и высота области вывода графика
  float mx, my;   // масштаб по осям X и Y
  int x0, y0;     // начало координат
  // область вывода графика
  l=0;   // X - координата левого верхнего угла
  b=Form1->ClientHeight-100; // Y - координата
  //левого нижнего угла
  h=Form1->ClientHeight-400;   // высота
  w=Form1->Width - 20;              // ширина
  x1=15;    // нижняя граница диапазона аргумента
  x2=100;   // верхняя граница диапазона аргумента
  dx = 0.01;   //шаг аргумента
  // найдем максимальное и минимальное значение
  // функции на отрезке [x1,x2]
  x=x1;
  y1=f(x); // минимум
  y2=f(x); // максимум
  do {
    y=f(x);
    if(y<y1) y1=y;
    if(y>y2) y2=y;
    x+=dx;
  }while(x <= x2);
  // вычислим масштаб
  my=(float)h/abs(y2-y1);  // масштаб по оси Y
  mx=w/abs(x2-x1);        // масштаб по оси X
  // оси
  x0=1+abs(x1*mx);
  y0=b-abs(y1*my);
  Canvas->MoveTo(x0,b);
  Canvas->LineTo(x0,b-h);
  Canvas->MoveTo(l,y0);
  Canvas->LineTo(l+w,y0);
  Canvas->TextOutA(x0+5,b-h,FloatToStrF(y2,ffGeneral,6,3));
  Canvas->TextOutA(x0+5,b,FloatToStrF(y1,ffGeneral, 6,3));
  // построение графика
  x=x1;
  do{
    y=f(x);
    Canvas->Pixels[x0+x*mx][y0-y*my]=clGreen;
    x+=dx;
  }while(x <= x2);
}
//---------------------------------------------------------------------------
Большое спасибо

Добавлено через 2 часа 2 минуты
всё спасибо не надо разобралсЯ)))
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
25.12.2011, 00:40
Ответы с готовыми решениями:

Построить график функции «Бабочка»: X=sin(At+B)cos(Ct), Y=sin(At+B)sin(Dt)
Написать программу построения графика функции. Вывод графика осуществлять в созданном на экране окне, в другом окне выполнить вывод...

Построить график функции v:=w*r*(Sin(a)+(y/4)*sin(2*a)
построить график функции v:=w*r*(Sin(a))+(y/4)*sin(2*a)

Построить график функции y=y*sin(x) + y^2 * sin(3x)
Помогите решить данную задачу, мне необходимо только заменить часть кода, которую я выделил комментариями. Построить сам график. У меня не...

2
 Аватар для cpp_developer
20124 / 5691 / 417
Регистрация: 09.04.2010
Сообщений: 22,546
Записей в блоге: 1
25.12.2011, 01:16
Разобрался - покажи результаты, может быть полезно другим участникам, а то, если припекло - все прут на форум, а исправил сам два символа в строчке тупого кода - и уже орет, что "сам" сделал большую и важную работу, а код не показывает, жмот .

Хотя подозреваю, что вся проблема "крутого кодера" была в этой абсолютно не гламурной строчке
C++
1
if x<0 then x= float x1,x2;
Хотя - коль "разобрался сам" - получай "мЕдаль на пагоны" .
0
0 / 0 / 1
Регистрация: 24.12.2011
Сообщений: 5
25.12.2011, 11:13  [ТС]
Полностью программу не доделал, как полностью сделаю напишу сюда. Щас просто мучаюсь, что-бы график шёл не только в сторону положительного значения Х, но и в минусовое

Добавлено через 22 минуты
Вот, криво конечно) А как можно сделать сетку ?

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "math.h"
#include <cmath.h>
float f(float x)
{
 
if(sin(x)<0)
 return -sin(x);
 else
return sin(x);
 
}
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormPaint(TObject *Sender)
{
Grafik();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormResize(TObject *Sender)
{
TRect rct=Rect(0,0,ClientWidth,ClientHeight);
Canvas->FillRect(rct);
Grafik();
 }
 // для доступа к sin и exp
// фyнкция, график которой надо построить
 
//----------------------------------------------
void TForm1::Grafik() //функцию нужно зарегистрировать
{
Canvas->Brush->Style=bsHorizontal;
 
Canvas->Brush->Style=bsVertical;
 
 
 
 
float x1,x2; //границы изменения аргумента
// функции 
float y1, y2;  // границы изменения значения
// функции 
float x;
// аргумент функции
float y;        // значение функции в точке x
float dx;       // приращение аргумента
int l,b;        // левый нижний угол области 
                //вывода графика
int w,h;  //ширина и высота области вывода графика
float mx, my;   // масштаб по осям X и Y
int x0, y0;     // начало координат
// область вывода графика
l=0;   // X - координата левого верхнего угла
b=Form1->ClientHeight-200; // Y - координата
//левого нижнего угла
h=Form1->ClientHeight - 300;  // высота
w=Form1->Width - 100;              // ширина
x1=-20;    // нижняя граница диапазона аргумента
x2=20;   // верхняя граница диапазона аргумента
dx = 0.001;   //шаг аргумента
// найдем максимальное и минимальное значение
// функции на отрезке [x1,x2]
//x=x1;
y1=f(x); // минимум
y2=f(x); // максимум
do
{
y=f(x);
if(y<y1) y1=y;
if(y>y2) y2=y;
x+=dx;
}while(x <= x2);
// вычислим масштаб
my=(float)h/abs(y2-y1);  // масштаб по оси Y
mx=w/abs(x2-x1);        // масштаб по оси X
// оси
x0=1+abs(x1*mx);
y0=b-abs(y1*my);
 
//Canvas->Brush->Style=bsSolid(100,100);
 
 
 
 
Canvas->MoveTo(x0=200,b+h);
Canvas->LineTo(x0,b-h);
Canvas->MoveTo(l,y0);
Canvas->LineTo(l=550,y0);
Canvas->TextOutA(x0+5,b-h,FloatToStrF(y2,ffGeneral,6,3));
//Canvas->TextOutA(x0+5,b,FloatToStrF(y1,ffGeneral, 6,3));
 
// построение графика
 
x=x1;
do{
y=f(x);
Canvas->Pixels[x0+x*mx][y0-y*my]=clRed;
x+=dx;
 
}
while(x <= x2); 
 
 
 
 
}
//---------------------------------------------------------------------------
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
25.12.2011, 11:13
Помогаю со студенческими работами здесь

Рассчитать функцию y=sin(sin(sin(…(sin(x))))), в которой имя функции «sin» повторяется n раз.
1. Вычислить элементы последовательности, используя рекурсию. L0(x)=1, L1(x)= +1-x, kLk(x)=(-x+2k+ -1)Lk-1(x)-(k+ -1)Lk-2(x) ...

Вычисление первой производной функции в первом потоке, а второй производной - во втором
Здравствуйте, помогите создать поток который вычесляет первую производную, а второй поток вторую производную. tg(x)-(1/x). Можно хотя бы...

График функции y=sin x
Помогите построить график функции y=sin x в Window Form.

График функции sin(x)
Для x∈ построить график функции y=sin(x).

Построить график функции SIN
Построить график функции SIN на форме


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Символьное дифференцирование
igorrr37 13.02.2026
/ * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru