Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Найти минимальное число, присвоить его значение второму и четвертому элементам массива https://www.cyberforum.ru/ pascalabc/ thread1270533.html
Минимальное-то нашел, а вот как выполнить замену сразу на два места не понимаю. Добавлено через 56 секунд P.S. Найти минимальное число, присвоить его значение второму и четвертому элементам...
Написать программу, которая вычисляет сумму элементов, находящихся на побочной диагонали квадратной матрицы Pascal ABC
Написать программу, которая вычисляет сумму элементов, находящихся на побочной диагонали квадратной матрицы 10 х 10, заполненной случайными действительными числами.
Pascal ABC Определить, можно ли натуральное число N представить в виде произведения двух простых чисел
Всегда выводи одинаковые ответы. можно натуральное число N представить в виде произведения двух простых чисел program Prostye_chisla; uses crt; var flag1:boolean; function prost...
Pascal ABC В натуральном трехзначном числе получить самую маленькую цифру Program z2; var k: integer; begin Writeln ('введите трехзначное число'); Readln('k'); if (k>999) and (k<100) then ('введено неверное значение') Не пойму что дальше писать:-| https://www.cyberforum.ru/ pascalabc/ thread1270413.html
Pascal ABC Для заданного а вычислить f(a), где f(x) задана графиком https://www.cyberforum.ru/ pascalabc/ thread1270411.html
Для заданного а вычислить f(a), где f(x) задана графиком. а) б) в) г)
Сформировать массив В из массива А, разделив все элементы с четными номерами на первый элемент Pascal ABC
Заполнить массив А случайными числами . Сформировать массив В из массива А, разделив все элементы с четными номерами на первый элемент.
Pascal ABC Нахождение решения заданной функции
Помогите составить программу в паскале для нахождения решения данной функции : f(x)=sin(3x)+3cos(x)-1 . Очень надо!
Pascal ABC Вычислить значение выражения при натуральном n и действительном x Дано натуральное n, действительное x. Вычислить (номер 14): (\frac{1}{2}-cos|x|)(\frac{2}{3}-{cos}^{2}|x|)...(\frac{n}{n+1}-{cos}^{n}|x|) https://www.cyberforum.ru/ pascalabc/ thread1270230.html
Pascal ABC Сформировать массив, упорядоченный по возрастанию, определить, содержит ли он заданное число https://www.cyberforum.ru/ pascalabc/ thread1270189.html
Помогите народ. Срочно( В заранее благодарен. Программы должны работать с файлами. Сформировать массив Х, упорядоченный по возрастанию. Определить, содержит ли он заданное число. Если элемент ...
Pascal ABC Определить, содержит ли массив заданное число. Если элемент не найден, то вставить его в конец массива Если массив данных неупорядочен, то для поиска нужного элемента можно применить метод линейного поиска. Линейный поиск заключается в последовательном переборе элемента массива и сравнения каждого из... https://www.cyberforum.ru/ pascalabc/ thread1270116.html
0 / 0 / 0
Регистрация: 19.11.2013
Сообщений: 22
0

По полученным точкам графика перегиба при разных t построить огибающую линию

08.10.2014, 14:04. Просмотров 1001. Ответов 5
Метки (Все метки)

Программа для графика уже есть, требуется ее доделать(доработать).
Собственно задание:
1. погонять кривую при разных t
2. найти на ней при разных t максимумы и минимумы, точки перегиба.
3. По полученным точкам перегиба при разных t построить огибающую линию.
4 По общим точкам минимума (по точкам касания к ней общей касательной) построить
огибающую.


Pascal
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
uses graphABC;
var
  A, B: real;
function F(x,t:real):real;
begin
f := A * x + t * (x * ln(x) + (1 - x) * ln(1-x)) + B * t * (1-x)
end;
var t,xn,xk,x,mx,my,dx:real;
    x0,y0,i:integer;
    s:string;
begin
x0:=50;
y0:=windowheight-50;
t:=1;
xn:=0;
A:=1*t;
B:=1*t;
xk:=1;
mx:=(windowwidth-x0-30)/xk;
my:=(y0-40)/F(0.001,t);
line(0,y0,windowwidth,y0);
line(x0,0,x0,windowheight);
for i:=1 to 10 do
 begin
  line(x0+round(i*mx/10),y0-3,x0+round(i*mx/10),y0+3);
  str(i/10:0:1,s);
  textout(x0+round(i*mx/10),y0+10,s);
  line(x0-3,y0-round(i*my),x0+3,y0-round(i*my));
  str(i/10,s);
  textout(x0-20,y0-round(i*my/10),s);
 end;
 
textout(x0+5,y0+10,'0');
 
textout(windowwidth-20,y0-20,'X');
textout(x0+10,10, 'Y');
 
x:=xn;
dx:=0.001;
while x<=xk do
 begin
  if x>0 then setpixel(x0+round(x*mx),y0-round(F(x,t)*my),clRed);
  x:=x+dx;
 end;
end.
Добавлено через 29 минут
1) Нужно сделать так, чтобы при построении графика t не была постоянной величиной, а менялась в каком-то пределе, например от -1 до 1.


по точкам максимума, минимума, перегиба:
2) построить касательную
3) построить огибающую
Цитата Сообщение от Quarris Посмотреть сообщение
3. По полученным точкам перегиба при разных t построить огибающую линию.
4 По общим точкам минимума (по точкам касания к ней общей касательной) построить
огибающую.
Добавлено через 19 часов 1 минуту
Просто как сделать так, чтобы программа сама проводила линию по точкам я вообще не понимаю. Ну, для начала она должна их находить по какому-то принципу по идее. В общем, я запутался совсем. Помогите, если кто знает что делать с этим.

Вернуться к обсуждению:
По полученным точкам графика перегиба при разных t построить огибающую линию
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.10.2014, 14:04
Готовые ответы и решения:

Построить огибающую для двух графиков по общим точкам касания
Здравствуйте! Нужна помощь с программой. Имеется два графика, требуется провести касательную к...

Имеется график, нужно построить его огибающую по точкам, которые ставит сам пользователь
Добрый день! Нужна помощь с программой MathCad Имеется график, нужно построить его огибающую по...

Построить замкнутую линию по заранее указанным точкам
Дано n точек на плоскости. Указать (n-1)-звенную не самопересекающуюся замкнутую ломаную,...

Составить график функции. Дана функция нужно построить график по полученным точкам
Помогите составить график функции. Дана функция нужно построить график по полученным точкам...

5
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.