Добавил:
SSU_CSIT
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Octave / 444gr
.m ## Copyright (C) 2021 Lenovo
##
## This program is free software: you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation, either version 3 of the License, or
## (at your option) any later version.
##
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
## GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program. If not, see <https://www.gnu.org/licenses/>.
## -*- texinfo -*-
## @deftypefn {} {@var{retval} =} 444gr (@var{input1}, @var{input2})
##
## @seealso{}
## @end deftypefn
## Author: Lenovo <Lenovo@DESKTOP-EIHPQD9>
## Created: 2021-11-19
function retval = 444gr (input1, input2)
%fplot (@tan, [-2*pi(), 2*pi()],'k');
%построить по точкам где нет значения там NAN
%x=[-2*pi: pi/64 :2*pi]
%f=[]
%for i=1:1:length(x)
% if cos(x(i))!=0
% f(end+1)=tan(x(i))
% endif
% endfor
% plot(x,f)
endfunction
##
## This program is free software: you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation, either version 3 of the License, or
## (at your option) any later version.
##
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
## GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program. If not, see <https://www.gnu.org/licenses/>.
## -*- texinfo -*-
## @deftypefn {} {@var{retval} =} 444gr (@var{input1}, @var{input2})
##
## @seealso{}
## @end deftypefn
## Author: Lenovo <Lenovo@DESKTOP-EIHPQD9>
## Created: 2021-11-19
function retval = 444gr (input1, input2)
%fplot (@tan, [-2*pi(), 2*pi()],'k');
%построить по точкам где нет значения там NAN
%x=[-2*pi: pi/64 :2*pi]
%f=[]
%for i=1:1:length(x)
% if cos(x(i))!=0
% f(end+1)=tan(x(i))
% endif
% endfor
% plot(x,f)
endfunction