Форум программистов, компьютерный форум, киберфорум
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
138 / 101 / 102
Регистрация: 03.02.2014
Сообщений: 422
21.10.2014, 01:26 0

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

21.10.2014, 01:26. Просмотров 1001. Ответов 5
Метки (Все метки)

Ответ

Для примера выложил. По графику видно, что функция, данная автором темы, и функция описанная в посте По полученным точкам графика перегиба при разных t построить огибающую линию у них нету общих точек.
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
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
uses graphABC;
type
  fn=function(x,t:real):real;
const
  xl=45; xp=25; yv=5; yn=25;   { поля }
var
  t,xn,xk,ymin,ymax,ymin_,ymax_,x,y,mx,my,dx:real;
  z:real;
  n:integer;
  x0,y0,i:integer;
  s:string;
  A, B: real;
 
function F(const x,t:real):real;
begin
  f := A * x + t * (x * ln(x) + (1 - x) * ln(1-x)) + B * t * (1-x);
end;
 
function Fpp(const x,t:real):real;
begin
  Fpp:=A+t/x+1/(1-x);
end;
 
procedure F_min_max(var min,max:real; f:fn);
begin
  x:=xn; min:=0; max:=0;
  while x<=xk do begin
    y:=f(x,t); x:=x+dx;
    if y<min then min:=y
    else
    if y>max then max:=y;
  end;
end;
 
procedure F_draw(f:fn);
begin
  x:=xn;
  MoveTo(x0+round(x*mx),y0-round(f(x,t)*my));
  while x<=xk do
  begin
    if x>0 then LineTo(x0+round(x*mx),y0-round(f(x,t)*my));  //setpixel(x0+round(x*mx),y0-round(f(x,t)*my),clRed);
    x:=x+dx;
  end;
end;
 
begin
  MaximizeWindow;
  xn:=0.001;
  xk:=0.999;
  dx:=0.01;
  t:=1;
  A:=1*t;
  B:=1*t;
  { анализ функции }
  F_min_max(ymin,ymax,F);
  F_min_max(ymin_,ymax_,Fpp);
  if ymin>ymin_ then ymin:=ymin_;
  if ymax<ymax_ then ymax:=ymax_;
  { вычисление масштаба }
  mx:=(WindowWidth-xl-xp)/abs(xk-xn);
  my:=(WindowHeight-yv-yn)/abs(ymax-ymin);
  { начало координат }
  x0:=xl;
  y0:=yv+round(my*ymax);
  { оси координат }
  line(x0,y0,windowwidth-xp,y0);   {OX}
  line(x0,yv,x0,windowheight-yn);  {OY}
  n:=10;
  for i:=1 to n do
  begin
    z:=abs(xk-xn)/n*i;
     line(x0+round(z*mx),y0-3,x0+round(z*mx),y0+3);
      str(z:0:2,s);
       textout(x0+round(z*mx),y0+10,s);
    z:=abs(ymax-ymin)/n*i;
     line(x0-3,y0-round(z*my),x0+3,y0-round(z*my));
      str(z:0:2,s);
       textout(0,y0-round(z*my),s);
  end;
  textout(x0,y0+10,'0');
  textout(windowwidth-xp,y0-20,'X');
  textout(x0+10,yv, 'Y');
  { вывод функции }
  SetPenColor(clRed);
  F_draw(f);
  SetPenColor(clGreen);
  F_draw(Fpp);
end.


Вернуться к обсуждению:
По полученным точкам графика перегиба при разных t построить огибающую линию
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.10.2014, 01:26

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как нарисовать линию огибающую другие области?
Например как здесь: тут или тут То есть указать точку из которой идёт линия и конечную. А...

Сколько разных замкнутых контуров можно построить по n точкам?
Линии контуров могут пересекаться. Если имеются 3 точки, можно построить 1 замкнутый контур -...

Графика. Построить ломаную линию по координатам из файла
Помогите пожалуйста сделать вот такую задачку:Координаты ломаной линии, заданные целыми числами (в...

3D график по полученным точкам
привет всем, возникла вроде бы довольно легкая проблема, но бьюсь над ней уже несколько дней и весь...

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