|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.05.2013, 07:18 | #1 |
Новичок
Джуниор
Регистрация: 26.05.2013
Сообщений: 3
|
Затабулировать функцию. график указанной функции и график касательной к ней в точке с абсциссой
Здравствуйте, уважаемые программисты!
пытался решить задание по программированию , мне так и не удалось получить правильный граффик. Перепробовал разные пути подстановок числа. Так и не получилось Задание: Затабулировать функцию ссылка на фото : http://www.pictureshack.ru/view_73862_2111111111111.jpg Построить график указанной функции и график касательной к ней в точке с абсциссой x0 = -1. Пытался решить 'y = (x + 1) ^ 2 / (x ^ 2) Function FofX(x As Double) If x <> 0 Then FofX = (x + 1) ^ 2 / (x ^ 2) End Function Sub Вариант17Задание11() Sheets("Ëèñò1").Select Sheets("Ëèñò1").Cells(1, 1) = "x" Sheets("Ëèñò1").Cells(1, 2) = "y" Sheets("Ëèñò1").Cells(1, 3) = "касательная" Charts.Add 'оператор создания диаграмм ActiveChart.ChartType = xlLine Dim x As Double, x0 As Double x = -10 x0 = 0 For i = 2 To 22 If x <> 0 Then Sheets("Лист1").Cells(i, 1) = x Sheets("Лист1").Cells(i, 2) = FofX(1 * (i - 12)) Sheets("Лист1").Cells(i, 3) = tang(x, x0) End If x = x + 1 Next i ActiveChart.SetSourceData Source:=Sheets("Ëèñò1").Range("B1:C 22") ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1" With ActiveChart .HasTitle = False .Axes(xlCategory, xlPrimary).HasTitle = False .Axes(xlValue, xlPrimary).HasTitle = False End With With ActiveChart.Axes(xlCategory) .HasMajorGridlines = False .HasMinorGridlines = False End With With ActiveChart.Axes(xlValue) .HasMajorGridlines = False .HasMinorGridlines = False End With End Sub Function tang(x As Double, x0 As Double) As Double tang = dif(x0) * (x - x0) + fun11(x0) End Function Function dif(x As Double) As Double Dim dx As Double dx = 1 dif = (fun11(x + dx) - fun11(x - dx)) / (2 * dx) End Function Function fun11(x As Double) As Double If x <> 0 Then fun11 = (x + 1) ^ 2 / x ^ 2 End Function Очень буду благодарен за помощь ! За ранее спасибо! Последний раз редактировалось AntonKalinin01; 26.05.2013 в 07:45. Причина: Не выводит изображение |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Построить график функции y=f(x) и касательную к графику в точке с абсциссой | Bagira_svs | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 24.10.2012 06:46 |
Задав конкретную функцию F(x), построить ее график (delphi) | aleks155 | Помощь студентам | 0 | 11.03.2012 17:11 |
Как заставить Image двигаться по прямой к указанной точке? | Yougan | Общие вопросы Delphi | 6 | 30.05.2011 23:59 |
Построить график функции и протабулировать функцию | user100 | Помощь студентам | 6 | 09.05.2011 13:05 |
график функции sinx, построит функцию на основе многочлена (по формуле Лагранжа). | Alexcomeback | Общие вопросы C/C++ | 2 | 18.04.2009 14:08 |