const double yc[201]={0.000000,-0.141067,-0.198997,-0.243105,
-0.280000,-0.312250,-0.341174,-0.367559,-0.391918,-0.414608,
-0.435890,-0.455960,-0.474973,-0.493051,-0.510294,-0.526782,
-0.542586,-0.557763,-0.572363,-0.586430,-0.600000,-0.613107,
-0.625779,-0.638044,-0.649923,-0.661438,-0.672607,-0.683447,
-0.693974,-0.704201,-0.714143,-0.723809,-0.733212,-0.742361,
-0.751265,-0.759934,-0.768375,-0.776595,-0.784602,-0.792401,
-0.800000,-0.807403,-0.814616,-0.821644,-0.828492,-0.835164,
-0.841665,-0.847997,-0.854166,-0.860174,-0.866025,-0.871722,
-0.877268,-0.882666,-0.887919,-0.893028,-0.897997,-0.902829,
-0.907524,-0.912085,-0.916515,-0.920815,-0.924986,-0.929032,
-0.932952,-0.936749,-0.940425,-0.943981,-0.947417,-0.950736,
-0.953939,-0.957026,-0.960000,-0.962860,-0.965608,-0.968246,
-0.970773,-0.973190,-0.975500,-0.977701,-0.979796,-0.981784,
-0.983666,-0.985444,-0.987117,-0.988686,-0.990151,-0.991514,
-0.992774,-0.993932,-0.994987,-0.995942,-0.996795,-0.997547,
-0.998198,-0.998749,-0.999200,-0.999550,-0.999800,-0.999950,
-1.000000,-0.999950,-0.999800,-0.999550,-0.999200,-0.998749,
-0.998198,-0.997547,-0.996795,-0.995942,-0.994988,-0.993932,
-0.992774,-0.991514,-0.990152,-0.988686,-0.987117,-0.985444,
-0.983667,-0.981784,-0.979796,-0.977702,-0.975500,-0.973191,
-0.970773,-0.968246,-0.965609,-0.962861,-0.960000,-0.957027,
-0.953939,-0.950737,-0.947418,-0.943981,-0.940426,-0.936750,
-0.932953,-0.929032,-0.924987,-0.920815,-0.916515,-0.912086,
-0.907524,-0.902829,-0.897998,-0.893029,-0.887919,-0.882667,
-0.877269,-0.871723,-0.866026,-0.860175,-0.854167,-0.847998,
-0.841666,-0.835165,-0.828493,-0.821645,-0.814617,-0.807404,
-0.800001,-0.792402,-0.784603,-0.776596,-0.768376,-0.759935,
-0.751266,-0.742362,-0.733213,-0.723810,-0.714144,-0.704203,
-0.693975,-0.683448,-0.672608,-0.661439,-0.649924,-0.638045,
-0.625781,-0.613108,-0.600002,-0.586431,-0.572365,-0.557765,
-0.542588,-0.526785,-0.510296,-0.493054,-0.474976,-0.455963,
-0.435892,-0.414611,-0.391921,-0.367563,-0.341178,-0.312254,
-0.280004,-0.243110,-0.199004,-0.141077,0.0};

const double  ys[201]=
{0.00,0.141067,0.198997,0.243105,0.280000,0.312250,0.341174,
0.367559,0.391918,0.414608,0.435890,0.455960,0.474973,0.493052,
0.510294,0.526782,0.542586,0.557763,0.572363,0.586430,0.600000,
0.613107,0.625779,0.638044,0.649923,0.661438,0.672607,0.683447,
0.693974,0.704201,0.714143,0.723809,0.733212,0.742361,0.751265,
0.759934,0.768375,0.776595,0.784602,0.792401,0.800000,0.807403,
0.814616,0.821644,0.828492,0.835164,0.841665,0.847997,0.854166,
0.860174,0.866025,0.871722,0.877268,0.882666,0.887919,0.893028,
0.897998,0.902829,0.907524,0.912085,0.916515,0.920815,0.924986,
0.929032,0.932952,0.936749,0.940425,0.943981,0.947417,0.950736,
0.953939,0.957026,0.960000,0.962860,0.965608,0.968246,0.970773,
0.973190,0.975500,0.977701,0.979796,0.981784,0.983666,0.985444,
0.987117,0.988686,0.990151,0.991514,0.992774,0.993932,0.994987,
0.995942,0.996795,0.997547,0.998198,0.998749,0.999200,0.999550,
0.999800,0.999950,1.000000,0.999950,0.999800,0.999550,0.999200,
0.998749,0.998198,0.997547,0.996795,0.995942,0.994988,0.993932,
0.992774,0.991514,0.990152,0.988686,0.987117,0.985444,0.983667,
0.981784,0.979796,0.977702,0.975500,0.973191,0.970773,0.968246,
0.965609,0.962860,0.960000,0.957027,0.953939,0.950737,0.947418,
0.943981,0.940426,0.936750,0.932953,0.929032,0.924987,0.920815,
0.916515,0.912086,0.907524,0.902829,0.897998,0.893029,0.887919,
0.882667,0.877269,0.871723,0.866026,0.860175,0.854167,0.847998,
0.841666,0.835165,0.828493,0.821645,0.814617,0.807404,0.800001,
0.792402,0.784603,0.776596,0.768376,0.759935,0.751266,0.742362,
0.733213,0.723810,0.714144,0.704203,0.693975,0.683448,0.672608,
0.661439,0.649924,0.638045,0.625781,0.613108,0.600001,0.586431,
0.572365,0.557765,0.542588,0.526785,0.510296,0.493054,0.474976,
0.455963,0.435892,0.414611,0.391921,0.367563,0.341178,0.312254,
0.280004,0.243110,0.199004,0.141076,0.001619};