Advertisement
Guest User

Untitled

a guest
Jun 27th, 2019
192
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Octave 12.45 KB | None | 0 0
  1. clc;
  2. close all;
  3. clear all;
  4.  A =[
  5.    
  6. 0 0 0 0 0 0 0 0 0 0 ...
  7. 0 0 0 1 1 1 0 0 0 0 ...
  8. 0 0 1 0 0 0 1 0 0 0 ...
  9. 0 1 0 0 0 0 0 1 0 0 ...
  10. 0 1 0 0 0 0 0 1 0 0 ...
  11. 0 1 1 1 1 1 1 1 0 0 ...
  12. 0 1 0 0 0 0 0 1 0 0 ...
  13. 0 1 0 0 0 0 0 1 0 0 ...
  14. 0 1 0 0 0 0 0 1 0 0 ...
  15. 0 0 0 0 0 0 0 0 0 0 ]';
  16.  
  17.  
  18. AA =[
  19.  
  20. 0 0 0 0 0 0 0 0 0 0 ...
  21. 0 0 0 1 1 1 0 0 0 0 ...
  22. 0 0 1 0 0 0 1 0 0 0 ...
  23. 0 1 0 0 0 0 0 1 0 0 ...
  24. 0 1 0 0 0 0 0 1 0 0 ...
  25. 0 1 1 1 1 1 1 1 0 0 ...
  26. 0 1 0 0 0 0 0 1 0 0 ...
  27. 0 1 0 0 0 0 0 1 0 0 ...
  28. 0 1 0 0 0 0 0 1 1 0 ...
  29. 0 0 0 0 0 0 0 1 1 0 ]';
  30.  
  31. B =[
  32.  
  33. 0 0 0 0 0 0 0 0 0 0 ...
  34. 0 1 1 1 0 0 0 0 0 0 ...
  35. 0 1 0 0 1 0 0 0 0 0 ...
  36. 0 1 0 0 1 0 0 0 0 0 ...
  37. 0 1 1 1 0 0 0 0 0 0 ...
  38. 0 1 1 1 0 0 0 0 0 0 ...
  39. 0 1 0 0 1 0 0 0 0 0 ...
  40. 0 1 0 0 0 1 0 0 0 0 ...
  41. 0 1 1 1 1 0 0 0 0 0 ...
  42. 0 0 0 0 0 0 0 0 0 0 ]';
  43.  
  44. C =[
  45.  
  46. 0 0 0 0 0 0 0 0 0 0 ...
  47. 0 0 0 0 1 1 1 0 0 0 ...
  48. 0 0 0 1 0 0 0 1 0 0 ...
  49. 0 0 1 0 0 0 0 1 0 0 ...
  50. 0 0 1 0 0 0 0 0 0 0 ...
  51. 0 0 1 0 0 0 0 0 0 0 ...
  52. 0 0 1 0 0 0 0 1 0 0 ...
  53. 0 0 0 1 0 0 0 1 0 0 ...
  54. 0 0 0 0 1 1 1 0 0 0 ...
  55. 0 0 0 0 0 0 0 0 0 0 ]';
  56.  
  57. CC =[
  58.  
  59. 0 0 0 0 0 1 0 0 0 0 ...
  60. 0 0 0 0 1 1 1 0 0 0 ...
  61. 0 0 0 1 0 0 0 1 0 0 ...
  62. 0 0 1 0 0 0 0 1 0 0 ...
  63. 0 0 1 0 0 0 0 0 0 0 ...
  64. 0 0 1 0 0 0 0 0 0 0 ...
  65. 0 0 1 0 0 0 0 1 0 0 ...
  66. 0 0 0 1 0 0 0 1 0 0 ...
  67. 0 0 0 0 1 1 1 0 0 0 ...
  68. 0 0 0 0 0 0 0 0 0 0 ]';
  69.  
  70.  
  71.  
  72. D =[
  73.  
  74. 0 0 0 0 0 0 0 0 0 0 ...
  75. 0 1 1 1 1 0 0 0 0 0 ...
  76. 0 1 0 0 0 1 0 0 0 0 ...
  77. 0 1 0 0 0 0 1 0 0 0 ...
  78. 0 1 0 0 0 0 1 0 0 0 ...
  79. 0 1 0 0 0 0 1 0 0 0 ...
  80. 0 1 0 0 0 0 1 0 0 0 ...
  81. 0 1 0 0 0 1 0 0 0 0 ...
  82. 0 1 1 1 1 0 0 0 0 0 ...
  83. 0 0 0 0 0 0 0 0 0 0 ]';
  84.  
  85.  
  86. E =[
  87.  
  88. 0 0 0 0 0 0 0 0 0 0 ...
  89. 0 1 1 1 1 1 0 0 0 0 ...
  90. 0 1 0 0 0 0 0 0 0 0 ...
  91. 0 1 0 0 0 0 0 0 0 0 ...
  92. 0 1 1 1 1 1 0 0 0 0 ...
  93. 0 1 0 0 0 0 0 0 0 0 ...
  94. 0 1 0 0 0 0 0 0 0 0 ...
  95. 0 1 0 0 0 0 0 0 0 0 ...
  96. 0 1 1 1 1 1 0 0 0 0 ...
  97. 0 0 0 0 0 0 0 0 0 0 ]';
  98.  
  99.  
  100. EE =[
  101.  
  102. 0 0 0 0 0 0 0 0 0 0 ...
  103. 0 1 1 1 1 1 0 0 0 0 ...
  104. 0 1 0 0 0 0 0 0 0 0 ...
  105. 0 1 0 0 0 0 0 0 0 0 ...
  106. 0 1 1 1 1 1 0 0 0 0 ...
  107. 0 1 0 0 0 0 0 0 0 0 ...
  108. 0 1 0 0 0 0 0 0 0 0 ...
  109. 0 1 0 0 0 0 0 0 0 0 ...
  110. 0 1 1 1 1 1 0 0 0 0 ...
  111. 0 0 0 0 1 1 0 0 0 0 ]';
  112.  
  113.  
  114.  
  115. F =[
  116.  
  117. 0 0 0 0 0 0 0 0 0 0 ...
  118. 0 1 1 1 1 1 0 0 0 0 ...
  119. 0 1 0 0 0 0 0 0 0 0 ...
  120. 0 1 0 0 0 0 0 0 0 0 ...
  121. 0 1 1 1 1 1 0 0 0 0 ...
  122. 0 1 0 0 0 0 0 0 0 0 ...
  123. 0 1 0 0 0 0 0 0 0 0 ...
  124. 0 1 0 0 0 0 0 0 0 0 ...
  125. 0 1 0 0 0 0 0 0 0 0 ...
  126. 0 0 0 0 0 0 0 0 0 0 ]';
  127.  
  128.  
  129.  
  130. G =[
  131.  
  132. 0 0 0 0 0 0 0 0 0 0 ...
  133. 0 0 0 0 1 1 1 0 0 0 ...
  134. 0 0 0 1 0 0 0 1 0 0 ...
  135. 0 0 1 0 0 0 0 1 0 0 ...
  136. 0 0 1 0 0 0 0 0 0 0 ...
  137. 0 0 1 0 0 0 0 0 0 0 ...
  138. 0 0 1 0 1 1 1 1 0 0 ...
  139. 0 0 0 1 0 0 0 1 0 0 ...
  140. 0 0 0 0 1 1 1 0 0 0 ...
  141. 0 0 0 0 0 0 0 0 0 0 ]';
  142.  
  143.  
  144.  
  145. H =[
  146.  
  147. 0 0 0 0 0 0 0 0 0 0 ...
  148. 0 1 0 0 0 0 1 0 0 0 ...
  149. 0 1 0 0 0 0 1 0 0 0 ...
  150. 0 1 0 0 0 0 1 0 0 0 ...
  151. 0 1 0 0 0 0 1 0 0 0 ...
  152. 0 1 1 1 1 1 1 0 0 0 ...
  153. 0 1 0 0 0 0 1 0 0 0 ...
  154. 0 1 0 0 0 0 1 0 0 0 ...
  155. 0 1 0 0 0 0 1 0 0 0 ...
  156. 0 0 0 0 0 0 0 0 0 0 ]';
  157.  
  158.  
  159.  
  160. I =[
  161.  
  162. 0 0 0 0 0 0 0 0 0 0 ...
  163. 0 0 1 1 1 1 1 0 0 0 ...
  164. 0 0 0 0 1 0 0 0 0 0 ...
  165. 0 0 0 0 1 0 0 0 0 0 ...
  166. 0 0 0 0 1 0 0 0 0 0 ...
  167. 0 0 0 0 1 0 0 0 0 0 ...
  168. 0 0 0 0 1 0 0 0 0 0 ...
  169. 0 0 0 0 1 0 0 0 0 0 ...
  170. 0 0 1 1 1 1 1 0 0 0 ...
  171. 0 0 0 0 0 0 0 0 0 0 ]';
  172.  
  173.  
  174.  
  175. J =[
  176.  
  177. 0 0 0 0 0 0 0 0 0 0 ...
  178. 0 0 0 0 0 0 0 1 0 0 ...
  179. 0 0 0 0 0 0 0 1 0 0 ...
  180. 0 0 0 0 0 0 0 1 0 0 ...
  181. 0 0 0 0 0 0 0 1 0 0 ...
  182. 0 0 0 0 0 0 0 1 0 0 ...
  183. 0 0 1 0 0 0 0 1 0 0 ...
  184. 0 0 1 0 0 0 1 0 0 0 ...
  185. 0 0 0 1 1 1 0 0 0 0 ...
  186. 0 0 0 0 0 0 0 0 0 0 ]';
  187.  
  188.  
  189. K =[
  190.  
  191. 0 0 0 0 0 0 0 0 0 0 ...
  192. 0 1 0 0 0 1 0 0 0 0 ...
  193. 0 1 0 0 1 0 0 0 0 0 ...
  194. 0 1 0 1 0 0 0 0 0 0 ...
  195. 0 1 1 0 0 0 0 0 0 0 ...
  196. 0 1 1 0 0 0 0 0 0 0 ...
  197. 0 1 0 1 0 0 0 0 0 0 ...
  198. 0 1 0 0 1 0 0 0 0 0 ...
  199. 0 1 0 0 0 1 0 0 0 0 ...
  200. 0 0 0 0 0 0 0 0 0 0 ]';
  201.  
  202.  
  203.  
  204. L =[
  205.  
  206. 0 0 0 0 0 0 0 0 0 0 ...
  207. 0 1 0 0 0 0 0 0 0 0 ...
  208. 0 1 0 0 0 0 0 0 0 0 ...
  209. 0 1 0 0 0 0 0 0 0 0 ...
  210. 0 1 0 0 0 0 0 0 0 0 ...
  211. 0 1 0 0 0 0 0 0 0 0 ...
  212. 0 1 0 0 0 0 0 0 0 0 ...
  213. 0 1 0 0 0 0 0 0 0 0 ...
  214. 0 1 1 1 1 1 0 0 0 0 ...
  215. 0 0 0 0 0 0 0 0 0 0 ]';
  216.  
  217.  
  218.  
  219. LL =[
  220.  
  221. 0 0 0 0 0 0 0 0 0 0 ...
  222. 0 1 0 0 0 0 0 0 0 0 ...
  223. 0 1 0 0 0 0 0 0 0 0 ...
  224. 0 1 0 1 0 0 0 0 0 0 ...
  225. 0 1 1 0 0 0 0 0 0 0 ...
  226. 0 1 0 0 0 0 0 0 0 0 ...
  227. 1 1 0 0 0 0 0 0 0 0 ...
  228. 0 1 0 0 0 0 0 0 0 0 ...
  229. 0 1 1 1 1 1 0 0 0 0 ...
  230. 0 0 0 0 0 0 0 0 0 0 ]';
  231.  
  232.  
  233. M =[
  234.  
  235. 0 0 0 0 0 0 0 0 0 0 ...
  236. 0 1 0 0 0 0 0 0 1 0 ...
  237. 0 1 1 0 0 0 0 1 1 0 ...
  238. 0 1 0 1 0 0 1 0 1 0 ...
  239. 0 1 0 0 1 1 0 0 1 0 ...
  240. 0 1 0 0 0 0 0 0 1 0 ...
  241. 0 1 0 0 0 0 0 0 1 0 ...
  242. 0 1 0 0 0 0 0 0 1 0 ...
  243. 0 1 0 0 0 0 0 0 1 0 ...
  244. 0 0 0 0 0 0 0 0 0 0 ]';
  245.  
  246.  
  247. N =[
  248.  
  249. 0 0 0 0 0 0 0 0 0 0 ...
  250. 0 1 0 0 0 0 0 0 1 0 ...
  251. 0 1 1 0 0 0 0 0 1 0 ...
  252. 0 1 0 1 0 0 0 0 1 0 ...
  253. 0 1 0 0 1 0 0 0 1 0 ...
  254. 0 1 0 0 0 1 0 0 1 0 ...
  255. 0 1 0 0 0 0 1 0 1 0 ...
  256. 0 1 0 0 0 0 0 1 1 0 ...
  257. 0 1 0 0 0 0 0 0 1 0 ...
  258. 0 0 0 0 0 0 0 0 0 0 ]';
  259.  
  260.  
  261. NN =[
  262.  
  263. 0 0 0 0 0 0 0 0 0 0 ...
  264. 0 1 0 0 0 0 0 0 1 0 ...
  265. 0 1 1 0 0 0 0 0 1 0 ...
  266. 0 1 0 1 0 0 1 0 1 0 ...
  267. 0 1 0 0 1 1 0 0 1 0 ...
  268. 0 1 0 1 0 1 0 0 1 0 ...
  269. 0 1 0 0 0 0 1 0 1 0 ...
  270. 0 1 0 0 0 0 0 1 1 0 ...
  271. 0 1 0 0 0 0 0 0 1 0 ...
  272. 0 0 0 0 0 0 0 0 0 0 ]';
  273.  
  274.  
  275. O =[
  276.  
  277. 0 0 0 0 0 0 0 0 0 0 ...
  278. 0 0 0 1 1 1 0 0 0 0 ...
  279. 0 0 1 0 0 0 1 0 0 0 ...
  280. 0 1 0 0 0 0 0 1 0 0 ...
  281. 0 1 0 0 0 0 0 1 0 0 ...
  282. 0 1 0 0 0 0 0 1 0 0 ...
  283. 0 1 0 0 0 0 0 1 0 0 ...
  284. 0 0 1 0 0 0 1 0 0 0 ...
  285. 0 0 0 1 1 1 0 0 0 0 ...
  286. 0 0 0 0 0 0 0 0 0 0 ]';
  287.  
  288.  
  289.  
  290. OO =[
  291.  
  292. 0 0 0 0 1 0 0 0 0 0 ...
  293. 0 0 0 1 1 1 0 0 0 0 ...
  294. 0 0 1 0 0 0 1 0 0 0 ...
  295. 0 1 0 0 0 0 0 1 0 0 ...
  296. 0 1 0 0 0 0 0 1 0 0 ...
  297. 0 1 0 0 0 0 0 1 0 0 ...
  298. 0 1 0 0 0 0 0 1 0 0 ...
  299. 0 0 1 0 0 0 1 0 0 0 ...
  300. 0 0 0 1 1 1 0 0 0 0 ...
  301. 0 0 0 0 0 0 0 0 0 0 ]';
  302.  
  303.  
  304.  
  305. P =[
  306.  
  307. 0 0 0 0 0 0 0 0 0 0 ...
  308. 0 1 1 1 1 0 0 0 0 0 ...
  309. 0 1 0 0 0 1 0 0 0 0 ...
  310. 0 1 0 0 0 1 0 0 0 0 ...
  311. 0 1 0 0 0 1 0 0 0 0 ...
  312. 0 1 1 1 1 0 0 0 0 0 ...
  313. 0 1 0 0 0 0 0 0 0 0 ...
  314. 0 1 0 0 0 0 0 0 0 0 ...
  315. 0 1 0 0 0 0 0 0 0 0 ...
  316. 0 0 0 0 0 0 0 0 0 0 ]';
  317.  
  318.  
  319.  
  320. R =[
  321.  
  322. 0 0 0 0 0 0 0 0 0 0 ...
  323. 0 1 1 1 1 0 0 0 0 0 ...
  324. 0 1 0 0 0 1 0 0 0 0 ...
  325. 0 1 0 0 0 1 0 0 0 0 ...
  326. 0 1 1 1 1 0 0 0 0 0 ...
  327. 0 1 1 0 0 0 0 0 0 0 ...
  328. 0 1 0 1 0 0 0 0 0 0 ...
  329. 0 1 0 0 1 0 0 0 0 0 ...
  330. 0 1 0 0 0 1 0 0 0 0 ...
  331. 0 0 0 0 0 0 0 0 0 0 ]';
  332.  
  333.  
  334.  
  335. S =[
  336.  
  337. 0 0 0 0 0 0 0 0 0 0 ...
  338. 0 0 0 1 1 1 1 0 0 0 ...
  339. 0 0 1 0 0 0 0 1 0 0 ...
  340. 0 0 1 0 0 0 0 0 0 0 ...
  341. 0 0 0 1 1 1 1 0 0 0 ...
  342. 0 0 0 0 0 0 0 1 0 0 ...
  343. 0 0 0 0 0 0 0 1 0 0 ...
  344. 0 0 1 0 0 0 0 1 0 0 ...
  345. 0 0 0 1 1 1 1 0 0 0 ...
  346. 0 0 0 0 0 0 0 0 0 0 ]';
  347.  
  348.  
  349.  
  350. SS =[
  351.  
  352. 0 0 0 0 0 1 0 0 0 0 ...
  353. 0 0 0 1 1 1 1 0 0 0 ...
  354. 0 0 1 0 0 0 0 1 0 0 ...
  355. 0 0 1 0 0 0 0 0 0 0 ...
  356. 0 0 0 1 1 1 1 0 0 0 ...
  357. 0 0 0 0 0 0 0 1 0 0 ...
  358. 0 0 0 0 0 0 0 1 0 0 ...
  359. 0 0 1 0 0 0 0 1 0 0 ...
  360. 0 0 0 1 1 1 1 0 0 0 ...
  361. 0 0 0 0 0 0 0 0 0 0 ]';
  362.  
  363.  
  364.  
  365. T =[
  366.  
  367. 0 0 0 0 0 0 0 0 0 0 ...
  368. 0 1 1 1 1 1 1 1 0 0 ...
  369. 0 0 0 0 1 0 0 0 0 0 ...
  370. 0 0 0 0 1 0 0 0 0 0 ...
  371. 0 0 0 0 1 0 0 0 0 0 ...
  372. 0 0 0 0 1 0 0 0 0 0 ...
  373. 0 0 0 0 1 0 0 0 0 0 ...
  374. 0 0 0 0 1 0 0 0 0 0 ...
  375. 0 0 0 0 1 0 0 0 0 0 ...
  376. 0 0 0 0 0 0 0 0 0 0 ]';
  377.  
  378.  
  379.  
  380. U =[
  381.  
  382. 0 0 0 0 0 0 0 0 0 0 ...
  383. 0 1 0 0 0 0 0 1 0 0 ...
  384. 0 1 0 0 0 0 0 1 0 0 ...
  385. 0 1 0 0 0 0 0 1 0 0 ...
  386. 0 1 0 0 0 0 0 1 0 0 ...
  387. 0 1 0 0 0 0 0 1 0 0 ...
  388. 0 1 0 0 0 0 0 1 0 0 ...
  389. 0 0 1 0 0 0 1 0 0 0 ...
  390. 0 0 0 1 1 1 0 0 0 0 ...
  391. 0 0 0 0 0 0 0 0 0 0 ]';
  392.  
  393.  
  394.  
  395. W =[
  396.  
  397. 0 0 0 0 0 0 0 0 0 0 ...
  398. 0 1 0 0 0 0 0 0 1 0 ...
  399. 0 1 0 0 0 0 0 0 1 0 ...
  400. 0 1 0 0 0 0 0 0 1 0 ...
  401. 0 1 0 0 0 0 0 0 1 0 ...
  402. 0 1 0 0 1 1 0 0 1 0 ...
  403. 0 1 0 1 0 0 1 0 1 0 ...
  404. 0 1 1 0 0 0 0 1 1 0 ...
  405. 0 1 0 0 0 0 0 0 1 0 ...
  406. 0 0 0 0 0 0 0 0 0 0 ]';
  407.  
  408.  
  409. X =[
  410.  
  411. 0 0 0 0 0 0 0 0 0 0 ...
  412. 0 1 0 0 0 0 0 0 1 0 ...
  413. 0 0 1 0 0 0 0 1 0 0 ...
  414. 0 0 0 1 0 0 1 0 0 0 ...
  415. 0 0 0 0 1 1 0 0 0 0 ...
  416. 0 0 0 0 1 1 0 0 0 0 ...
  417. 0 0 0 1 0 0 1 0 0 0 ...
  418. 0 0 1 0 0 0 0 1 0 0 ...
  419. 0 1 0 0 0 0 0 0 1 0 ...
  420. 0 0 0 0 0 0 0 0 0 0 ]';
  421.  
  422.  
  423.  
  424. Y =[
  425.  
  426. 0 0 0 0 0 0 0 0 0 0 ...
  427. 0 1 0 0 0 0 0 1 0 0 ...
  428. 0 0 1 0 0 0 1 0 0 0 ...
  429. 0 0 0 1 0 1 0 0 0 0 ...
  430. 0 0 0 0 1 0 0 0 0 0 ...
  431. 0 0 0 0 1 0 0 0 0 0 ...
  432. 0 0 0 0 1 0 0 0 0 0 ...
  433. 0 0 0 0 1 0 0 0 0 0 ...
  434. 0 0 0 0 1 0 0 0 0 0 ...
  435. 0 0 0 0 0 0 0 0 0 0 ]';
  436.  
  437.  
  438.  
  439. Z =[
  440.  
  441. 0 0 0 0 0 0 0 0 0 0 ...
  442. 0 0 0 0 0 0 0 0 0 0 ...
  443. 0 1 1 1 1 1 1 1 0 0 ...
  444. 0 0 0 0 0 0 1 0 0 0 ...
  445. 0 0 0 0 0 1 0 0 0 0 ...
  446. 0 0 0 0 1 0 0 0 0 0 ...
  447. 0 0 0 1 0 0 0 0 0 0 ...
  448. 0 0 1 0 0 0 0 0 0 0 ...
  449. 0 1 1 1 1 1 1 1 0 0 ...
  450. 0 0 0 0 0 0 0 0 0 0 ]';
  451.  
  452.  
  453.  
  454. ZZ =[
  455.  
  456. 0 0 0 0 0 1 0 0 0 0 ...
  457. 0 0 0 0 1 0 0 0 0 0 ...
  458. 0 1 1 1 1 1 1 1 0 0 ...
  459. 0 0 0 0 0 0 1 0 0 0 ...
  460. 0 0 0 0 0 1 0 0 0 0 ...
  461. 0 0 0 0 1 0 0 0 0 0 ...
  462. 0 0 0 1 0 0 0 0 0 0 ...
  463. 0 0 1 0 0 0 0 0 0 0 ...
  464. 0 1 1 1 1 1 1 1 0 0 ...
  465. 0 0 0 0 0 0 0 0 0 0 ]';
  466.  
  467.  
  468.  
  469. ZZZ =[
  470.  
  471. 0 0 0 0 1 0 0 0 0 0 ...
  472. 0 0 0 0 0 0 0 0 0 0 ...
  473. 0 1 1 1 1 1 1 1 0 0 ...
  474. 0 0 0 0 0 0 1 0 0 0 ...
  475. 0 0 0 0 0 1 0 0 0 0 ...
  476. 0 0 0 0 1 0 0 0 0 0 ...
  477. 0 0 0 1 0 0 0 0 0 0 ...
  478. 0 0 1 0 0 0 0 0 0 0 ...
  479. 0 1 1 1 1 1 1 1 0 0 ...
  480. 0 0 0 0 0 0 0 0 0 0 ]';
  481.  
  482.  
  483.  
  484. ZERO =[
  485.  
  486. 0 0 0 0 0 0 0 0 0 0 ...
  487. 0 0 0 1 1 0 0 0 0 0 ...
  488. 0 0 1 0 0 1 0 0 0 0 ...
  489. 0 0 1 0 0 1 0 0 0 0 ...
  490. 0 0 1 0 0 1 0 0 0 0 ...
  491. 0 0 1 0 0 1 0 0 0 0 ...
  492. 0 0 1 0 0 1 0 0 0 0 ...
  493. 0 0 1 0 0 1 0 0 0 0 ...
  494. 0 0 0 1 1 0 0 0 0 0 ...
  495. 0 0 0 0 0 0 0 0 0 0 ]';
  496.  
  497.  
  498.  
  499. JEDEN =[
  500.  
  501. 0 0 0 0 0 0 0 0 0 0 ...
  502. 0 0 0 0 1 1 0 0 0 0 ...
  503. 0 0 0 1 0 1 0 0 0 0 ...
  504. 0 0 1 0 0 1 0 0 0 0 ...
  505. 0 0 0 0 0 1 0 0 0 0 ...
  506. 0 0 0 0 0 1 0 0 0 0 ...
  507. 0 0 0 0 0 1 0 0 0 0 ...
  508. 0 0 0 0 0 1 0 0 0 0 ...
  509. 0 0 0 0 0 1 0 0 0 0 ...
  510. 0 0 0 0 0 0 0 0 0 0 ]';
  511.  
  512.  
  513. DWA =[
  514.  
  515. 0 0 0 0 0 0 0 0 0 0 ...
  516. 0 0 0 1 1 1 0 0 0 0 ...
  517. 0 0 1 0 0 0 1 0 0 0 ...
  518. 0 0 0 0 0 0 1 0 0 0 ...
  519. 0 0 0 0 0 1 0 0 0 0 ...
  520. 0 0 0 0 1 0 0 0 0 0 ...
  521. 0 0 0 1 0 0 0 0 0 0 ...
  522. 0 0 1 0 0 0 0 0 0 0 ...
  523. 0 0 1 1 1 1 1 0 0 0 ...
  524. 0 0 0 0 0 0 0 0 0 0 ]';
  525.  
  526.  
  527. TRZY =[
  528.  
  529. 0 0 0 0 0 0 0 0 0 0 ...
  530. 0 0 0 1 1 1 0 0 0 0 ...
  531. 0 0 1 0 0 0 1 0 0 0 ...
  532. 0 0 0 0 0 0 1 0 0 0 ...
  533. 0 0 0 0 1 1 0 0 0 0 ...
  534. 0 0 0 0 0 0 1 0 0 0 ...
  535. 0 0 1 0 0 0 1 0 0 0 ...
  536. 0 0 0 1 1 1 0 0 0 0 ...
  537. 0 0 0 0 0 0 0 0 0 0 ...
  538. 0 0 0 0 0 0 0 0 0 0 ]';
  539.  
  540.  
  541. CZTERY =[
  542.  
  543. 0 0 0 0 0 0 0 0 0 0 ...
  544. 0 0 1 0 0 0 0 0 0 0 ...
  545. 0 0 1 0 0 0 0 0 0 0 ...
  546. 0 0 1 0 0 0 1 0 0 0 ...
  547. 0 0 1 1 1 1 1 0 0 0 ...
  548. 0 0 0 0 0 0 1 0 0 0 ...
  549. 0 0 0 0 0 0 1 0 0 0 ...
  550. 0 0 0 0 0 0 1 0 0 0 ...
  551. 0 0 0 0 0 0 1 0 0 0 ...
  552. 0 0 0 0 0 0 0 0 0 0 ]';
  553.  
  554.  
  555.  
  556. PIEC =[
  557.  
  558. 0 0 0 0 0 0 0 0 0 0 ...
  559. 0 0 0 1 1 1 1 0 0 0 ...
  560. 0 0 1 0 0 0 0 0 0 0 ...
  561. 0 0 1 0 0 0 0 0 0 0 ...
  562. 0 0 0 1 1 1 0 0 0 0 ...
  563. 0 0 0 0 0 0 1 0 0 0 ...
  564. 0 0 0 0 0 0 1 0 0 0 ...
  565. 0 0 0 0 0 0 1 0 0 0 ...
  566. 0 0 1 1 1 1 0 0 0 0 ...
  567. 0 0 0 0 0 0 0 0 0 0 ]';
  568.  
  569.  
  570. SZESC =[
  571.  
  572. 0 0 0 0 0 0 0 0 0 0 ...
  573. 0 0 0 1 1 1 0 0 0 0 ...
  574. 0 0 1 0 0 0 1 0 0 0 ...
  575. 0 0 1 0 0 0 0 0 0 0 ...
  576. 0 0 1 0 0 0 0 0 0 0 ...
  577. 0 0 1 1 1 1 0 0 0 0 ...
  578. 0 0 1 0 0 0 1 0 0 0 ...
  579. 0 0 1 0 0 0 1 0 0 0 ...
  580. 0 0 0 1 1 1 0 0 0 0 ...
  581. 0 0 0 0 0 0 0 0 0 0 ]';
  582.  
  583.  
  584.  
  585. SIEDEM =[
  586.  
  587. 0 0 0 0 0 0 0 0 0 0 ...
  588. 0 0 1 1 1 1 1 1 0 0 ...
  589. 0 0 0 0 0 0 0 1 0 0 ...
  590. 0 0 0 0 0 0 1 0 0 0 ...
  591. 0 0 0 0 0 1 0 0 0 0 ...
  592. 0 0 0 0 1 0 0 0 0 0 ...
  593. 0 0 0 1 0 0 0 0 0 0 ...
  594. 0 0 1 0 0 0 0 0 0 0 ...
  595. 0 0 0 0 0 0 0 0 0 0 ...
  596. 0 0 0 0 0 0 0 0 0 0 ]';
  597.  
  598.  
  599.  
  600. OSIEM =[
  601.  
  602. 0 0 0 0 0 0 0 0 0 0 ...
  603. 0 0 0 0 1 1 1 0 0 0 ...
  604. 0 0 0 1 0 0 0 1 0 0 ...
  605. 0 0 0 0 1 0 1 0 0 0 ...
  606. 0 0 0 0 0 1 0 0 0 0 ...
  607. 0 0 0 0 1 0 1 0 0 0 ...
  608. 0 0 0 1 0 0 0 1 0 0 ...
  609. 0 0 0 1 0 0 0 1 0 0 ...
  610. 0 0 0 0 1 1 1 0 0 0 ...
  611. 0 0 0 0 0 0 0 0 0 0 ]';
  612.  
  613.  
  614.  
  615. DZIEWIEC =[
  616.  
  617. 0 0 0 0 0 0 0 0 0 0 ...
  618. 0 0 0 1 1 1 0 0 0 0 ...
  619. 0 0 1 0 0 0 1 0 0 0 ...
  620. 0 0 1 0 0 0 1 0 0 0 ...
  621. 0 0 0 1 1 1 1 0 0 0 ...
  622. 0 0 0 0 0 0 1 0 0 0 ...
  623. 0 0 0 0 0 0 1 0 0 0 ...
  624. 0 0 1 0 0 0 1 0 0 0 ...
  625. 0 0 0 1 1 1 1 0 0 0 ...
  626. 0 0 0 0 0 0 0 0 0 0 ]';
  627.  
  628.  
  629.  
  630. WZZ = [A AA B C CC D E EE F G H I J K L LL M N NN O OO P R S SS T U W X Y Z ZZ ZZZ ZERO JEDEN DWA TRZY CZTERY PIEC SZESC SIEDEM OSIEM DZIEWIEC];
  631.  
  632. statystyka = zeros(51,102);
  633. for litera = 1:1:43;
  634.     for stopien_zaszumienia = 0:1:50
  635.         for liczba_powtorzen = 1:1:20 %20 razy powtorzy program
  636.             alfa = WZZ(:,litera);
  637.  
  638.             for j = 0:1:stopien_zaszumienia
  639.             los = randperm(100);
  640.             ind = los(1);
  641.             alfa(ind) = ~alfa(ind);
  642.             end
  643.  
  644.             for i = 1:1:43 %(ilosc wozorcow
  645.                 g(i) = 2*WZZ(:,i)'*alfa - WZZ(:,i)' *WZZ(:,i);
  646.             end
  647.             [mmax, ind] = max(g);
  648.  
  649.             if ind == litera
  650.                 %disp('OK');
  651.                 statystyka(stopien_zaszumienia + 1,litera) = statystyka(stopien_zaszumienia + 1,litera) + 1;
  652.             end
  653.         end
  654.     end
  655. end
  656. for wykres = 1:1:43
  657.     figure(wykres);
  658.     bar(100*[0:1/100:17/100],5*statystyka(:,wykres))
  659.     axis([0,50,0,100])
  660.     Nazwa =[A AA B C CC D E EE F G H I J K L LL M N NN O OO P R S SS T U W X Y Z ZZ ZZZ ZERO JEDEN DWA TRZY CZTERY PIEC SZESC SIEDEM OSIEM DZIEWIEC];
  661. title(['Badany znak: ',Nazwa(wykres)]);
  662. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement