Code on 22nd oct
clc
close all
clear all
% s = serial('COM19');
% set(s,'BaudRate',57600);
% fopen(s)
% for i =1:1:1000
% data = fscanf(s);
% data=str2num(data);
% plot(data)
% end
% fclose(s)
% delete(s)
% clear s
for j=1:1:10
count=1;
for i=1:1:100
data(count)=round(100*rand(1,1));
count=count+1
figure(24)
plot(data)
drawnow
end
end
m=length(data);
for i=1:1:m
x(i)=i;
y(i)=data(i);
end
n=5;
p = polyfit(x,y,n);
y1= polyval(p,x);
hold all
figure(25)
plot(y1);
%read serial data
%
rn=input('Enter your roll number: ');
% %read databse
yr=input('Enter year of study: ');
% %emotion
em=1;
% %
for i=1:1:60
for j=1:1:4
for k=1:1:10
dblectwat(i,j,k)=0;
end
end
end
%
i=dblectwat(rn,yr,em)
i=i+1;
% %play video (i)
dblectwat(rn,yr,em) = i;
%
% %save db file
close all
clear all
% s = serial('COM19');
% set(s,'BaudRate',57600);
% fopen(s)
% for i =1:1:1000
% data = fscanf(s);
% data=str2num(data);
% plot(data)
% end
% fclose(s)
% delete(s)
% clear s
for j=1:1:10
count=1;
for i=1:1:100
data(count)=round(100*rand(1,1));
count=count+1
figure(24)
plot(data)
drawnow
end
end
m=length(data);
for i=1:1:m
x(i)=i;
y(i)=data(i);
end
n=5;
p = polyfit(x,y,n);
y1= polyval(p,x);
hold all
figure(25)
plot(y1);
%read serial data
%
rn=input('Enter your roll number: ');
% %read databse
yr=input('Enter year of study: ');
% %emotion
em=1;
% %
for i=1:1:60
for j=1:1:4
for k=1:1:10
dblectwat(i,j,k)=0;
end
end
end
%
i=dblectwat(rn,yr,em)
i=i+1;
% %play video (i)
dblectwat(rn,yr,em) = i;
%
% %save db file
% clc
% close all
% clear all
%
% s = serial('COM19');
% set(s,'BaudRate',57600);
% fopen(s)
% for i =1:90:1000
% data = fscanf(s);
% data=str2num(data);
% plot(data)
% end
% fclose(s)
% delete(s)
% clear s
%
%
%
% for j=1:1:10
% count=1;
% for i=1:90:10000
% data(count)=round(100*rand(1,1));
% count=count+1
% figure(24)
% plot(data)
% end
%
% end
%
% m=length(data);
% for i=1:1:m
% x(i)=i;
% y(i)=data(i);
% end
% n=5;
% p = polyfit(x,y,n);
% y1= polyval(p,x);
% hold all
% figure(24)
% plot(y1);
%read serial data
rn=input('Enter your roll number: ');
%read databse
yr=input('Enter year of study: ');
%emotion
em=1;
%
% for i=1:1:60
% for j=1:1:4
% for k=1:1:10
% dblectwat(i,j,k)=0;
% end
% end
% end
i=dblectwat(rn,yr,em)
i=i+1;
%play video (i)
dblectwat(rn,yr,em) = i;
%save db file
% close all
% clear all
%
% s = serial('COM19');
% set(s,'BaudRate',57600);
% fopen(s)
% for i =1:90:1000
% data = fscanf(s);
% data=str2num(data);
% plot(data)
% end
% fclose(s)
% delete(s)
% clear s
%
%
%
% for j=1:1:10
% count=1;
% for i=1:90:10000
% data(count)=round(100*rand(1,1));
% count=count+1
% figure(24)
% plot(data)
% end
%
% end
%
% m=length(data);
% for i=1:1:m
% x(i)=i;
% y(i)=data(i);
% end
% n=5;
% p = polyfit(x,y,n);
% y1= polyval(p,x);
% hold all
% figure(24)
% plot(y1);
%read serial data
rn=input('Enter your roll number: ');
%read databse
yr=input('Enter year of study: ');
%emotion
em=1;
%
% for i=1:1:60
% for j=1:1:4
% for k=1:1:10
% dblectwat(i,j,k)=0;
% end
% end
% end
i=dblectwat(rn,yr,em)
i=i+1;
%play video (i)
dblectwat(rn,yr,em) = i;
%save db file
Bluetooth object creation
Neurosky
|
Code 2
clc
close all
clear all
s = serial('COM19');
set(s,'BaudRate',57600);
fopen(s)
for i =1:90:1000
data = fscanf(s);
data=str2num(data);
plot(data)
end
fclose(s)
delete(s)
clear s
for j=1:1:10
count=1;
for i=1:90:10000
data(count)=round(100*rand(1,1));
count=count+1
figure(24)
plot(data)
end
end
m=length(data);
for i=1:1:m
x(i)=i;
y(i)=data(i);
end
n=5;
p = polyfit(x,y,n);
y1= polyval(p,x);
hold all
figure(24)
plot(y1);
THESIS
1
2
3
4
5
6
7
8
Papers
1
2
3
4
5
6
7
8
PPT
1
2
3
4
5
6
7
8
9
10