2014 dxdy logo

Научный форум dxdy

Математика, Физика, Computer Science, Machine Learning, LaTeX, Механика и Техника, Химия,
Биология и Медицина, Экономика и Финансовая Математика, Гуманитарные науки




Начать новую тему Ответить на тему
 
 [Wolfram Mathematica]Помогите исправить процедуру!
Сообщение25.04.2015, 21:32 


22/04/14
7
Помогите , пожалуйста, исправить!!!!
Есть процедура. Для Sin,Cos все хорошо считает и выводит график, а для E^x и Log[E,x] ошибки, потому что не знаю как правильно передать в процедуру само название функции или , возможно, в чем-то другом ошибка ((

Код:
spxsin = {-1, -0.35, 0.3, 0.95, 1.6, 2.375, 3.15, 3.925, 4.7, 5.025,
5.35, 5.675, 6};
spxcos = {-1, -0.75, -0.5, -0.25, 0, 0.775, 1.55, 2.325, 3.1, 3.825,
4.55, 5.275, 6};
spxlny = {-1, 0.75, 2.5, 4.25, 6};
spxey = {-1, 0.75, 2.5, 4.25, 6};
operation[f_] := Block[{data},
data = Table[{x, f[x]}, {x, -1, 6, 0.1}];
Graphics[{Thick, Blue, Line[data],
Green, Table[Point[{spx[­[i]], f[spx[­[i]]]}], {i, 1, Length[spx]}],
Pink, Opacity[.7],
Table[Rectangle[{spx[­[i]], f[spx[­[i]]]}, {spx[­[i + 1]],
f[spx[­[i + 1]]]}], {i, 1, Length[spx] - 1}]
}, Axes -> True]]

Which[ f == Sin, spx := spxsin, f == Cos, spx := spxcos, f == E^x ,
spx := spxlny, f == Log, spx := spxey]

operation[Sin]
operation[Cos]
operation[E^x]
operation[Log]

 Профиль  
                  
 
 Re: [Wolfram Mathematica]Помогите исправить процедуру!
Сообщение25.04.2015, 21:58 
Аватара пользователя


11/06/12
10390
стихия.вздох.мюсли
Для экспоненты нужно написать Exp, а не E^x; для логарифма проблема, видимо, в том, что вылазят комплексные числа (логарифм минус единицы).

(Оффтоп)

А вообще, вы какой-то странной фигнёй занимаетесь, ИМХО.

 Профиль  
                  
 
 Re: [Wolfram Mathematica]Помогите исправить процедуру!
Сообщение25.04.2015, 23:04 


22/04/14
7
Aritaborian в сообщении #1007977 писал(а):
Для экспоненты нужно написать Exp, а не E^x; для логарифма проблема, видимо, в том, что вылазят комплексные числа (логарифм минус единицы).

(Оффтоп)

А вообще, вы какой-то странной фигнёй занимаетесь, ИМХО.

Спасибо!
Подскажите, пожалуйста, Что делать, с Log, если я меняю интервал с {-1,6} на {1,6} то все та же ошибка:(

 Профиль  
                  
 
 Re: [Wolfram Mathematica]Помогите исправить процедуру!
Сообщение25.04.2015, 23:35 
Заслуженный участник


27/04/09
28128
Я бы те списки значений передавал вместе с функцией другим аргументом. А сейчас это вообще непонятно как выбирается.

-- Вс апр 26, 2015 01:36:09 --

(В прошлый раз я код довёл, так что теперь очередь не моя. :roll: )

 Профиль  
                  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 4 ] 

Модераторы: Karan, Toucan, PAV, maxal, Супермодераторы



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group