Преобразования окружности и ее «чтение»

 

Листинг

 

// Расположение чисел 111-999 (исключая числа с нулями) в квадрате 27х27 (в см.) по порядку а одном массиве

 

var Rb = new Array(111, 112, 113, 114, 115, 116, 117, 118, 119, 121, 122, 123, 124, 125, 126, 127, 128, 129, 131, 132, 133, 134, 135, 136, 137, 138, 139, 141, 142, 143, 144, 145, 146, 147, 148, 149, 151, 152, 153, 154, 155, 156, 157, 158, 159, 161, 162, 163, 164, 165, 166,167,168,169,171,172,173,174,175,176,177,178,179,181,182,183,184,185,186,187,188,189,191,192,193,194,195,196,197,198,199,211,212,213,214,215,216,217,218,219,221,222,223,224,225,226,227,228,229,231,232,233,234,235,236,237,238,239,241,242,243,244,245,246,247,248,249,251,252,253,254,255,256,257,258,259,261,262,263,264,265,266,267,268,269,271,272,273,274,275,276,277,278,279,281,282,283,284,285,286,287,288,289,291,292,293,294,295,296,297,298,299,311,312,313,314,315,316,317,318,319,321,322,323,324,325,326,327,328,329,331,332,333,334,335,336,337,338,339,341,342,343,344,345,346,347,348,349,351,352,353,354,355,356,357,358,359,361,362,363,364,365,366,367,368,369,371,372,373,374,375,376,377,378,379,381,382,383,384,385,386,387,388,389,391,392,393,394,395,396,397,398,399,411,412,413,414,415,416,417,418,419,421,422,423,424,425,426,427,428,429,431,432,433,434,435,436,437,438,439,441,442,443,444,445,446,447,448,449,451,452,453,454,455,456,457,458,459,461,462,463,464,465,466,467,468,469,471,472,473,474,475,476,477,478,479,481,482,483,484,485,486,487,488,489,491,492,493,494,495,496,497,498,499,511,512,513,514,515,516,517,518,519,521,522,523,524,525,526,527,528,529,531,532,533,534,535,536,537,538,539,541,542,543,544,545,546,547,548,549,551,552,553,554,555,556,557,558,559,561,562,563,564,565,566,567,568,569,571,572,573,574,575,576,577,578,579,581,582,583,584,585,586,587,588,589,591,592,593,594,595,596,597,598,599,611,612,613,614,615,616,617,618,619,621,622,623,624,625,626,627,628,629,631,632,633,634,635,636,637,638,639,641,642,643,644,645,646,647,648,649,651,652,653,654,655,656,657,658,659,661,662,663,664,665,666,667,668,669,671,672,673,674,675,676,677,678,679,681,682,683,684,685,686,687,688,689,691,692,693,694,695,696,697,698,699,711,712,713,714,715,716,717,718,719,721,722,723,724,725,726,727,728,729,731,732,733,734,735,736,737,738,739,741,742,743,744,745,746,747,748,749,751,752,753,754,755,756,757,758,759,761,762,763,764,765,766,767,768,769,771,772,773,774,775,776,777,778,779,781,782,783,784,785,786,787,788,789,791,792,793,794,795,796,797,798,799,811,812,813,814,815,816,817,818,819,821,822,823,824,825,826,827,828,829,831,832,833,834,835,836,837,838,839,841,842,843,844,845,846,847,848,849,851,852,853,854,855,856,857,858,859,861,862,863,864,865,866,867,868,869,871,872,873,874,875,876,877,878,879,881,882,883,884,885,886,887,888,889,891,892,893,894,895,896,897,898,899,911,912,913,914,915,916,917,918,919,921,922,923,924,925,926,927,928,929,931,932,933,934,935,936,937,938,939,941,942,943,944,945,946,947,948,949,951,952,953,954,955,956,957,958,959,961,962,963,964,965,966,967,968,969,971,972,973,974,975,976,977,978,979,981,982,983,984,985,986,987,988,989,991,992,993,994,995,996,997,998,999);

 

// Расположение чисел 111-999 (исключая числа с нулями) в квадрате 27х27 (в см.) по порядку в матрице (нескольких массивов)

 

var Rb1 = new Array(111,112,113,114,115,116,117,118,119,121,122,123,124,125,126,127,128,129,131,132,133,134,135,136,137,138,139);

var Rb2 = new Array(141,142,143,144,145,146,147,148,149,151,152,153,154,155,156,157,158,159,161,162,163,164,165,166,167,168,169);

var Rb3 = new Array(171,172,173,174,175,176,177,178,179,181,182,183,184,185,186,187,188,189,191,192,193,194,195,196,197,198,199)

var Rb4 = new Array(211,212,213,214,215,216,217,218,219,221,222,223,224,225,226,227,228,229,231,232,233,234,235,236,237,238,239)

var Rb5 = new Array(241,242,243,244,245,246,247,248,249,251,252,253,254,255,256,257,258,259,261,262,263,264,265,266,267,268,269)

var Rb6 = new Array(271,272,273,274,275,276,277,278,279,281,282,283,284,285,286,287,288,289,291,292,293,294,295,296,297,298,299)

var Rb7 = new Array(311,312,313,314,315,316,317,318,319,321,322,323,324,325,326,327,328,329,331,332,333,334,335,336,337,338,339)

var Rb8 = new Array(341,342,343,344,345,346,347,348,349,351,352,353,354,355,356,357,358,359,361,362,363,364,365,366,367,368,369)

var Rb9 = new Array(371,372,373,374,375,376,377,378,379,381,382,383,384,385,386,387,388,389,391,392,393,394,395,396,397,398,399)

var Rb10 = new Array(411,412,413,414,415,416,417,418,419,421,422,423,424,425,426,427,428,429,431,432,433,434,435,436,437,438,439)

var Rb11 = new Array(441,442,443,444,445,446,447,448,449,451,452,453,454,455,456,457,458,459,461,462,463,464,465,466,467,468,469)

var Rb12 = new Array(471,472,473,474,475,476,477,478,479,481,482,483,484,485,486,487,488,489,491,492,493,494,495,496,497,498,499)

var Rb13 = new Array(511,512,513,514,515,516,517,518,519,521,522,523,524,525,526,527,528,529,531,532,533,534,535,536,537,538,539)

var Rb14 = new Array(541,542,543,544,545,546,547,548,549,551,552,553,554,555,556,557,558,559,561,562,563,564,565,566,567,568,569)

var Rb15 = new Array(571,572,573,574,575,576,577,578,579,581,582,583,584,585,586,587,588,589,591,592,593,594,595,596,597,598,599)

var Rb16 = new Array(611,612,613,614,615,616,617,618,619,621,622,623,624,625,626,627,628,629,631,632,633,634,635,636,637,638,639)

var Rb17 = new Array(641,642,643,644,645,646,647,648,649,651,652,653,654,655,656,657,658,659,661,662,663,664,665,666,667,668,669)

var Rb18 = new Array(671,672,673,674,675,676,677,678,679,681,682,683,684,685,686,687,688,689,691,692,693,694,695,696,697,698,699)

var Rb19 = new Array(711,712,713,714,715,716,717,718,719,721,722,723,724,725,726,727,728,729,731,732,733,734,735,736,737,738,739)

var Rb20 = new Array(741,742,743,744,745,746,747,748,749,751,752,753,754,755,756,757,758,759,761,762,763,764,765,766,767,768,769)

var Rb21 = new Array(771,772,773,774,775,776,777,778,779,781,782,783,784,785,786,787,788,789,791,792,793,794,795,796,797,798,799)

var Rb22 = new Array(811,812,813,814,815,816,817,818,819,821,822,823,824,825,826,827,828,829,831,832,833,834,835,836,837,838,839)

var Rb23 = new Array(841,842,843,844,845,846,847,848,849,851,852,853,854,855,856,857,858,859,861,862,863,864,865,866,867,868,869)

var Rb24 = new Array(871,872,873,874,875,876,877,878,879,881,882,883,884,885,886,887,888,889,891,892,893,894,895,896,897,898,899)

var Rb25 = new Array(911,912,913,914,915,916,917,918,919,921,922,923,924,925,926,927,928,929,931,932,933,934,935,936,937,938,939)

var Rb26 = new Array(941,942,943,944,945,946,947,948,949,951,952,953,954,955,956,957,958,959,961,962,963,964,965,966,967,968,969)

var Rb27 = new Array(971,972,973,974,975,976,977,978,979,981,982,983,984,985,986,987,988,989,991,992,993,994,995,996,997,998,999)

 

 

 

// магическое распределение цифр 1-729 на плоскости 27х27

 

varRt1=newArray(380,409,438,467,496,525,554,583,612,641,670,699,728,1,30,59,88,117,146,175,204,233,262,291,320,349,378)

varRt2=newArray(408,437,466,495,524,553,582,611,640,669,698,727,27,29,58,87,116,145,174,203,232,261,290,319,348,377,379)

varRt3=newArray(436,465,494,523,552,581,610,639,668,697,726,26,28,57,86,115,144,173,202,231,260,289,318,347,376,405,407)

varRt4=newArray(464,493,522,551,580,609,638,667,696,725,25,54,56,85,114,143,172,201,230,259,288,317,346,375,404,406,435)

varRt5=newArray(492,521,550,579,608,637,666,695,724,24,53,55,84,113,142,171,200,229,258,287,316,345,374,403,432,434,463)

varRt6=newArray(520,549,578,607,636,665,694,723,23,52,81,83,112,141,170,199,228,257,286,315,344,373,402,431,433,462,491)

varRt7=newArray(548,577,606,635,664,693,722,22,51,80,82,111,140,169,198,227,256,285,314,343,372,401,430,459,461,490,519)

varRt8=newArray(576,605,634,663,692,721,21,50,79,108,110,139,168,197,226,255,284,313,342,371,400,429,458,460,489,518,547)

varRt9=newArray(604,633,662,691,720,20,49,78,107,109,138,167,196,225,254,283,312,341,370,399,428,457,486,488,517,546,575)

varRt10=newArray(632,661,690,719,19,48,77,106,135,137,166,195,224,253,282,311,340,369,398,427,456,485,487,516,545,574,603)

varRt11=newArray(660,689,718,18,47,76,105,134,136,165,194,223,252,281,310,339,368,397,426,455,484,513,515,544,573,602,631)

varRt12=newArray(688,717,17,46,75,104,133,162,164,193,222,251,280,309,338,367,396,425,454,483,512,514,543,572,601,630,659)

varRt13=newArray(716,16,45,74,103,132,161,163,192,221,250,279,308,337,366,395,424,453,482,511,540,542,571,600,629,658,687)

varRt14=newArray(15,44,73,102,131,160,189,191,220,249,278,307,336,365,394,423,452,481,510,539,541,570,599,628,657,686,715)

varRt15=newArray(43,72,101,130,159,188,190,219,248,277,306,335,364,393,422,451,480,509,538,567,569,598,627,656,685,714,14)

varRt16=newArray(71,100,129,158,187,216,218,247,276,305,334,363,392,421,450,479,508,537,566,568,597,626,655,684,713,13,42)

varRt17=newArray(99,128,157,186,215,217,246,275,304,333,362,391,420,449,478,507,536,565,594,596,625,654,683,712,12,41,70)

varRt18=newArray(127,156,185,214,243,245,274,303,332,361,390,419,448,477,506,535,564,593,595,624,653,682,711,11,40,69,98)

varRt19=newArray(155,184,213,242,244,273,302,331,360,389,418,447,476,505,534,563,592,621,623,652,681,710,10,39,68,97,126)

varRt20=newArray(183,212,241,270,272,301,330,359,388,417,446,475,504,533,562,591,620,622,651,680,709,9,38,67,96,125,154)

varRt21=newArray(211,240,269,271,300,329,358,387,416,445,474,503,532,561,590,619,648,650,679,708,8,37,66,95,124,153,182)

varRt22=newArray(239,268,297,299,328,357,386,415,444,473,502,531,560,589,618,647,649,678,707,7,36,65,94,123,152,181,210)

varRt23=newArray(267,296,298,327,356,385,414,443,472,501,530,559,588,617,646,675,677,706,6,35,64,93,122,151,180,209,238)

varRt24=newArray(295,324,326,355,384,413,442,471,500,529,558,587,616,645,674,676,705,5,34,63,92,121,150,179,208,237,266)

varRt25=newArray(323,325,354,383,412,441,470,499,528,557,586,615,644,673,702,704,4,33,62,91,120,149,178,207,236,265,294)

varRt26=newArray(351,353,382,411,440,469,498,527,556,585,614,643,672,701,703,3,32,61,90,119,148,177,206,235,264,293,322)

varRt27=newArray(352,381,410,439,468,497,526,555,584,613,642,671,700,729,2,31,60,89,118,147,176,205,234,263,292,321,350)

 

 

// Магический квадрат 27х27 чисел 111-999 (по 1-729, вычисленного в маткаде).

 

var Mag2 = new Array(572,614,646,678,721,753,785,827,859,892,934,966,998,111,143,175,217,249,282,324,356,388,431,463,495,537,569)

var Mag2 = new Array(613,645,677,719,752,784,826,858,891,933,965,997,139,142,174,216,248,281,323,355,387,429,462,494,536,568,571)

var Mag2 = new Array(644,676,718,751,783,825,857,889,932,964,996,138,141,173,215,247,279,322,354,386,428,461,493,535,567,599,612)

var Mag2 = new Array(675,717,749,782,824,856,888,931,963,995,137,169,172,214,246,278,321,353,385,427,459,492,534,566,598,611,643)

var Mag2 = new Array(716,748,781,823,855,887,929,962,994,136,168,171,213,245,277,319,352,384,426,458,491,533,565,597,639,642,674)

var Mag2 = new Array(747,779,822,854,886,928,961,993,135,167,199,212,244,276,318,351,383,425,457,489,532,564,596,638,641,673,715)

var Mag2 = new Array(778,821,853,885,927,959,992,134,166,198,211,243,275,317,349,382,424,456,488,531,563,595,637,669,672,714,746)

var Mag2 = new Array(819,852,884,926,958,991,133,165,197,239,242,274,316,348,381,423,455,487,529,562,594,636,668,671,713,745,777)

var Mag2 = new Array(851,883,925,957,989,132,164,196,238,241,273,315,347,379,422,454,486,528,561,593,635,667,699,712,744,776,818)

var Mag2 = new Array(882,924,956,988,131,163,195,237,269,272,314,346,378,421,453,485,527,559,592,634,666,698,711,743,775,817,849)

var Mag2 = new Array(923,955,987,129,162,194,236,268,271,313,345,377,419,452,484,526,558,591,633,665,697,739,742,774,816,848,881)

var Mag2 = new Array(954,986,128,161,193,235,267,299,312,344,376,418,451,483,525,557,589,632,664,696,738,741,773,815,847,879,922)

var Mag2 = new Array(985,127,159,192,234,266,298,311,343,375,417,449,482,524,556,588,631,663,695,737,769,772,814,846,878,921,953)

var Mag2 = new Array(126,158,191,233,265,297,339,342,374,416,448,481,523,555,587,629,662,694,736,768,771,813,845,877,919,952,984)

var Mag2 = new Array(157,189,232,264,296,338,341,373,415,447,479,522,554,586,628,661,693,735,767,799,812,844,876,918,951,983,125)

var Mag2 = new Array(188,231,263,295,337,369,372,414,446,478,521,553,585,627,659,692,734,766,798,811,843,875,917,949,982,124,156)

var Mag2 = new Array(229,262,294,336,368,371,413,445,477,519,552,584,626,658,691,733,765,797,839,842,874,916,948,981,123,155,187)

var Mag2 = new Array(261,293,335,367,399,412,444,476,518,551,583,625,657,689,732,764,796,838,841,873,915,947,979,122,154,186,228)

var Mag2 = new Array(292,334,366,398,411,443,475,517,549,582,624,656,688,731,763,795,837,869,872,914,946,978,121,153,185,227,259)

var Mag2 = new Array(333,365,397,439,442,474,516,548,581,623,655,687,729,762,794,836,868,871,913,945,977,119,152,184,226,258,291)

var Mag2 = new Array(364,396,438,441,473,515,547,579,622,654,686,728,761,793,835,867,899,912,944,976,118,151,183,225,257,289,332)

var Mag2 = new Array(395,437,469,472,514,546,578,621,653,685,727,759,792,834,866,898,911,943,975,117,149,182,224,256,288,331,363)

var Mag2 = new Array(436,468,471,513,545,577,619,652,684,726,758,791,833,865,897,939,942,974,116,148,181,223,255,287,329,362,394)

var Mag2 = new Array(467,499,512,544,576,618,651,683,725,757,789,832,864,896,938,941,973,115,147,179,222,254,286,328,361,393,435)

var Mag2 = new Array(498,511,543,575,617,649,682,724,756,788,831,863,895,937,969,972,114,146,178,221,253,285,327,359,392,434,466)

var Mag2 = new Array(539,542,574,616,648,681,723,755,787,829,862,894,936,968,971,113,145,177,219,252,284,326,358,391,433,465,497)

var Mag2 = new Array(541,573,615,647,679,722,754,786,828,861,893,935,967,999,112,144,176,218,251,283,325,357,389,432,464,496,538)

 

 

 

var Stx = new Array (81)

var Sty = new Array (81)

var Mpx = new Array (81)

var Mpy = new Array (81)

 

var Mij = new Array (81)

var Mijn = new Array (81)

 

 

// данные

var R=12;

var xc = 14; var yc = 14;

if (R > 13.5) R=13.5;

Vector.Krug.ss (Vector.p(xc,yc,0), R, Vector.p(0,0,1))

Vector.SetFillColor (240,200,0) // цвет

var n1 = Vector.LastNmb()

// Зададим на окружности 10 точек и занесем их в массив

var k=0;

for ( var t=0; t <=1 ; t=t+0.1 ) {

      Vector.CurrObjNmb = n1 // переопределение в активный

      var K = Vector.Krug.P(t)

//    Vector.Krug.ss (Vector.p(K.x,K.y,0), 0.1, Vector.p(0,0,1))

      Stx[k]= rznn(K.x)

      Sty[k]= rznn(K.y)

      k=k+1;

}

//VbsMsg ("Stx[5]=" + Stx[5]);

//VbsMsg ("Sty[5]=" + Sty[5]);

 

 

/*

var ngroup

Vector.Polyline.Reset()

for ( var n=0; n < 10 ; n++ ) {

Vector.Polyline.AddP (Vector.p(Stx[n],Sty[n],0))

}

Vector.Polyline.AddP (Vector.p(Stx[0],Sty[0],0))

Vector.Polyline.SaveInDoc ( ngroup )

Vector.Polyline.Draw()

*/

 

// Сделаем для одной точки

var t = 0.5

Vector.CurrObjNmb = n1 // переопределение в активный

var K = Vector.Krug.P(t)

var xt = rznn(K.x)

var yt = rznn(K.y)

//VbsMsg ("xt=" + xt); // xt=9

//VbsMsg ("yt=" + yt); // yt=14

//Vector.Krug.ss (Vector.p(xt,yt,0), 0.25, Vector.p(0,0,1))

// определить, какому числу соответствуют координаты (x=9, y=14) из 1-м массива

var nij=0;

for ( var j=1; j < 28 ; j++ ) {

      for ( var i=1; i < 28 ; i++ ) {

            if (i == xt && j == yt ) nij = (j-1)*27+i;

}

}

// VbsMsg ("nij=" + nij); // соответсвует числу 360

 

// определить из 2-го магического массива какие координаты соответсвуют числу 360

 

var xn=0; var yn=0;

for ( var i=1; i < 28 ; i++ ) {

if (Rt1[i-1] == nij) {xn = i; yn=1;}

if (Rt2[i-1] == nij) {xn = i; yn=2;}

if (Rt3[i-1] == nij) {xn = i; yn=3;}

if (Rt4[i-1] == nij) {xn = i; yn=4;}

if (Rt5[i-1] == nij) {xn = i; yn=5;}

if (Rt6[i-1] == nij) {xn = i; yn=6;}

if (Rt7[i-1] == nij) {xn = i; yn=7;}

if (Rt8[i-1] == nij) {xn = i; yn=8;}

if (Rt9[i-1] == nij) {xn = i; yn=9;}

if (Rt10[i-1] == nij) {xn = i; yn=10;}

if (Rt11[i-1] == nij) {xn = i; yn=11;}

if (Rt12[i-1] == nij) {xn = i; yn=12;}

if (Rt13[i-1] == nij) {xn = i; yn=13;}

if (Rt14[i-1] == nij) {xn = i; yn=14;}

if (Rt15[i-1] == nij) {xn = i; yn=15;}

if (Rt16[i-1] == nij) {xn = i; yn=16;}

if (Rt17[i-1] == nij) {xn = i; yn=17;}

if (Rt18[i-1] == nij) {xn = i; yn=18;}

if (Rt19[i-1] == nij) {xn = i; yn=19;}

if (Rt20[i-1] == nij) {xn = i; yn=20;}

if (Rt21[i-1] == nij) {xn = i; yn=21;}

if (Rt22[i-1] == nij) {xn = i; yn=22;}

if (Rt23[i-1] == nij) {xn = i; yn=23;}

if (Rt24[i-1] == nij) {xn = i; yn=24;}

if (Rt25[i-1] == nij) {xn = i; yn=25;}

if (Rt26[i-1] == nij) {xn = i; yn=26;}

if (Rt27[i-1] == nij) {xn = i; yn=27;}

}

 

/*

VbsMsg ("xn=" + xn); //

VbsMsg ("yn=" + yn); //

Vector.Krug.ss (Vector.p(xn,yn,0), 0.25, Vector.p(0,0,1))

*/

 

 

// Сделаем для сикла

 

var kk =0; var kij =0;

 

for ( var t=0; t <=1 ; t=t+0.1 ) {

      Vector.CurrObjNmb = n1 // переопределение в активный

      var K = Vector.Krug.P(t)

      var xt = rznn(K.x)

      var yt = rznn(K.y)

      //VbsMsg ("xt=" + xt); // xt=2

      //VbsMsg ("yt=" + yt); // yt=5

      //Vector.Krug.ss (Vector.p(xt,yt,0), 0.25, Vector.p(0,0,1))

      // определить, какому числу соответствуют координаты (x=2, y=5) из 1-м массива

var nij=0;

for ( var j=1; j < 28 ; j++ ) {

      for ( var i=1; i < 28 ; i++ ) {

            if (i == xt && j == yt ) nij = (j-1)*27+i;

      }

}

//VbsMsg ("nij=" + nij); //

 

Mij[kij] = nij // +10

kij=kij+1

 

 

// определить из 2-го магического массива какие координаты соответсвуют числу 38

var xn=0; var yn=0;

 

 

for ( var i=1; i < 28 ; i++ ) {

if (Rt1[i-1] == nij) {xn = i; yn=1;}

if (Rt2[i-1] == nij) {xn = i; yn=2;}

if (Rt3[i-1] == nij) {xn = i; yn=3;}

if (Rt4[i-1] == nij) {xn = i; yn=4;}

if (Rt5[i-1] == nij) {xn = i; yn=5;}

if (Rt6[i-1] == nij) {xn = i; yn=6;}

if (Rt7[i-1] == nij) {xn = i; yn=7;}

if (Rt8[i-1] == nij) {xn = i; yn=8;}

if (Rt9[i-1] == nij) {xn = i; yn=9;}

if (Rt10[i-1] == nij) {xn = i; yn=10;}

if (Rt11[i-1] == nij) {xn = i; yn=11;}

if (Rt12[i-1] == nij) {xn = i; yn=12;}

if (Rt13[i-1] == nij) {xn = i; yn=13;}

if (Rt14[i-1] == nij) {xn = i; yn=14;}

if (Rt15[i-1] == nij) {xn = i; yn=15;}

if (Rt16[i-1] == nij) {xn = i; yn=16;}

if (Rt17[i-1] == nij) {xn = i; yn=17;}

if (Rt18[i-1] == nij) {xn = i; yn=18;}

if (Rt19[i-1] == nij) {xn = i; yn=19;}

if (Rt20[i-1] == nij) {xn = i; yn=20;}

if (Rt21[i-1] == nij) {xn = i; yn=21;}

if (Rt22[i-1] == nij) {xn = i; yn=22;}

if (Rt23[i-1] == nij) {xn = i; yn=23;}

if (Rt24[i-1] == nij) {xn = i; yn=24;}

if (Rt25[i-1] == nij) {xn = i; yn=25;}

if (Rt26[i-1] == nij) {xn = i; yn=26;}

if (Rt27[i-1] == nij) {xn = i; yn=27;}

}

 

 

// Vector.Krug.ss (Vector.p(xn,yn,0), 0.25, Vector.p(0,0,1))

Mpx[kk] = xn;

Mpy[kk] = yn;

kk=kk+1

}

 

 

var ngroup

Vector.Polyline.Reset()

for ( var n=0; n < 10 ; n++ ) {

Vector.Polyline.AddP (Vector.p(Mpx[n],Mpy[n],0))

}

Vector.Polyline.AddP (Vector.p(Mpx[0],Mpy[0],0))

Vector.Polyline.SaveInDoc ( ngroup )

Vector.Polyline.Draw()

Vector.Width=1 // для 2-го типа заливки полилинии

Vector.SetFillColor (240,0,0) // цвет

 

Vector.obj.All = 1; // (True) ошибку выдает!!!

Vector.Obj.Translate (Vector.p(-15, -15, 0))

Vector.obj.scale = 0.5

 

//Vector.CurrObjNmb = n1 // переопределение в активный

//Vector.Obj.Translate (Vector.p(-5, -5, 0))

 

 

// функции округления

function rznn ( vv ) {

return ( Math.round ( vv * 1 ) ) / 1 ;

}

function rzn ( vv ) {

return ( Math.round ( vv * 10 ) ) / 10 ;

}

// Переопределим цифры в 99-арканную свертку

 

/*

var jk = Mij[0]

VbsMsg ("jk = " + jk)

Mijn[0] = Rb[jk-1]

VbsMsg ("Mijn[0] = " + Mijn[0])

*/

 

// Формируем цифры из магической матрицы

for ( var n=0; n < 10 ; n++ ) {

   var jk = Mij[n]

   Mijn[n] = Rb[jk-1]

 

}

 

// круг в цифрах 1-729

// VbsMsg ("Mij[0] = " + Mij[0] +"=" + Mij[1]+"=" + Mij[2]+"=" + Mij[3]+"=" + Mij[4]+"=" + Mij[5]+"=" + Mij[6]+"=" + Mij[7]+"=" + Mij[8] + "=" + Mij[9]);

 

// круг в цифрах 111-999

VbsMsg ("Mijn[0] = " + Mijn[0] +"=" + Mijn[1]+"=" + Mijn[2]+"=" + Mijn[3]+"=" + Mijn[4]+"=" + Mijn[5]+"=" + Mijn[6]+"=" + Mijn[7]+"=" + Mijn[8] + "=" + Mijn[9]);

// конец листинга

 

Пояснения и результаты

 

 

// цифры в диапазоне (1-729), через которые проходит окружность:

// 568 796 929 921 774 542 314 181 189 336

// и преобразования в буквы (слово): т к р и ч ы г э е ц

// 133 123 131 121 138 143 114 145 116 137 = уксишьгюеч = 137

// Прочтение через слова в диапазоне 111-999 (из словарей Мифы, Плутарха, произведений Мошкова, "Cборной солянки"):

// Говорите-или-каждый-по-очереди-или-один-человек пышные объятия пеструю жизнью шлют в-чье-дежурство-на-кафедре виновника простила 132

// Говорите-или-каждый-по-очереди-или-один-человек ячмень Эпироты утопить сетями шлют Bd Амазонием водоемами 411

// Говорите-или-каждый-по-очереди-или-один-человек учился хочется широкую ученье шлют ii галактики утратили qo

// Говорите-или-каждый-по-очереди-или-один-человек ныряет понятию отгоняя полным шлют ii сдерживал угратары 123

// На цифру 568 во всех словарях одно и то же слово (фраза через дефис как одно слово).

 

// фраза сворачивается в первоначальные цифры и код и графику - псевдокруг и магик-круг

// 568 796 929 921 774 542 314 181 189 336 = ткричыгэец = 131

// В итоге вернулись к кругу (правильный 10-угольник) и магик-кругу, который по магический код из Маткада, получился иной.

 

 

 

Два «магических» преобразования окружности

 

 

Рис. слева – преобразование по макрокоманде (листинг см. выше)