#include <stdio.h>
#include "math.h"
#include "stdlib.h"



void Cmf_Window(const long p_window[],long p_data[]);
void Cmf_Group_Fir(const long p_Fir[],long p_data[]);
void Cmf_Fir(const long p_Fir[],long p_data[]);
void Cmf_Sgolayfilt(long p_data[]);
double Cmf_Get_Phase_dif(long p_ldata[],long p_rdata[]);



const long Hamming_Window[2048]={
2621,   2621,   2622,   2622,   2622,   2623,   2624,   2625,   2626,   2627,   2628,   

2630,   2632,   2633,   2635,   2637,   2640,   2642,   2644,   2647,   2650,   2653,   

2656,   2659,   2662,   2666,   2669,   2673,   2677,   2681,   2685,   2690,   2694,   

2699,   2703,   2708,   2713,   2718,   2724,   2729,   2735,   2741,   2746,   2752,   

2759,   2765,   2771,   2778,   2785,   2792,   2799,   2806,   2813,   2820,   2828,   

2836,   2843,   2851,   2860,   2868,   2876,   2885,   2893,   2902,   2911,   2920,   

2930,   2939,   2948,   2958,   2968,   2978,   2988,   2998,   3009,   3019,   3030,   

3040,   3051,   3062,   3074,   3085,   3096,   3108,   3120,   3131,   3143,   3156,   

3168,   3180,   3193,   3206,   3218,   3231,   3244,   3258,   3271,   3285,   3298,   

3312,   3326,   3340,   3354,   3368,   3383,   3397,   3412,   3427,   3442,   3457,   

3472,   3488,   3503,   3519,   3535,   3551,   3567,   3583,   3599,   3616,   3632,   

3649,   3666,   3683,   3700,   3717,   3735,   3752,   3770,   3788,   3806,   3824,   

3842,   3860,   3878,   3897,   3916,   3935,   3953,   3973,   3992,   4011,   4031,   

4050,   4070,   4090,   4110,   4130,   4150,   4170,   4191,   4212,   4232,   4253,   

4274,   4295,   4317,   4338,   4359,   4381,   4403,   4425,   4447,   4469,   4491,   

4514,   4536,   4559,   4581,   4604,   4627,   4650,   4674,   4697,   4720,   4744,   

4768,   4792,   4816,   4840,   4864,   4888,   4913,   4937,   4962,   4987,   5012,   

5037,   5062,   5087,   5113,   5138,   5164,   5190,   5216,   5242,   5268,   5294,   

5320,   5347,   5373,   5400,   5427,   5454,   5481,   5508,   5535,   5563,   5590,   

5618,   5646,   5674,   5702,   5730,   5758,   5786,   5815,   5843,   5872,   5901,   

5929,   5958,   5987,   6017,   6046,   6075,   6105,   6135,   6164,   6194,   6224,   

6254,   6284,   6315,   6345,   6376,   6406,   6437,   6468,   6499,   6530,   6561,   

6592,   6623,   6655,   6686,   6718,   6750,   6782,   6814,   6846,   6878,   6910,   

6942,   6975,   7007,   7040,   7073,   7106,   7139,   7172,   7205,   7238,   7272,   

7305,   7339,   7372,   7406,   7440,   7474,   7508,   7542,   7576,   7611,   7645,   

7680,   7714,   7749,   7784,   7819,   7854,   7889,   7924,   7959,   7995,   8030,   

8066,   8101,   8137,   8173,   8209,   8245,   8281,   8317,   8353,   8390,   8426,   

8463,   8499,   8536,   8573,   8610,   8647,   8684,   8721,   8758,   8795,   8833,   

8870,   8908,   8945,   8983,   9021,   9059,   9097,   9135,   9173,   9211,   9249,   

9288,   9326,   9365,   9403,   9442,   9481,   9520,   9558,   9597,   9637,   9676,   

9715,   9754,   9794,   9833,   9872,   9912,   9952,   9991,  10031,  10071,  10111,  

10151,  10191,  10231,  10272,  10312,  10352,  10393,  10433,  10474,  10514,  10555,  

10596,  10637,  10678,  10719,  10760,  10801,  10842,  10883,  10925,  10966,  11007,  

11049,  11090,  11132,  11174,  11215,  11257,  11299,  11341,  11383,  11425,  11467,  

11509,  11552,  11594,  11636,  11679,  11721,  11763,  11806,  11849,  11891,  11934,  

11977,  12020,  12063,  12106,  12149,  12192,  12235,  12278,  12321,  12364,  12408,  

12451,  12494,  12538,  12581,  12625,  12668,  12712,  12756,  12799,  12843,  12887,  

12931,  12975,  13019,  13063,  13107,  13151,  13195,  13239,  13284,  13328,  13372,  

13416,  13461,  13505,  13550,  13594,  13639,  13683,  13728,  13773,  13817,  13862,  

13907,  13952,  13996,  14041,  14086,  14131,  14176,  14221,  14266,  14311,  14356,  

14401,  14447,  14492,  14537,  14582,  14628,  14673,  14718,  14764,  14809,  14854,  

14900,  14945,  14991,  15036,  15082,  15127,  15173,  15219,  15264,  15310,  15356,  

15401,  15447,  15493,  15539,  15584,  15630,  15676,  15722,  15768,  15814,  15860,  

15906,  15952,  15998,  16044,  16090,  16136,  16182,  16228,  16274,  16320,  16366,  

16412,  16458,  16504,  16550,  16596,  16642,  16689,  16735,  16781,  16827,  16873,  

16920,  16966,  17012,  17058,  17104,  17151,  17197,  17243,  17289,  17336,  17382,  

17428,  17474,  17521,  17567,  17613,  17659,  17706,  17752,  17798,  17845,  17891,  

17937,  17983,  18030,  18076,  18122,  18168,  18215,  18261,  18307,  18353,  18399,  

18446,  18492,  18538,  18584,  18630,  18677,  18723,  18769,  18815,  18861,  18907,  

18953,  19000,  19046,  19092,  19138,  19184,  19230,  19276,  19322,  19368,  19414,  

19460,  19506,  19552,  19598,  19643,  19689,  19735,  19781,  19827,  19873,  19918,  

19964,  20010,  20056,  20101,  20147,  20192,  20238,  20284,  20329,  20375,  20420,  

20466,  20511,  20557,  20602,  20648,  20693,  20738,  20783,  20829,  20874,  20919,  

20964,  21010,  21055,  21100,  21145,  21190,  21235,  21280,  21325,  21370,  21414,  

21459,  21504,  21549,  21593,  21638,  21683,  21727,  21772,  21816,  21861,  21905,  

21950,  21994,  22038,  22083,  22127,  22171,  22215,  22259,  22304,  22348,  22392,  

22435,  22479,  22523,  22567,  22611,  22654,  22698,  22742,  22785,  22829,  22872,  

22916,  22959,  23002,  23046,  23089,  23132,  23175,  23218,  23261,  23304,  23347,  

23390,  23433,  23476,  23518,  23561,  23604,  23646,  23689,  23731,  23773,  23816,  

23858,  23900,  23942,  23984,  24026,  24068,  24110,  24152,  24194,  24236,  24277,  

24319,  24360,  24402,  24443,  24484,  24526,  24567,  24608,  24649,  24690,  24731,  

24772,  24813,  24854,  24894,  24935,  24975,  25016,  25056,  25097,  25137,  25177,  

25217,  25257,  25297,  25337,  25377,  25417,  25456,  25496,  25536,  25575,  25615,  

25654,  25693,  25732,  25771,  25810,  25849,  25888,  25927,  25966,  26004,  26043,  

26081,  26120,  26158,  26196,  26235,  26273,  26311,  26349,  26386,  26424,  26462,  

26499,  26537,  26574,  26612,  26649,  26686,  26723,  26760,  26797,  26834,  26871,  

26907,  26944,  26980,  27017,  27053,  27089,  27125,  27162,  27197,  27233,  27269,  

27305,  27340,  27376,  27411,  27447,  27482,  27517,  27552,  27587,  27622,  27657,  

27691,  27726,  27760,  27795,  27829,  27863,  27897,  27931,  27965,  27999,  28033,  

28066,  28100,  28133,  28167,  28200,  28233,  28266,  28299,  28332,  28365,  28397,  

28430,  28462,  28494,  28527,  28559,  28591,  28623,  28655,  28686,  28718,  28749,  

28781,  28812,  28843,  28874,  28905,  28936,  28967,  28998,  29028,  29059,  29089,  

29119,  29149,  29179,  29209,  29239,  29269,  29298,  29328,  29357,  29386,  29415,  

29445,  29473,  29502,  29531,  29560,  29588,  29616,  29645,  29673,  29701,  29729,  

29756,  29784,  29812,  29839,  29867,  29894,  29921,  29948,  29975,  30002,  30028,  

30055,  30081,  30107,  30134,  30160,  30186,  30211,  30237,  30263,  30288,  30314,  

30339,  30364,  30389,  30414,  30439,  30463,  30488,  30512,  30536,  30561,  30585,  

30609,  30632,  30656,  30680,  30703,  30726,  30750,  30773,  30796,  30818,  30841,  

30864,  30886,  30908,  30931,  30953,  30975,  30996,  31018,  31040,  31061,  31082,  

31104,  31125,  31146,  31166,  31187,  31208,  31228,  31248,  31269,  31289,  31309,  

31328,  31348,  31368,  31387,  31406,  31425,  31444,  31463,  31482,  31501,  31519,  

31538,  31556,  31574,  31592,  31610,  31627,  31645,  31662,  31680,  31697,  31714,  

31731,  31748,  31764,  31781,  31797,  31814,  31830,  31846,  31862,  31877,  31893,  

31908,  31924,  31939,  31954,  31969,  31984,  31998,  32013,  32027,  32041,  32056,  

32069,  32083,  32097,  32111,  32124,  32137,  32151,  32164,  32176,  32189,  32202,  

32214,  32227,  32239,  32251,  32263,  32275,  32286,  32298,  32309,  32320,  32332,  

32343,  32353,  32364,  32375,  32385,  32395,  32405,  32415,  32425,  32435,  32445,  

32454,  32463,  32473,  32482,  32490,  32499,  32508,  32516,  32525,  32533,  32541,  

32549,  32557,  32564,  32572,  32579,  32586,  32593,  32600,  32607,  32614,  32620,  

32627,  32633,  32639,  32645,  32651,  32656,  32662,  32667,  32673,  32678,  32683,  

32687,  32692,  32697,  32701,  32705,  32709,  32713,  32717,  32721,  32724,  32728,  

32731,  32734,  32737,  32740,  32743,  32745,  32748,  32750,  32752,  32754,  32756,  

32758,  32759,  32761,  32762,  32763,  32764,  32765,  32766,  32766,  32767,  32767,  

32767,  32767,  32767,  32767,  32766,  32766,  32765,  32764,  32763,  32762,  32761,  

32759,  32758,  32756,  32754,  32752,  32750,  32748,  32745,  32743,  32740,  32737,  

32734,  32731,  32728,  32724,  32721,  32717,  32713,  32709,  32705,  32701,  32697,  

32692,  32687,  32683,  32678,  32673,  32667,  32662,  32656,  32651,  32645,  32639,  

32633,  32627,  32620,  32614,  32607,  32600,  32593,  32586,  32579,  32572,  32564,  

32557,  32549,  32541,  32533,  32525,  32516,  32508,  32499,  32490,  32482,  32473,  

32463,  32454,  32445,  32435,  32425,  32415,  32405,  32395,  32385,  32375,  32364,  

32353,  32343,  32332,  32320,  32309,  32298,  32286,  32275,  32263,  32251,  32239,  

32227,  32214,  32202,  32189,  32176,  32164,  32151,  32137,  32124,  32111,  32097,  

32083,  32069,  32056,  32041,  32027,  32013,  31998,  31984,  31969,  31954,  31939,  

31924,  31908,  31893,  31877,  31862,  31846,  31830,  31814,  31797,  31781,  31764,  

31748,  31731,  31714,  31697,  31680,  31662,  31645,  31627,  31610,  31592,  31574,  

31556,  31538,  31519,  31501,  31482,  31463,  31444,  31425,  31406,  31387,  31368,  

31348,  31328,  31309,  31289,  31269,  31248,  31228,  31208,  31187,  31166,  31146,  

31125,  31104,  31082,  31061,  31040,  31018,  30996,  30975,  30953,  30931,  30908,  

30886,  30864,  30841,  30818,  30796,  30773,  30750,  30726,  30703,  30680,  30656,  

30632,  30609,  30585,  30561,  30536,  30512,  30488,  30463,  30439,  30414,  30389,  

30364,  30339,  30314,  30288,  30263,  30237,  30211,  30186,  30160,  30134,  30107,  

30081,  30055,  30028,  30002,  29975,  29948,  29921,  29894,  29867,  29839,  29812,  

29784,  29756,  29729,  29701,  29673,  29645,  29616,  29588,  29560,  29531,  29502,  

29473,  29445,  29415,  29386,  29357,  29328,  29298,  29269,  29239,  29209,  29179,  

29149,  29119,  29089,  29059,  29028,  28998,  28967,  28936,  28905,  28874,  28843,  

28812,  28781,  28749,  28718,  28686,  28655,  28623,  28591,  28559,  28527,  28494,  

28462,  28430,  28397,  28365,  28332,  28299,  28266,  28233,  28200,  28167,  28133,  

28100,  28066,  28033,  27999,  27965,  27931,  27897,  27863,  27829,  27795,  27760,  

27726,  27691,  27657,  27622,  27587,  27552,  27517,  27482,  27447,  27411,  27376,  

27340,  27305,  27269,  27233,  27197,  27162,  27125,  27089,  27053,  27017,  26980,  

26944,  26907,  26871,  26834,  26797,  26760,  26723,  26686,  26649,  26612,  26574,  

26537,  26499,  26462,  26424,  26386,  26349,  26311,  26273,  26235,  26196,  26158,  

26120,  26081,  26043,  26004,  25966,  25927,  25888,  25849,  25810,  25771,  25732,  

25693,  25654,  25615,  25575,  25536,  25496,  25456,  25417,  25377,  25337,  25297,  

25257,  25217,  25177,  25137,  25097,  25056,  25016,  24975,  24935,  24894,  24854,  

24813,  24772,  24731,  24690,  24649,  24608,  24567,  24526,  24484,  24443,  24402,