Перевод кода из Matlab в Scilab

clc;clear;close;
% Данная программа реализует дифференцирование функций в MATLAB ;
fprintf(' Данная программа реализует дифференцирование функций в MATLAB\n')
% выбранный пункт меню
val_menu = 0;
index=0;
fBody=' ';
fun_dif=' ';
% организация главного меню
while val_menu~= 6
    % выводим главном меню
    fprintf('Программа для решения СЛАУ различными методами\n\n');
    fprintf('Главное меню:\n');
    fprintf('Выберите пункт меню\n');
    fprintf('1. Демонстрация работы программы\n');
    fprintf('2. Дифференцирование функции, заданной пользователем\n');
    fprintf('3. Графическое представление решения\n');
    fprintf('4. Вывод в консоль информации о программе и авторе\n');
    fprintf('5. Найти значение производной в точке, заданной пользователем\n');
    fprintf('6. Завершение работы программы\n');
    %проверка пункта меню на корректность
    val_menu=elka(6);
    switch val_menu
        case 1
            %демонстарционый файл
            demonstraciya
        case 2
            %дифференцирование заданных функций
          [fBody,fun_dif]=differencirovanie;
           index=1;
          Vozvrat
        case 3
            %графическое представление решения
            grafic(index,fBody)
        case 4
            %информация о программе и авторе
            informaciya
             val_menu=0
        case 5
            %нахождение производной в точке
            fun_tach(index,fun_dif)
            
    end
    
end
clear
clc
disp('Работа программы завершена')
 
 
:)
%дополнительное меню
disp('Выберите дальнейшее действие:')
disp('1. ввести новое минимальное значение x')
disp('2. ввести новое максимальное значение x')
userAnswer2= elka(2);
switch userAnswer2
    case 1
        xMin=input('новое минимальное значение x=');
       
    case 2
       xMax=input('новое максимальное значение x=');
 
       
end
 
:)
%возврат в главное меню
fprintf('\n Для возврата в главное меню нажмите любую клавишу: ');
pause;
close; clc;
 
:)
fprintf('Мишин Руслан Андреевич\n');
fprintf('студент кафедры №31\n');
fprintf('студент группы 3511\n');
fprintf('данная программа предназначена для нахождения\n производной функции с помощью программной среды\n МATLABB , визуализации решений заданных\n уравнений и их производных,и так же включает\n в себя демонстрационные примеры. ')
Vozvrat
 
:)
function grafic (index,fBody)
%Построение графика
% функция предназначена для построения графика
%делаем так, что если функция не задана мы можем ее задать
fprintf('Построение графика функции\n');
if index==0
fBody=input('Введите функцию (непосрественно с аргументом х) \n y=','s');
end
% ГовоfBodyрим, что будем делать символьные вычисления
syms x
% считаем производную
fun_dif=diff(eval(fBody));
% ввод нижней границы диапазона
fprintf('Введите диапазон в которых будем строить график\n');
xMin = NaN;
while isnan(xMin)
    xMin = input('Нижняя граница диапазона: ');
    % проверка, что xMin это число
    if ~isscalar(xMin) || isnan(xMin) || ~isreal(xMin)
        xMin = NaN;
        fprintf('Ошибка, некорректные данные\n');
    end
end
% ввод верхней границы диапазона
xMax = NaN;
while isnan(xMax)
    xMax = input('Верхняя граница диапазона: ');
    % проверка, что xMin это число
    if ~isscalar(xMax) || isnan(xMax) || ~isreal(xMax)
        xMax = NaN;
        fprintf('Ошибка, некорректные данные\n');
    end
end
% проверка что максимальное значение x больше минимального
while xMax<xMin
    disp('некорректно задан диапазон значений')
    alter
end
% подготовка данных к построению графика
x = xMin : (xMax-xMin) / 200 : xMax;
% Строим 2 графика в разных системах координат в одном графическом окне
% для чего разбиваем графическое окно на 2 подокна,
% 2 по горизонтали (аналог числа строк) и 1 по вертикали (аналог числу столбцов)
q=input('обозначте ось ох:','s');
w=input('обозначте ось оy:','s');
subplot(2,1,1)
% строим график
funnn=eval(['@(x)',fBody]);
y=(funnn(x));
plot(x,y,'--b' ,'LineWidth',2.5);
hold off;
% Подписываем оси
xlabel=q;
ylabel=w;
title('заданная функция')
subplot(2,1,2)
% Во втором окне посередине графического окна строим график функции заданной
ezplot('fun_dif',x);
% Подписываем график
title('производная заданной функции')
% Подписываем оси
xlabel=q;
ylabel=w;
Vozvrat
end
 
:)
function [ z ]= fun_tach ( index,fun_dif)
%функция для нахождения производной в точке
%стираем все что ненужно
%clc;close;
syms x
if index==0
f=input('Введите функцию (непосредственно с аргументом х) \n y=','s');
%пишется переменная по которой будете брать производную, чтобы программа не ругалась что она не задана численно
%найдем значение производной
fun_dif=diff(eval(f));
fprintf('Производная данной функции y'' = ');
disp(fun_dif)
end
%зададим аргумент х
X=input('\nВведите точку в которой необходимо найти значение производной x = ','s');
X=str2double(X);
%проверка что х число
while ~isscalar(X) || isnan(X) || ~isreal(X)
    
    fprintf('Ошибка, некорректные данные\n');
    X=input('\nВведите точку в которой необходимо найти значение производной x = ','s');
X=str2double(X);
end
% X=2;
%считается значение производной dx  в точке х=X
z=double(subs(fun_dif,x,X));
fprintf('Производная функции y=%s  в точке x=%5.3f равна:\n y''(%5.3f)=%5.3f',f,X,X,z);
Vozvrat
end
 
:)
function [val_menu]= elka(n)
%  программы для проверки корректности введенного
% пользователем пункта меню
% Программа требует повторить ввод до тех пор, пока пользователь 
% не наберёт корректный пункт меню 
% n – количество пунктов меню  
% Присваиваем двум строковым переменным текст, который будет 
% выведен пользователю. Далее будем подставлять в функцию вывода 
% не текст в кавычках, а эти переменные 
str1=('Введите выбранный пункт меню: '); 
str2=('Повторный ввод!'); 
%Устанавливаю флаг. В цикле, если флаг = 0, ввод успешный 
% если 2 - произошла ошибка, нужен повторный ввод 
 
flag=1; 
k=n+1;   
%вспомогательная переменная 
buffer= num2str(k); 
 
%любая строка больше n, может быть строка символов 
while(flag>0)
if flag==2 
disp(str2) 
% Сообщаем - "Повторный ввод" 
%Меняем текст приглашения 
str1='Введите корректный номер пункта меню:'; 
end
flag=0; 
buffer=input(str1,'s'); 
%проверяем, введено не число ИЛИ более, чем один символ, ИЛИ число больше n 
if isnan(str2double(buffer))||length(buffer)>1||str2double(buffer)>n
disp('Ошибка!!!') 
flag=2; 
end
end
% Присваивает переменной val_menu номер выбранного пользователем 
% номера меню 
val_menu= str2num(buffer);
end
 
 
:)
function [fBody,fun_dif]=differencirovanie
% функция для дифференцирование функции, заданной пользователем
clc
% Запрашиваем функцию
fBody=input('Введите функцию (непосредственно с аргументом х) \n y=','s');
% Говорим, что будем делать символьные вычисления
syms x
%находим производную
fun_dif=diff(eval(fBody));
%показываем производную
fprintf('производная равна ,\n y'' =');
disp (fun_dif);
% Vozvrat
end
 
 
:)
function demonstraciya
% Демонстрация работы программы (Дифференцирование функции), используя значения, заданные по умолчанию.
clear;clc;close;
% Задаем функцию
disp(' заданная функция  y= cos(2*x^3)/(x^2+1) ');
% Задаем производную
disp(' производная функции:')
disp('y'' = -sin((2*x^3)/(x^2 + 1))*((6*x^2)/(x^2 + 1) - (4*x^4)/(x^2 + 1)^2)');
disp('интервал x от 1 до 10 , с шагом интегрирования 0.045 ')
% присваиваем переменной значение функции
fBody=('cos((2.*x.^3)./(x.^2+1))');
% Говорим, что будем делать символьные вычисления
syms x
% считаем производную
fun_dif=diff(eval(fBody));
% задаем минимальный интервал интегрирования
xMin=1;
% задаем максимальный интервал интегрирования
xMax=10;
%строим график
ezplot(fun_dif,xMin:(xMax-xMin)/200:xMax);
 
%возвращаемся в главное меню
Vozvrat
end