MAPLE: Касательная к графику двух функций

[sabbath]

Здравствуйте Уважаемые Знатоки! Прошу Вашей помощи, в очередной раз!
Я наверное, что-то не то делаю, не получается отобразить касательную в заданной точке: есть две функции
$ Hmax(x):=200\sin(314.1592654x): #Bmax:=(x)\to f(Hmax(x)): Bmax(x):=1.89480484360214\th(7.09452751570423\sin(314.1592654x))+0.165899611608443e-3\sin(314.1592654x):$
в МАПЛЕ:

Hmax:=(x)->200*sin(314.1592654*x):
Bmax:=(x)->1.89480484360214*tanh(7.09452751570423*sin(314.1592654*x))+0.165899611608443e-3*sin(314.1592654*x):

график данных функций строится на ура...
далее... пользуюсь известными функциями и получаю уравнения касательной и перпендикуляр:

T := proc (x) options operator, arrow; Bmax(a)+(x-a)*(D(Bmax))(a) end proc:
N := proc (x) options operator, arrow; Bmax(a)-(x-a)/(D(Bmax))(a) end proc:

a := 33:

graph := Vector(1 .. 2);
graph[1] := plot([Hmax(t), Bmax(t), t = 0 .. 0.5e-2], axis = [gridlines = [color = green, majorlines = 2]], color = black);
graph[2] := plot({N(x),T(x)}, x = 0 .. 200, y = 0 .. 2.0, color = blue);
display(convert(graph, list));

в результате кроме сетки зеленой и огромных чисел, наверняка от производных, ничего не видно! Не верно отображается касательная и перпендикуляр, не в тех координатах в которых должны быть... может Вы подскажите где я допустил ошибку?!
я подозреваю, что у меня не получается построить касательную из-за того, что график я вывожу функций Bmax и Нmax, а не функции Bmax; и касательную строю относительно, тоже, одной функции Bmax... подскажите пожалуйста, как построить касательную относительно кривой двух функций Bmax и Нmax?!
Спасибо!