testmain.cpp

支持向量机是一种专门用于样本分类的算法,本程序用VC++实现了SVM算法

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ctype.h>
#include "svm.h"
#include <math.h>
#define Malloc(type,n) (type *)malloc((n)*sizeof(type))

svm_result training(double data[][LENGTH],double * label,int num);

void main()
{    
//	double **p;
/*	double data[NUM][LENGTH] =
	{{0.15166,0.15319,0.14979,0.14211,0.14223,0.13927,0.13818,0.13693,0.13786,0.14236,0.14365,0.14315,0.14359,0.14572,0.14594,0.14446,0.14523,0.14555,0.14358,0.14589,0.14425,0.14353,0.14216,0.14323,0.14521,0.14443,0.1437,0.14549,0.14496,0.14407,0.14365,0.14582,0.14611,0.14568,0.14721,0.14764,0.14633,0.14837,0.14641,0.14853,0.14091,0.14087,0.14102,0.14287,0.1422,0.14372,0.14283,0.145},
{0.13964,0.14014,0.14162,0.14236,0.14202,0.14521,0.14602,0.14595,0.14427,0.14583,0.14787,0.14735,0.14809,0.14835,0.14784,0.14827,0.14792,0.14742,0.14572,0.14687,0.14564,0.14252,0.1441,0.14408,0.14773,0.14769,0.14584,0.14667,0.14649,0.14641,0.14509,0.14526,0.14373,0.14514,0.14726,0.14616,0.14278,0.14356,0.14254,0.14487,0.13972,0.14308,0.14105,0.13904,0.13608,0.13956,0.13664,0.13904},
{0.14871,0.14533,0.14207,0.14052,0.14,0.14022,0.14191,0.14361,0.14622,0.14671,0.1473,0.14618,0.14587,0.14421,0.14382,0.14275,0.14597,0.14653,0.14536,0.14743,0.14394,0.14537,0.14435,0.14514,0.14476,0.14607,0.1447,0.14375,0.14482,0.14315,0.14683,0.14638,0.15009,0.14854,0.14348,0.14404,0.14398,0.14549,0.14417,0.1436,0.14016,0.14149,0.14058,0.14104,0.14008,0.1426,0.14406,0.14388},
{0.14335,0.14456,0.14252,0.14423,0.1412,0.14294,0.14292,0.14409,0.14646,0.14904,0.14682,0.14542,0.14595,0.14654,0.14472,0.14481,0.14624,0.14511,0.14374,0.1448,0.14267,0.14457,0.1445,0.14685,0.14629,0.14575,0.14753,0.14458,0.14296,0.14522,0.1452,0.14516,0.14441,0.14232,0.14561,0.1451,0.14417,0.14695,0.14467,0.14506,0.14024,0.14184,0.14355,0.14071,0.13991,0.14168,0.14296,0.14166},
{0.14354,0.14277,0.13947,0.14224,0.14332,0.14467,0.14327,0.14409,0.14461,0.14585,0.14577,0.14715,0.14873,0.147,0.14489,0.14653,0.14368,0.14395,0.14257,0.14182,0.1429,0.14145,0.14062,0.13988,0.14131,0.14072,0.14064,0.13866,0.13911,0.13835,0.138,0.14134,0.14428,0.15135,0.15193,0.14629,0.14418,0.15353,0.15405,0.15294,0.13913,0.14546,0.14598,0.14089,0.14086,0.14539,0.15234,0.14791},
{0.13997,0.14361,0.14359,0.14228,0.14363,0.14414,0.14456,0.14511,0.14461,0.14547,0.14316,0.14502,0.14243,0.14344,0.14286,0.14252,0.14356,0.14427,0.14673,0.14762,0.1451,0.14667,0.14536,0.14427,0.14532,0.14382,0.14539,0.14327,0.14089,0.14096,0.13945,0.14053,0.14114,0.14059,0.14469,0.1434,0.14858,0.15406,0.15361,0.15155,0.13928,0.13995,0.14534,0.13878,0.14999,0.15437,0.13976,0.14128},
{0.13882,0.14048,0.14195,0.14471,0.1444,0.14379,0.14392,0.14555,0.14522,0.14555,0.14531,0.14628,0.14769,0.14619,0.14638,0.14478,0.1467,0.1456,0.1463,0.14683,0.14694,0.14532,0.14395,0.14647,0.1464,0.14672,0.14725,0.14688,0.14659,0.14559,0.14517,0.14443,0.14142,0.14383,0.14326,0.14272,0.14573,0.1442,0.14228,0.14322,0.14057,0.14261,0.14242,0.14393,0.14163,0.1399,0.1397,0.14183},
{0.14631,0.14498,0.14318,0.14427,0.14578,0.14687,0.1481,0.14557,0.14645,0.14639,0.14493,0.14812,0.14647,0.14762,0.14693,0.14689,0.14641,0.14673,0.14596,0.14548,0.14389,0.14546,0.14309,0.14513,0.14677,0.14538,0.14671,0.14659,0.14464,0.14464,0.14383,0.14402,0.14334,0.14268,0.14167,0.14191,0.14198,0.14227,0.14103,0.14275,0.13971,0.14272,0.14237,0.14505,0.14001,0.13769,0.13868,0.13969},
{0.15166,0.15319,0.14979,0.14211,0.14223,0.13927,0.13818,0.13693,0.13786,0.14236,0.14365,0.14315,0.14359,0.14572,0.14594,0.14446,0.14523,0.14555,0.14358,0.14589,0.14425,0.14353,0.14216,0.14323,0.14521,0.14443,0.1437,0.14549,0.14496,0.14407,0.14365,0.14582,0.14611,0.14568,0.14721,0.14764,0.14633,0.14837,0.14641,0.14853,0.14091,0.14087,0.14102,0.14287,0.1422,0.14372,0.14283,0.145},
{0.13964,0.14014,0.14162,0.14236,0.14202,0.14521,0.14602,0.14595,0.14427,0.14583,0.14787,0.14735,0.14809,0.14835,0.14784,0.14827,0.14792,0.14742,0.14572,0.14687,0.14564,0.14252,0.1441,0.14408,0.14773,0.14769,0.14584,0.14667,0.14649,0.14641,0.14509,0.14526,0.14373,0.14514,0.14726,0.14616,0.14278,0.14356,0.14254,0.14487,0.13972,0.14308,0.14105,0.13904,0.13608,0.13956,0.13664,0.13904},
{0.14335,0.14456,0.14252,0.14423,0.1412,0.14294,0.14292,0.14409,0.14646,0.14904,0.14682,0.14542,0.14595,0.14654,0.14472,0.14481,0.14624,0.14511,0.14374,0.1448,0.14267,0.14457,0.1445,0.14685,0.14629,0.14575,0.14753,0.14458,0.14296,0.14522,0.1452,0.14516,0.14441,0.14232,0.14561,0.1451,0.14417,0.14695,0.14467,0.14506,0.14024,0.14184,0.14355,0.14071,0.13991,0.14168,0.14296,0.14166},
{0.14145,0.14298,0.14095,0.14109,0.14328,0.14548,0.14715,0.14739,0.14554,0.14554,0.14705,0.14713,0.14752,0.14788,0.14824,0.14829,0.14644,0.14601,0.14564,0.14694,0.14621,0.14629,0.14749,0.14552,0.14575,0.14346,0.14357,0.14394,0.14326,0.1411,0.14382,0.14291,0.14346,0.14449,0.14416,0.14386,0.14419,0.14293,0.1444,0.14391,0.14086,0.14237,0.14255,0.13932,0.13818,0.14178,0.13887,0.14654},
{0.14233,0.14398,0.14411,0.14667,0.14559,0.14793,0.14542,0.14677,0.14626,0.14587,0.14663,0.14748,0.1452,0.14479,0.14164,0.14328,0.14421,0.14455,0.14315,0.1433,0.14394,0.14309,0.1433,0.14165,0.14373,0.14242,0.14222,0.14219,0.1431,0.1436,0.14301,0.14344,0.14788,0.1468,0.14433,0.14694,0.14709,0.14583,0.14575,0.14744,0.14292,0.14124,0.14025,0.1391,0.13998,0.14336,0.14787,0.14577},
{0.14094,0.1435,0.14379,0.1433,0.14469,0.14637,0.14417,0.14637,0.14628,0.14575,0.14674,0.14695,0.14776,0.14554,0.14674,0.14507,0.1442,0.1433,0.14532,0.14567,0.14519,0.14508,0.1424,0.14407,0.14443,0.14368,0.14323,0.14263,0.14425,0.14477,0.14603,0.14463,0.14577,0.14382,0.14512,0.1461,0.14415,0.1455,0.14346,0.14385,0.14219,0.14087,0.14004,0.13886,0.14409,0.14421,0.143,0.14379},
{0.14178,0.14344,0.14441,0.14293,0.14273,0.14479,0.144,0.14531,0.14767,0.1469,0.14508,0.14496,0.14516,0.14399,0.14353,0.14583,0.14481,0.1436,0.14453,0.14565,0.14335,0.14216,0.1421,0.14254,0.14417,0.14328,0.14305,0.14374,0.14542,0.14834,0.14874,0.14667,0.14526,0.14557,0.14446,0.1456,0.14487,0.14631,0.14497,0.1441,0.14029,0.14189,0.13957,0.1441,0.14409,0.14439,0.14506,0.14243},
{0.13931,0.14474,0.14572,0.1475,0.1487,0.14597,0.14702,0.14368,0.1446,0.14582,0.14516,0.14483,0.14477,0.14641,0.1449,0.14466,0.14239,0.14263,0.14258,0.14196,0.14405,0.14308,0.14133,0.14201,0.14366,0.14508,0.14278,0.14518,0.14532,0.14565,0.14757,0.14553,0.14489,0.1463,0.14513,0.14451,0.14441,0.1452,0.14684,0.14659,0.14431,0.13903,0.13783,0.14251,0.14413,0.14535,0.1434,0.14241}};

double Y[NUM]= {-1,-1,-1,-1,
                -1,-1,-1,-1,
				1,1,1,1,
				-1,-1,-1,-1};


//	double **p;
*/	double data[NUM][LENGTH] = 
{{5.5981079e-001 , 5.2894241e-001, -1.0341788e-001 ,-8.6460322e-002 ,-1.6903803e-001 ,-7.5551052e-002 , 3.1408787e-002 ,-9.7179812e-002 ,-8.7771007e-002  ,7.2276346e-002 , 5.5477405e-002 ,-1.3020572e-001 , 2.1685869e-002 , 1.7041104e-002, -2.4613605e-002, -1.3414008e-003,  3.6517525e-003 ,-2.0662642e-002 , 1.1063322e-002  ,3.5160988e-002, -5.8587329e-003,  2.1683217e-003 ,-3.0083506e-002 , 1.7418824e-002 , 5.2632002e-002 , 3.7156282e-002 , 7.7605232e-003,  4.9565653e-002 ,-5.8473031e-003 , 2.5610431e-002 , 3.6997645e-003, -5.6084634e-002, -4.4527097e-003, -1.6273368e-002,  2.9440770e-002  ,2.3444652e-002 ,-3.6587809e-002 , 2.0235662e-002 , 3.7688795e-002},
{  5.5564245e-001 , 4.9524347e-001, -1.4850165e-001 ,-8.2673583e-002, -2.1254514e-001, -6.1126488e-002  ,3.7435067e-002 ,-1.0693013e-001 ,-9.6926520e-002,  4.4367526e-002 , 3.9078106e-002 ,-1.0576255e-001 ,-1.4416866e-002  ,1.5945616e-002 ,-1.6967804e-003  ,3.7257950e-002 ,1.8409282e-002 ,-2.0362224e-002 , 1.4584820e-002  ,3.7236344e-002 , 2.1138191e-002 ,-1.2517586e-002 ,-2.6128656e-002 ,-7.4384751e-003 ,4.2542533e-002 , 1.5983621e-002 , 1.1798420e-002,  4.3325728e-002,  1.8585780e-003, -3.4972982e-003  ,1.3954661e-002 ,-2.6679021e-002 ,-3.1842778e-002, -1.0685091e-005 , 1.8671906e-002,  1.6782660e-002, -1.4851323e-002,  1.5171491e-002,  2.2257288e-002},
{ 5.6761196e-001 , 5.7650881e-001, -5.3263843e-002 ,-1.2515371e-001, -5.1107419e-002 ,-1.1412392e-001,  3.6764457e-002, -8.7535998e-002 ,-1.9415822e-001,  7.3969744e-002 , 3.3073118e-002, -1.3789920e-001,  4.8597386e-002,  2.4403851e-002, -1.3288168e-002 , 1.4131622e-002 , 2.0020173e-002, -4.5945467e-004, -1.6456886e-002 , 3.3283640e-002, -1.3131652e-002, -1.5221282e-003 ,-2.6927026e-002 ,-1.4628081e-002  ,3.0968029e-002 , 6.0085781e-002 , 2.9074128e-003 , 3.4887275e-002,  6.3601703e-003,  2.3604077e-003, -1.8578547e-002, -4.6738480e-002, -2.2163892e-002, -1.1136759e-002 , 2.7324095e-002 , 3.0353932e-002 ,-2.3626047e-002 , 1.8711943e-002 , 2.6186098e-002},
{  5.6174461e-001 , 4.6271069e-001 ,-1.5459485e-001, -7.3728594e-002 ,-2.1210749e-001 ,-7.8879224e-002,  2.6377934e-002, -7.1131132e-002 ,-1.2334472e-001 , 2.9469993e-002 , 4.0152884e-002, -9.5697031e-002, -2.4639059e-002,  7.5135496e-003 ,-2.4434937e-003  ,6.3436441e-002 , 2.5279959e-002 ,-6.3206227e-003 , 3.3610246e-003,  5.8776999e-002 , 5.1165821e-002 ,-2.2292176e-002 ,-1.4954163e-002 ,-1.1098343e-002 , 3.8651818e-002 , 1.1178538e-002,  1.8273030e-002,  4.6419586e-002 , 1.3220516e-002 ,-6.1800947e-003  ,1.6030767e-002 ,-4.5443153e-002 ,-2.8284134e-002 ,-1.7323213e-002  ,9.3237562e-003 , 2.9513067e-002, -9.7557431e-003 , 2.3612712e-003,  4.8297822e-003},
{  5.9202413e-001,  5.5920357e-001 ,-5.7957993e-002, -1.0244327e-001 ,-1.6081984e-001 ,-1.0522058e-001 , 3.4139396e-002, -8.2565071e-002, -2.0558198e-001, 4.5014476e-002,  5.1664233e-002 ,-1.2719817e-001 ,-1.3906299e-003 , 9.4602733e-003, -3.4153005e-002,  7.0659358e-003 , 2.8615016e-002 ,-1.7759230e-002 , 2.7111312e-003 , 2.5307398e-002 , 3.7627045e-002 ,-5.8581250e-003 ,-5.4714332e-003 , 7.3865186e-003 , 4.0336579e-002 , 3.9056411e-002 , 3.0250051e-002 , 5.3371833e-002 , 1.3940448e-002 , 2.0754768e-003 ,-1.2777263e-002,-3.5950814e-002, -1.8228341e-002  ,9.0851578e-003,  1.3626016e-002,  6.5966257e-003, -2.4185566e-003,  1.0331484e-003,  8.9608186e-003} ,
{ 6.6961768e-001 , 5.0778011e-001 , 5.9610427e-002 ,-2.5781248e-001, -1.6140268e-001 ,-6.5352215e-002 , 1.1091829e-001 ,-1.0180067e-001 ,-1.6842717e-001,  8.3494676e-002 , 5.2021501e-002, -9.2547271e-002, -2.7888714e-002, -2.9525532e-002 ,-6.4044363e-003 ,-3.0355308e-002,  7.0314667e-003 ,-4.5039693e-002 , 1.2439772e-002 , 5.5586749e-002 ,-1.7300682e-002 ,-3.2206760e-002 ,-1.0312634e-002 , 3.2729900e-002 , 2.1906976e-002 , 5.0487765e-002 , 3.1193639e-002 , 5.5848236e-002 ,1.2353913e-002  ,4.6841690e-003  ,3.9758802e-002, -3.2840960e-002 ,-5.7887300e-002 ,-2.8844149e-002 , 2.3030232e-002 , 4.0315378e-002  ,9.4570303e-003 ,-9.5864659e-003, -2.1119580e-002},
{ 7.4752239e-001 , 5.0854112e-001 , 1.0876910e-003 ,-2.5623301e-001 ,-9.6096968e-002 ,-7.9008156e-002 , 7.2540101e-002 ,-1.2512527e-001 ,-1.8502938e-001 , 8.9798391e-002 , 4.1093554e-002, -1.1889067e-001,  4.7213557e-002 ,-1.3602901e-002  ,7.2335508e-003 , 1.7164807e-002 , 1.1852792e-002, -6.2684506e-002 ,-1.3756986e-002 , 4.8784089e-002 ,-2.3480971e-002 ,-4.7437070e-002, -2.9753830e-002, -1.6709479e-003 , 4.0524070e-003 , 3.4100834e-002  ,3.5568620e-002 , 3.4890369e-002 ,-2.3322040e-002 ,-3.1737353e-003 , 2.5051899e-002 ,-2.9982062e-002 ,-2.6021042e-002 ,-4.6009854e-002 ,-9.4171949e-003 , 9.3711790e-003 ,-2.3105581e-002 , 3.5993051e-003 ,-8.4654397e-003},
{  6.7595577e-001 , 5.3230089e-001 ,-2.5141353e-002, -2.9259861e-001 ,-1.3243440e-001, -1.0684606e-001 , 4.4871565e-002 ,-9.8568858e-002 ,-2.0267126e-001 , 1.2881607e-001 , 5.2028821e-002, -9.0937063e-002 , 1.6620177e-002, -3.4255664e-002 , 1.1177606e-002 ,-8.8447505e-003  ,5.7502829e-002, -1.2068924e-002 , 5.1497493e-003 , 3.5936593e-002 ,-7.9345211e-003 ,-5.8583343e-002 ,-3.2036609e-002,  4.2451563e-002 , 5.2615417e-002 , 3.0755751e-002 , 3.6215901e-002,  5.0085785e-002 , 2.3266158e-002 ,-4.7011267e-003 , 4.6775563e-003, -2.4132816e-002 ,-7.2078819e-002 ,-2.3469460e-002 , 1.6450783e-002 , 3.9594706e-002,  2.7645710e-002, -9.2455941e-003 ,-3.4585994e-002},