ПРОГРАММЫ:

• DerN - нахождение производной n-го порядка функции f(x);
• Dxy - нахождение частных производных функции f(x, y);
• Dxyz - нахождение частных производных функции f(x, y, z);
• YKOB2 - нахождение якобиана по двум функциям;
• YKOB3 - нахождение якобиана по трём функциям;
• DivU - нахождение дивергенции векторного поля;
• dUdL - нахождение производной по направлению;
• GradU - нахождение градиента скалярного поля;
• RotU - нахождение ротора векторного поля;
• Nryad - исследование знакоположительного числового ряда на сходимость;
• FA0, FAN, FBN - нахождение коэффициентов разложения 2L-периодической функции на
  интегрвале (-L, L) в ряд Фурье;
• FA02, FAN2 {FBN2} - разложение в ряд Фурье чётным {нечётным} образом.

Программа матричным методом разыскивает все пути на не взвешенном направленном графе ведущие из исходящего узла во входящий. В начале программа в режиме диалога просит ввести все переходы между узлами сети (строит матрицу переходов графа). Когда все переходы заданы можно перейти к поиску решения. Программа сначала выводит матрицу переходов для контроля правильности заполнения, а затем запрашивает исходящий и входящий узел графа.

Сейчас этого калькулятора у меня уже нет, но программы от него остались и может быть кому-либо окажуться полезны.
Для Citizen SRP-325G
-----------------------------------------------------------------------------------------
Возведение в степень по модулю
-----------------------------------------------------------------------------------------
PROGRAM (D=A^BmodC)
Program type – MAIN

PRINT “A^B%C”;SLEEP(2)
INPUT A,B,C
D=1
FOR(E=B/2;E≥.5;E=E/2){IF(Frac(E)>0)THEN{D=DA-INT(DA/C)C}
A=A2-INT(A2/C)C;E=INT(E)}
PRINT D
END

----------------------------------------------------------------------------------------

Навеяно книгой Меёса. Написал программу интерполяции во время поездки в маршрутке :)

В начале по запросу вводится массив значений функции, взятых через N от 3 до 255 равных интервалов аргумента в виде:
{x₀, x₁,...,x_N-1}
Затем программа запрашивает значение аргумента, любое вещественное в пределах от 0 до (N-1) и выдает результат, после чего запрашивает следующее... Бесконечный цикл в общем.

Попались две сложные задачи про бесконечные произведения.
1. Найти бесконечное произведение (от k=1 до k=бесконечности) чисел вида (x^k + 1)[1 - x^(2k-1)], где 1 > x > 0.
2. Доказать, что произведение 99 дробей (от k=2 до k=100) вида (k^3 - 1)/(k^3 + 1) больше 2/3.

Пользование программой
После загрузки нажимаем С/П, вводим порядок матрицы - от 2 до 4. Если ввести некорректное число, программа будет вовзращаться к вводу порядка.
Далее появляется подсказка "a(i,j) -> Пij". Ну, тут понятно, ввод элемента i строки и j столбца производить в ячейку памяти номер ij. Например, а12 -> П12 и т.п. После ввода всех элементов снова нажимаем С/П. Выводится детерминант. Повторно нажав С/П, переходим на начало и можно мучить новую матрицу.

Сегодня читала книжку про матрицы и научилась вычислять определитель для матрицы n порядка. Эта книжка вдохновила написАть удивительную программу - для нахождения определителей матриц 2-го, 3-го или 4-го порядка. Алгоритм ее, правда, слегка коряв и вот в чем он заключается.

Заинтересовала задача из "КВАНТа", №М2114:
"Докажите, что существует бесконечно много точных квадратов, не оканчивающихся нулём, в которых любая отличная от нуля цифра - нечётная."

Чтобы её решить, мне захотелось сперва увидеть как можно больше точных квадратов, удовлетворяющих условию, чтобы попробовать найти закономерность. Но среди квадратов двухзначных чисел таковых не оказалось. А как исследовать все квадраты трёх- и четырёхзначных чисел? На помощь приходит МК-152.

Эта страница была утеряна месяца два назад в результате аварии на сервере и теперь мною восстановлена повторно.

Вариант 1 - Разложение на множители методом перебора

Самый простой метод с точки зрения реализации, целесообразно использовать для чисел размера примерно до 10²⁰ Алгоритм имеет экспоненциальную сложность с точки зрения времени счёта.

ClrText
“INPUT NUMBER”
?->A:sqrA->B
For 2->C To B
If Frac(A/C)=0
Then A/C->A:C■
C-1->C:sqrA->B
IfEnd