-
Notifications
You must be signed in to change notification settings - Fork 5
/
Copy pathR_Z.m
24 lines (21 loc) · 2.6 KB
/
R_Z.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
function [ k ] = R_Z( X,Y )
%UNTITLED Summary of this function goes here
% Detailed explanation goes here
AC_coeff=[00,01,100,1011,11010,1111000,11111000,1111110110,1111111110000010,1111111110000011;
1100,11011,1111001,111110110,11111110110,1111111110000100,1111111110000101,1111111110000110,1111111110000111,1111111110001000;
11100,11111001,1111110111,111111110100,1111111110001001,1111111110001010,1111111110001011,1111111110001100,1111111110001101,1111111110001110;
111010,111110111,111111110101,1111111110001111,1111111110010000,1111111110010001,1111111110010010,1111111110010011,1111111110010100,1111111110010101;
111011,1111111000,1111111110010110,1111111110010111,1111111110011000,1111111110011001,1111111110011010,1111111110011011,1111111110011100,1111111110011101;
1111010,11111110111,1111111110011110,1111111110011111,1111111110100000,1111111110100001,1111111110100010,1111111110100011,1111111110100100,1111111110100101;
1111011,111111110110,1111111110100110,1111111110100111,1111111110101000,1111111110101001,1111111110101010,1111111110101011,1111111110101100,1111111110101101;
11111010,111111110111,1111111110101110,1111111110101111,1111111110110000,1111111110110001,1111111110110010,1111111110110011,1111111110110100,1111111110110101;
111111000,111111111000000,1111111110110110,1111111110110111,1111111110111000,1111111110111001,1111111110111010,1111111110111011,1111111110111100,1111111110111101;
111111001,1111111110111110,1111111110111111,1111111111000000,1111111111000001,1111111111000010,1111111111000011,1111111111000100,1111111111000101,1111111111000110;
111111010,1111111111000111,1111111111001000,1111111111001001,1111111111001010,1111111111001011,1111111111001100,1111111111001101,1111111111001110,1111111111001111;
1111111001,1111111111010000,1111111111010001,1111111111010010,1111111111010011,1111111111010100,1111111111010101,1111111111010110,1111111111010111,1111111111011000;
1111111010,1111111111011001,1111111111011010,1111111111011011,1111111111011100,1111111111011101,1111111111011110,1111111111011111,1111111111100000,1111111111100001;
11111111000,1111111111100010,1111111111100011,1111111111100100,1111111111100101,1111111111100110,1111111111100111,1111111111101000,1111111111101001,1111111111101010;
1111111111101011,1111111111101100,1111111111101101,1111111111101110,1111111111101111,1111111111110000,1111111111110001,1111111111110010,1111111111110011,1111111111110100;
1111111111110101,1111111111110110,1111111111110111,1111111111111000,1111111111111001,1111111111111010,1111111111111011,1111111111111100,1111111111111101,1111111111111110];
k=AC_coeff(Y+1,X);
end