Codigo de octave

Recuerden que % delante de la linea de comando lo que significa es que el programa no lo ejecuta

Este programa hace varias cosas ir mirando y comprobar, disculpen.

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

function y = f1(x) y = (3*x - 4) endfunction

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

clear

clc

%pkg load symbolic

x = 1:5;

y = sin(x);

stem(x,y);

figure;

x = 0:.1:4*pi;

y1 = sin(x);

y2 = cos(x);

y3 = 2*cos(x);

hold on;

plot(x,y1);

plot(x,y2);

hold off;

figure;

plot(x,y3);

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

clear

clc

fun = @(x) sin(x(1)/2)*sin(x(2)/2) ;

[x,fval]=fminunc(fun,[1.5,1.0])

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

fun = @(x) x.*sin(4*log(x));

Integral = quad(fun,0.2,3)

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

clear

clc

%ezmesh('x*exp(x+y)')

%ezcontour('x*exp(x+y)')

%ezsurf('x*exp(x^2+y)')

ezsurfc('x*sin(x+y)')

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

clear

clc

clear clc x=linspace(-2,3,1000);

%y = (1-2*x).*(x <= -1)+((x + 1).^3 + 2*x).*(x > -1);

y=1-2*x.^3;

plot(x,y)

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

clear

clc

v1 = [3 6 2 4 1 5]

w = [3; 6; 9; 4; 2]

v2 = [-1, 3, 5];

v2.^5 v3=[-4,3,10];

w=[-1,3,4];

v3./w

v4=[2,3,-1,0];

5+v4

max(v4)

x = [1 2];

y = [6 1];

plot(x, y)