from
Mind Reader
by M M
MAGIC Game - Reads what is in your mind.
|
| mindread.m |
% This file performs the MAGIC game of MindReading
% The rules of the Game are
% Choose any two digit number, add together both digits
% and then subtract the total from your original number.
% When you have the final number look it up on the chart
% and find the relevant symbol. Concentrate on the symbol
% and when you have it clearly in your mind just Press
% (Enter) key and the symbol you are thinking of will
% be displayed in a new figure window
% Programmed by: Mina Ayman (mina_ayman@yahoo.com)
% Using MATLAB R12 on 08/07/2003
% Enjoy Your Play !!!
rand('state',sum(100*clock))
% Loading the Images information
imag1 = [3 3 3 3 4 4 4 4 3 3 3 3;
3 3 4 4 2 2 2 2 4 4 3 3;
3 4 2 2 2 2 2 2 2 2 4 3;
3 4 2 1 1 2 2 1 1 2 4 3;
4 2 2 1 1 2 2 1 1 2 2 4;
4 2 2 2 2 2 2 2 2 2 2 4;
4 2 2 2 2 2 2 2 2 2 2 4;
4 2 2 2 0 0 2 2 0 2 2 4;
3 4 2 0 2 2 0 0 2 2 4 3;
3 4 2 2 2 2 2 2 2 2 4 3;
3 3 4 4 2 2 2 2 4 4 3 3;
3 3 3 3 4 4 4 4 3 3 3 3];
imag2 = [3 3 3 3 4 4 4 4 3 3 3 3;
3 3 4 4 1 1 1 1 4 4 3 3;
3 4 1 1 1 1 1 1 1 1 4 3;
3 4 1 0 0 1 1 0 0 1 4 3;
4 1 1 0 0 1 1 0 0 1 1 4;
4 1 1 1 1 1 1 1 1 1 1 4;
4 1 1 1 1 1 1 1 1 1 1 4;
4 1 1 2 2 2 2 2 2 1 1 4;
3 4 1 1 1 1 1 1 1 1 4 3;
3 4 1 1 1 1 1 1 1 1 4 3;
3 3 4 4 1 1 1 1 4 4 3 3;
3 3 3 3 4 4 4 4 3 3 3 3];
imag3 = [2 2 2 2 2 2 2 2 2 2 2 2;
4 4 4 4 4 4 4 4 4 4 4 5;
4 5 0 2 0 2 0 2 0 2 5 5;
4 3 5 0 2 0 2 0 2 5 1 5;
4 0 3 5 0 2 0 2 5 1 3 5;
4 2 2 1 5 0 2 5 1 3 3 5;
4 0 1 3 1 5 5 1 3 1 3 5;
4 1 3 3 3 1 1 3 3 3 1 5;
4 3 3 3 3 3 3 3 3 3 3 5;
4 4 4 4 4 4 4 4 4 4 4 5;
5 5 5 5 5 5 5 5 5 5 5 5;
2 2 2 2 2 2 2 2 2 2 2 2];
imag4 = [0 0 0 0 4 3 3 4 0 0 0 0;
0 0 0 0 3 7 8 3 0 0 0 0;
0 0 0 0 0 8 7 0 0 0 0 0;
0 0 0 1 2 1 2 1 2 0 0 0;
0 0 1 2 1 2 1 2 1 2 0 0;
0 1 2 0 2 1 2 1 0 1 2 0;
0 4 0 0 1 2 1 2 0 0 4 0;
0 0 0 0 5 5 5 5 0 0 0 0;
0 0 0 0 1 1 1 1 0 0 0 0;
0 0 0 1 1 6 6 1 1 0 0 0;
0 0 1 1 6 0 0 6 1 1 0 0;
0 0 3 1 0 0 0 0 1 3 0 0];
imag5 = [2 0 0 0 1 1 1 1 1 0 0 0;
1 2 0 1 1 2 0 5 1 1 0 2;
0 1 2 1 2 0 0 0 0 1 2 1;
0 0 0 1 0 0 2 5 0 1 1 0;
0 0 0 1 0 0 2 0 0 1 0 0;
2 2 2 1 0 0 2 0 0 1 2 2;
1 1 0 3 3 2 2 0 3 3 0 1;
0 0 0 2 3 3 2 3 3 0 0 0;
0 2 2 2 0 4 2 4 0 2 2 0;
2 1 1 0 0 4 3 4 0 1 2 2;
1 1 0 0 0 4 3 4 0 0 1 2;
1 0 0 0 0 4 4 4 0 0 0 1];
imag6 = [0 2 1 1 1 1 1 1 1 1 2 0;
0 0 2 1 1 1 1 1 1 2 0 0;
0 0 0 0 0 0 0 0 0 0 0 0;
0 2 0 0 0 0 0 0 0 0 2 0;
0 0 2 3 3 0 0 3 3 2 0 0;
0 0 1 1 1 2 2 1 1 1 0 0;
2 1 1 0 1 1 1 1 0 1 1 2;
0 0 1 1 1 3 3 1 1 1 0 0;
2 1 1 1 1 4 4 1 1 1 1 2;
0 1 0 0 1 0 0 1 0 0 1 0;
1 0 0 1 1 2 2 1 1 0 0 1;
1 1 1 0 0 0 0 0 0 1 1 1];
imag7 = [0 0 0 1 0 0 0 0 0 0 0 0;
0 0 1 0 0 0 0 0 0 0 0 0;
0 0 0 0 1 0 0 0 0 0 0 0;
0 2 2 2 2 2 2 1 0 0 0 0;
2 0 0 0 0 0 1 1 3 0 0 0;
2 4 4 4 4 4 4 4 3 3 3 1;
2 0 0 0 0 0 2 1 3 1 0 3;
2 4 4 4 4 4 4 4 3 1 0 3;
2 0 0 0 0 0 2 1 3 3 1 1;
0 1 2 2 2 2 1 3 1 1 1 0;
0 0 3 3 3 3 3 1 0 0 0 0;
0 0 0 0 0 0 0 0 0 0 0 0];
imag8 = [0 0 0 5 4 4 4 5 0 0 0 0;
0 0 4 4 1 1 1 5 0 0 0 0;
0 0 5 5 1 1 1 5 5 0 0 0;
0 0 0 0 0 1 0 0 0 0 0 0;
0 0 0 4 3 6 3 4 0 0 0 0;
0 0 1 0 3 3 3 0 1 0 0 0;
0 1 0 0 1 3 1 0 0 1 0 0;
4 0 1 3 3 7 3 3 1 0 4 0;
0 0 2 2 2 2 2 2 2 0 0 0;
0 0 0 0 1 0 1 0 0 0 0 0;
0 0 0 0 1 0 1 0 0 0 0 0;
0 0 0 2 2 0 2 2 0 0 0 0];
imag9 = [1 0 1 1 3 1 1 3 1 1 0 0;
1 3 1 1 4 1 1 4 1 0 3 1;
1 1 4 5 0 0 0 0 1 3 1 1;
2 2 2 2 2 2 2 2 2 2 2 2;
0 2 1 2 2 2 1 2 2 4 0 6;
1 0 2 2 4 0 4 2 4 0 1 1;
3 0 0 0 0 0 0 0 0 0 4 3;
1 0 0 0 0 0 0 0 0 0 5 1;
0 3 0 0 2 4 2 0 0 0 3 1;
3 1 5 0 0 2 0 0 0 5 1 3;
1 0 3 1 0 0 0 1 3 0 1 5;
1 1 1 0 3 1 3 0 1 1 1 1];
imag10 = [0 0 0 0 0 0 1 2 0 0 0 0;
0 0 0 0 0 0 1 1 1 0 0 0;
0 0 0 0 0 0 1 2 1 2 0 0;
0 0 0 0 0 0 1 0 0 1 0 0;
0 0 0 0 0 0 1 0 0 0 0 0;
0 0 0 0 0 0 1 0 0 0 0 0;
0 0 0 0 0 0 1 0 0 0 0 0;
0 0 0 0 0 0 1 0 0 0 0 0;
0 0 2 1 1 2 1 0 0 0 0 0;
0 1 1 1 1 1 1 0 0 0 0 0;
0 2 1 1 1 1 1 0 0 0 0 0;
0 3 2 1 1 2 2 0 0 0 0 0];
imag11 = [15 15 3 3 0 15 15 15 15 15 15 15;
15 3 15 11 11 0 15 15 15 15 15 15;
3 15 11 11 15 0 15 15 15 15 15 15;
3 15 11 15 0 15 15 15 15 15 15 15;
3 11 11 15 0 15 15 15 15 15 15 15;
0 8 11 11 15 0 15 15 15 15 15 15;
15 0 8 11 11 15 0 15 0 0 15 15;
15 15 0 8 11 11 15 0 11 11 0 15;
15 15 15 0 8 11 11 15 11 11 11 0;
15 15 15 15 0 8 11 11 11 11 8 0;
15 15 15 15 15 0 8 11 11 8 0 15;
15 15 15 15 15 15 0 0 0 0 15 15];
imag12 = [0 0 4 1 3 3 1 0 0 5 5 5;
0 7 1 2 3 1 0 0 0 0 4 1;
4 3 2 3 1 0 0 0 0 4 1 0;
1 6 2 1 1 0 0 0 7 1 0 0;
3 2 2 2 1 5 0 0 5 5 5 5;
1 2 3 5 5 1 1 0 0 0 0 0;
3 2 2 3 2 6 0 0 0 0 0 0;
1 2 8 9 3 8 1 0 0 0 0 0;
1 6 2 8 7 3 1 1 0 0 0 3;
4 1 6 2 2 2 4 6 1 1 1 4;
0 4 1 6 7 2 2 2 3 1 4 0;
0 0 4 1 1 3 3 3 7 4 0 0];
imag13 = [0 0 0 0 0 0 3 0 0 0 0 0 0;
0 0 0 0 0 3 2 3 0 0 0 0 0;
0 0 0 0 6 5 1 5 6 0 0 0 0;
0 0 0 0 5 1 1 1 5 0 0 0 0;
5 7 6 7 2 1 1 1 2 7 6 7 5;
0 3 2 1 1 1 1 1 1 1 2 3 0;
0 0 4 2 1 1 1 1 1 2 4 0 0;
0 0 3 1 1 1 1 1 1 1 3 0 0;
0 4 2 1 1 3 6 3 1 1 2 4 0;
0 3 1 2 6 4 0 0 6 2 1 3 0;
4 2 3 4 0 0 0 0 0 4 3 2 4;
5 0 0 0 0 0 0 0 0 0 0 0 5];
imag14 = [2 2 0 0 0 2 2 0 0 0 2 2;
2 0 2 0 2 0 0 2 0 2 0 2;
2 2 0 2 0 0 0 2 0 0 2 2;
2 2 2 0 2 0 0 0 2 2 2 2;
1 1 1 1 1 1 2 1 1 1 1 1;
1 1 1 1 1 1 2 1 1 1 1 1;
1 1 1 1 1 1 2 1 1 1 1 1;
2 2 2 2 2 2 2 2 2 2 2 2;
1 1 1 1 1 1 2 1 1 1 1 1;
1 1 1 1 1 1 2 1 1 1 1 1;
1 1 1 1 1 1 2 1 1 1 1 1;
1 1 1 1 1 1 2 1 1 1 1 1];
imag15 = [1 1 1 1 1 1 1 1 1 1 1 1;
1 1 1 1 1 1 1 1 1 1 1 1;
1 1 1 0 0 1 1 0 0 1 1 1;
1 1 0 0 0 0 0 0 0 0 1 1;
1 0 0 0 0 0 0 0 0 0 0 1;
0 0 0 1 1 1 1 1 1 0 0 0;
1 0 0 0 1 1 1 1 0 0 0 1;
1 1 0 0 0 0 0 0 0 0 1 1;
1 1 1 0 0 0 0 0 0 1 1 1;
1 1 1 1 1 1 1 1 1 1 1 1;
1 1 1 1 1 1 1 1 1 1 1 1;
1 1 1 1 1 1 1 1 1 1 1 1];
imag16 = [ 1 1 1 1 1 1 1 1 1 1 1 1;
1 1 0 0 1 1 1 1 0 0 1 1;
1 0 0 0 0 1 1 0 0 0 0 1;
0 0 0 0 0 0 0 0 0 0 0 0;
0 0 0 0 0 0 0 0 0 0 0 0;
0 0 0 0 0 0 0 0 0 0 0 0;
1 0 0 0 0 0 0 0 0 0 0 1;
1 1 0 0 0 0 0 0 0 0 1 1;
1 1 1 0 0 0 0 0 0 1 1 1;
1 1 1 1 0 0 0 0 1 1 1 1;
1 1 1 1 1 0 0 1 1 1 1 1;
1 1 1 1 1 1 1 1 1 1 1 1];
imag17 = [1 1 1 1 0 0 4 1 1 1 1 1;
1 1 1 0 1 0 3 4 1 1 1 1;
1 1 0 3 0 1 0 3 4 1 1 1;
1 1 0 0 1 0 3 0 4 1 1 1;
1 1 1 0 0 3 0 4 1 1 1 1;
1 1 1 1 0 4 4 1 1 1 1 1;
1 1 1 1 2 2 2 1 1 1 1 1;
1 1 1 0 0 3 4 4 1 1 1 1;
1 1 0 0 2 0 3 0 4 1 1 1;
1 0 0 2 0 1 0 3 0 4 1 1;
1 0 2 0 2 0 1 0 3 4 1 1;
1 0 0 0 0 0 0 0 0 4 1 1];
imag18 = [3 2 2 5 5 3 3 3 2 2 2 2;
3 4 4 5 5 4 4 4 2 2 2 2;
6 6 6 6 6 6 6 6 6 2 6 2;
6 6 6 6 6 6 6 3 3 6 6 6;
6 6 6 6 6 6 3 5 5 3 6 6;
6 1 6 6 6 3 5 5 5 0 3 6;
6 1 6 6 6 3 5 5 0 0 3 6;
6 1 6 6 6 6 3 0 0 3 6 6;
6 1 6 6 6 6 6 3 3 6 6 6;
5 6 6 6 6 6 6 6 6 6 6 6;
4 4 4 4 4 4 4 4 4 4 4 4;
3 3 3 3 3 3 3 3 3 3 3 3];
imag19 = [2 2 2 2 3 3 3 3 2 2 2 2;
2 2 3 3 1 1 1 1 3 3 2 2;
2 3 1 1 1 1 1 1 1 1 3 2;
2 3 1 0 1 1 1 0 0 1 3 2;
3 1 1 1 0 1 1 0 0 1 1 3;
3 1 1 1 1 1 1 1 1 1 1 3;
3 1 1 0 1 1 1 1 1 1 1 3;
3 1 1 0 1 1 1 1 1 1 1 3;
2 3 1 1 0 1 1 1 0 1 3 2;
2 3 1 1 1 0 0 0 1 1 3 2;
2 2 3 3 1 1 1 1 3 3 2 2;
2 2 2 2 3 3 3 3 2 2 2 2];
imag20 = [4 4 4 2 2 2 2 2 4 4 4 4;
4 4 3 2 2 2 2 2 3 4 4 4;
4 4 3 2 2 2 2 2 3 4 4 4;
4 4 4 3 2 2 2 3 4 4 4 4;
4 4 4 2 2 2 2 2 4 4 4 4;
4 4 4 4 3 0 3 4 4 4 4 4;
4 4 4 4 4 0 4 4 1 1 4 4;
4 1 1 4 4 0 4 1 1 4 4 4;
4 4 1 1 4 0 1 1 1 4 4 4;
4 4 1 1 1 0 4 4 4 4 4 4;
4 4 4 4 4 0 4 4 4 4 4 4;
4 4 4 4 4 0 4 4 4 4 4 4];
imag21 = [3 3 3 3 4 4 4 4 3 3 3 3;
3 3 4 4 1 1 1 1 4 4 3 3;
3 4 1 1 1 1 1 1 1 1 4 3;
3 4 1 0 0 1 1 0 0 1 4 3;
4 1 1 0 0 1 1 0 0 1 1 4;
4 1 1 1 1 1 1 1 1 1 1 4;
4 1 1 1 1 1 1 1 1 1 1 4;
4 1 1 1 1 2 2 1 1 1 1 4;
3 4 1 1 2 1 1 2 1 1 4 3;
3 4 1 1 1 1 1 1 1 1 4 3;
3 3 4 4 1 1 1 1 4 4 3 3;
3 3 3 3 4 4 4 4 3 3 3 3];
imag22 = [2 2 2 2 3 3 3 3 2 2 2 2;
2 2 3 3 1 1 1 1 3 3 2 2;
2 3 1 1 1 1 1 1 1 1 3 2;
2 3 1 0 0 1 1 0 0 1 3 2;
3 1 1 0 0 1 1 0 0 1 1 3;
3 1 1 1 1 1 1 1 1 1 1 3;
3 1 1 1 1 1 1 1 1 1 1 3;
3 1 1 0 1 1 1 1 0 1 1 3;
2 3 1 1 0 0 0 0 1 1 3 2;
2 3 1 1 1 1 1 1 1 1 3 2;
2 2 3 3 1 1 1 1 3 3 2 2;
2 2 2 2 3 3 3 3 2 2 2 2];
imag23 = [2 2 2 2 3 3 3 3 2 2 2 2;
2 2 3 3 1 1 1 1 3 3 2 2;
2 3 1 1 1 1 1 1 1 1 3 2;
2 3 1 0 0 1 1 0 0 1 3 2;
3 1 1 0 0 1 1 0 0 1 1 3;
3 1 1 1 1 1 1 1 1 1 1 3;
3 1 1 1 1 1 1 1 1 1 1 3;
3 1 1 0 0 0 0 0 0 1 1 3;
2 3 1 1 0 1 1 0 1 1 3 2;
2 3 1 1 1 0 0 1 1 1 3 2;
2 2 3 3 1 1 1 1 3 3 2 2;
2 2 2 2 3 3 3 3 2 2 2 2];
imag24 = [2 2 2 2 3 3 3 3 2 2 2 2;
2 2 3 3 1 1 1 1 3 3 2 2;
2 3 1 1 1 1 1 1 1 1 3 2;
2 3 1 0 0 1 1 0 0 1 3 2;
3 1 1 0 0 1 1 0 0 1 1 3;
3 1 1 1 1 1 1 1 1 1 1 3;
3 1 1 1 1 0 0 1 1 1 1 3;
3 1 1 1 0 1 1 0 1 1 1 3;
2 3 1 1 0 1 1 0 1 1 3 2;
2 3 1 1 1 0 0 1 1 1 3 2;
2 2 3 3 1 1 1 1 3 3 2 2;
2 2 2 2 3 3 3 3 2 2 2 2];
imag25 = [3 3 3 3 4 4 4 4 3 3 3 3;
3 3 4 4 1 1 1 1 4 4 3 3;
3 4 1 1 1 1 1 1 1 1 4 3;
3 4 1 0 0 1 1 0 0 1 4 3;
4 1 1 0 0 1 1 0 0 1 1 4;
4 1 1 1 1 1 1 1 1 1 1 4;
4 1 1 1 1 1 1 1 1 1 1 4;
4 1 1 0 0 0 0 0 0 1 1 4;
3 4 1 1 1 0 2 2 0 1 4 3;
3 4 1 1 1 1 0 0 1 1 4 3;
3 3 4 4 1 1 1 1 4 4 3 3;
3 3 3 3 4 4 4 4 3 3 3 3];
imag26 = [1 1 1 0 0 0 0 0 0 1 1 1;
1 1 0 1 1 1 0 0 1 0 0 0;
1 0 0 0 0 0 1 0 1 1 1 0;
0 1 1 1 1 0 0 0 1 1 1 0;
0 0 0 0 0 0 1 1 1 1 1 0;
0 1 1 1 1 1 1 1 1 0 0 1;
1 0 0 0 0 1 1 1 0 1 1 1;
1 1 1 1 0 1 1 0 1 1 1 1;
1 1 1 1 0 1 1 0 1 1 1 1;
1 1 1 0 1 1 0 1 1 1 1 1;
1 1 1 0 1 0 1 1 1 1 1 1;
1 1 1 0 0 0 1 1 1 1 1 1];
imag27 = [1 1 1 0 0 0 1 1 1 1 1 1;
1 1 1 0 1 0 1 1 1 1 1 1;
1 1 1 0 1 1 0 1 1 1 1 1;
1 1 1 1 0 1 1 0 1 1 1 1;
1 1 1 1 0 1 1 0 1 1 1 1;
1 0 0 0 0 1 1 1 0 1 1 1;
0 1 1 1 1 1 1 1 1 0 0 1;
0 0 0 0 0 0 1 1 1 1 1 0;
0 1 1 1 1 0 0 0 1 1 1 0;
1 0 0 0 0 0 1 0 1 1 1 0;
1 1 0 1 1 1 0 0 1 0 0 0;
1 1 1 0 0 0 0 0 0 1 1 1];
imag28 = [1 1 1 1 1 1 1 1 1 1 1 1;
1 1 0 0 1 1 1 1 0 0 1 1;
1 0 0 0 0 1 1 0 0 0 0 1;
0 0 0 0 1 1 0 0 0 0 0 0;
0 0 0 0 0 1 1 0 0 0 0 0;
0 0 0 0 0 0 1 1 0 0 0 0;
1 0 0 0 0 1 1 0 0 0 0 1;
1 1 0 0 1 1 0 0 0 0 1 1;
1 1 1 0 0 1 1 0 0 1 1 1;
1 1 1 1 0 0 1 1 1 1 1 1;
1 1 1 1 1 0 0 1 1 1 1 1;
1 1 1 1 1 1 1 1 1 1 1 1];
imag29 = [1 1 1 2 1 1 1 1 2 1 1 1;
1 2 1 2 2 1 1 2 2 1 2 1;
2 2 2 2 1 2 2 1 2 2 2 2;
2 2 2 2 1 2 2 1 2 2 2 2;
2 2 2 2 2 2 2 2 2 2 2 2;
2 2 2 2 2 2 2 2 2 2 2 2;
2 2 2 2 0 2 2 0 2 2 2 2;
1 2 2 2 0 2 2 0 2 2 2 1;
1 2 2 2 1 1 1 1 2 2 2 1;
1 1 2 2 1 1 1 1 2 2 1 1;
1 1 1 2 1 1 1 1 2 1 1 1;
1 1 1 1 1 1 1 1 1 1 1 1];
% The code
u = rand(1,1);
u = 29 * u;
u = ceil(u); % u is random number between 1 & 29
fprintf('\n \t\t\t MIND READER')
fprintf('\n (1) Choose any two digit number')
fprintf('\n (2) Add together both digits')
fprintf('\n (3) Subtract the total from your original number')
fprintf('\n (4) When you have the final number look it up on the chart')
fprintf('\n and find the relevant symbol')
fprintf('\n (5) Concentrate on the symbol and when you have it clearly in your mind...')
fprintf('\n (6) Press (Enter) key and the symbol you are thinking of')
fprintf('\n will be displayed in a new figure window')
figure
for k = 1 : 100
if (k==10 | k==19 | k==28 | k==37 | k==46 | k==55 | k==64 | k==73 | k==82)
phot = u; % const for multiples on nine
else
phot = rand(1,1);
phot = 29 * phot;
phot = ceil(phot); % any random no between 1 & 29
end
switch phot
case 1
a = imag1;
case 2
a = imag2;
case 3
a = imag3;
case 4
a = imag4;
case 5
a = imag5;
case 6
a = imag6;
case 7
a = imag7;
case 8
a = imag8;
case 9
a = imag9;
case 10
a = imag10;
case 11
a = imag11;
case 12
a = imag12;
case 13
a = imag13;
case 14
a = imag14;
case 15
a = imag15;
case 16
a = imag16;
case 17
a = imag17;
case 18
a = imag18;
case 19
a = imag19;
case 20
a = imag20;
case 21
a = imag21;
case 22
a = imag22;
case 23
a = imag23;
case 24
a = imag24;
case 25
a = imag25;
case 26
a = imag26;
case 27
a = imag27;
case 28
a = imag28;
case 29
a = imag29;
otherwise
fprintf('\n Error in Program!!')
end
% Solution
if (k == 10)
sol = a;
end
% Display
mm = floor((k-1) / 20);
nn = mod((k-1),20);
subplot(10,20,((nn + 1)+(40 * mm)))
imagesc(a)
axis off
title(k - 1)
end
% Solution Display
pause % Wait for user to press Enter
close % Close current figure
% Whistle Generator Program
t = 0 : 1/2000 : 2.5;
sig = 0.7 * sin(10000 * t);
sound(sig,2000,8)
figure
subplot(5,9,23)
imagesc(sol)
axis off
title('The symbol in Your Mind!!!')
% End of Program
fprintf('\n\n\n Thank You for using this Program')
fprintf('\n Programmed by MINA AYMAN')
fprintf('\n Questions or Comments : e-mail ( mina_ayman@yahoo.com )\n')
clear
|
|
Contact us at files@mathworks.com
