Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Мариулам
0 / 0 / 0
Регистрация: 30.09.2011
Сообщений: 37
1

графикb функций Эвольвента и y=lnx

30.09.2011, 15:06. Просмотров 807. Ответов 1
Метки нет (Все метки)

Здравствуй! Я строю эвольвенту. Мне надо чтобы t менялось от "-"бесконечности до "+"бесконечности и вывести график на середину(т.е. правее). И еще там же построить график y=lnx. Вот что я попытался сделать:


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses graphABC;
var a,l,xc,yc,x,y:integer;
    f,r:real;
begin
a:=2;
l:=2;
xc:=windowwidth div 2;
yc:=windowheight div 2;
f:=0;
while f<=100*pi do
 begin
  r:=a*cos(f)+l;
  x:=round(r*cos(f)+a*(f)*sin(f));
  y:=round(yc-r*sin(f)-a*(f)*cos(f));
  setpixel(x,y,clRed);
  f:=f+0.001;
 end;
 
readln
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.09.2011, 15:06
Ответы с готовыми решениями:

Вычислить значение f(x)=x+lnx
Вычислить значение f(x)=x+lnx, в заданной точке. Вывести на печать таблицу из 5 значений функции....

Найти производную x^lnx
Собственно не могу понять, каким образом находится производная в случае, когда x и в основании и в...

График y = 2sin(x+2.5)/(15-lnx)
Нужна помощь!!! Помогите с графиком! Что нужно, это в поле, который занимает 70% экрана, построить...

Вычислить значение f(x)=x+lnx
Здравствуйте!!! помогите пожалуйста сделать лабораторку, задали на Delphi 7 сделать такоую...

Вычислить значение функции y=lnx
Вычислить значение функции y=lnx посредством разложения еe в степенной ряд Помогите пожалуйста...

1
Puporev
Модератор
58571 / 44475 / 30707
Регистрация: 18.05.2008
Сообщений: 106,552
30.09.2011, 15:30 2
Насчет логарифма что-то не понял.
Если его брать от вычисленного х, то так.

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
uses graphABC;
var a,l,xc,yc,px,py,lny:integer;
    t,r,x,y:real;
begin
a:=2;
l:=2;
xc:=windowwidth div 2;
yc:=windowheight div 2;
t:=0;
px:=0;
while abs(xc-px)<=xc do//до горизонтальных краев экрана
 begin
  r:=a*cos(t)+l;
  x:=r*cos(t)+a*(t)*sin(t);
  px:=xc+round(x);
  y:=r*sin(t)-a*(t)*cos(t);
  py:=yc-round(y);
  setpixel(px,py,clRed);
  if x>0 then
   begin
    lny:=yc-round(ln(x));
    setpixel(px,lny,clBlue);
   end;
  t:=t+0.001;
 end;
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.09.2011, 15:30

Вычисление функции y=ctg lnx
Прошу помочь составить программу вычисления функции y=ctg lnx. Пробовал сделать так - вводим...

Не могу посчитать интеграл dx/lnx
Собственно сам интеграл: \int dx/lnx

График функции (y=lnx/sqrtx)
Помогите построить график функции y=ln(x)/sqrt(x). В HomeLisp или AutoLISP. Нужен не скрин...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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