[Wolfram Mathematica]Помогите исправить процедуру!

[poisongirlala]

Помогите , пожалуйста, исправить!!!!
Есть процедура. Для 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]

[Aritaborian]

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

(Оффтоп)

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

[poisongirlala]

Aritaborian в сообщении #1007977 писал(а):

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

(Оффтоп)

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

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

[arseniiv]

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

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

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