Octave Programming Examples

kjjsghfkwfkjdckw

octave

x=[0:5:100];
y=x
plot(x,y)

abcde

octave

x=[1 2 3 4];
y=[5 6 7 8];
z=fft(x,y);
disp('output sequence is = ');
disp(z);

Test

octave

x = [1 2 3 4 5 6 7 8 9 10];
y1 = [.16 .08 .04 .02 .013 .007 .004 .002 .001 .0008 ];
y2 = [.16 .07 .03 .01 .008 .003 .0008 .0003 .00007 .00002 ];

semilogy(x,y1,'-bo;y1;',x,y2,'-kx;y2;');
title('Plot title');
xlabel('X Axis');
ylabel('Y Axis');

print -dpng figure.png

ardi

octave

x = [1 2 3 4 5 6 7 8 9 10];
y1 = [.16 .08 .04 .02 .013 .007 .004 .002 .001 .0008 ];
y2 = [.16 .07 .03 .01 .008 .003 .0008 .0003 .00007 .00002 ];

semilogy(x,y1,'-bo;y1;',x,y2,'-kx;y2;');
title('Plot title');
xlabel('X Axis');
ylabel('Y Axis');

print -dpng figure.png

watermarking

octave

clc
close all

%host

rgbimage=imread('host.jpg');
figure;imshow(rgbimage);title('original color image');
[h_LL,h_LH,h_HL,h_HH]=dwt2(rgbimage,'haar');
dec2d = [... 
        h_LL,     h_LH;     ... 
        h_HL,     h_HH      ... 
        ];
figure,imshow(uint8(dec2d));title('DWT2 of original color image');

%watermark

rgbimage=imread('watermark.jpg');
figure;imshow(rgbimage);title('Watermark image');
[w_LL,w_LH,w_HL,w_HH]=dwt2(rgbimage,'haar');
dec2d = [... 
        w_LL,     w_LH;     ... 
        w_HL,     w_HH      ... 
        ];
figure,imshow(uint8(dec2d));title('DWT2 of Watermark image');

%watermarking

newhost_LL = h_LL + (0.30*w_LL);

%output

rgb2=idwt2(newhost_LL,h_LH,h_HL,h_HH,'haar');
figure;imshow(uint8(rgb2));title('Watermarked image');
imwrite(uint8(rgb2),'Watermarked.jpg');

Aàsd

octave

x = [1 2 3 4 5 6 7 8 9 10];
y1 = [.16 .08 .04 .02 .013 .007 .004 .002 .001 .0008 ];
y2 = [.16 .07 .03 .01 .008 .003 .0008 .0003 .00007 .00002 ];

semilogy(x,y1,'-bo;y1;',x,y2,'-kx;y2;');
title('Plot title');
xlabel('X Axis');
ylabel('Y Axis');

print -dpng figure.png

virtual

octave

close all;
i=imread('RGB_Image.jpg');
subplot(1,2,1);imshow(i);
%subplot(1,2,2);imhist(i);
imh=imadjust(i,[0.3,0.6],[0,1]);
%imh1=histeq(i);
imwrite(imh,'RGB_ref.jpg');
figure;
subplot(2,2,1);imshow(imh);title('adjusted');
subplot(2,2,2);imhist(imh);
subplot(2,2,3);imshow(imh1);title('histeq');
subplot(2,2,4);imhist(imh1);

deneme

octave

% Fibonacci serisinde herhangi bir n elemanın hesaplanması
function terim=FIBO(indis)
sayi=input(lütfen sayi giriniz: ');
	if sayi==1
 	 terim=0;
	elseif sayi==2
 	 terim=1;
	else
 	 terim=1;
 	 birOnceki=0;
  	 for i=3:1:sayi
 	 ikiOnceki=birOnceki;
 	 birOnceki=terim;
 	 terim=birOnceki+ikiOnceki;
 	end
end
disp(terim);

Execute MATLAB/Octave Online

octave

v=zeros(1000);
lambda=10;
suma=0;
suma2=0;
int=1000;
for i=1:int
    v(i)=GenExp(lambda);
    suma=suma+v(i);
    suma2=suma2+(v(i)-0.1)^2;
end
plot(v,'*');

Execute MATLAB/Octave Online

octave

i=inread('https://www.pinterest.com/pin/415457134349713340/');
figure;
subplot(1,2,1); inshow(i);
subplot(1,2,2); inhist(i);

Follow

Newsletter