This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ## ex: simple draw lines set (x_points_copy, y_points_copy) | |
| ## Offset1, cp1 | |
| x_points_copy=c( | |
| 622.077,619.735,617.393,619.735,622.077,616.925,611.304,605.683,600.53,595.378,590.459,585.307,580.388,575.47,570.317,565.399,560.246,555.328,550.176,555.094,562.589,563.525,567.507,570.317,562.823,555.094,550.878,555.328,562.823,570.552,574.533,570.786,563.057,555.562,551.815,555.562,563.291,570.786,575.001,575.236,571.02,563.291,555.797,552.752,555.797,563.525,571.02,576.875,571.254,563.76,556.031,553.689,556.265,563.76,571.488,578.983,581.091,585.072,590.459,595.612,598.422,600.764,602.638,602.638,599.593,596.314,592.333,596.783,593.738,590.928,593.972,601.467,602.17,601.701,594.206,589.757,594.206,601.935,609.43,612.943,617.159,609.664,601.935,594.441,586.712,579.217,571.488,563.994,556.265,554.86,556.499,563.994,571.723,579.217,586.946,594.441,602.17,609.664,617.393,620.672,617.627,609.898,602.404,594.675,587.18,579.451,571.723,564.228,556.499,555.328,559.778,564.462,569.146,573.83,578.515,583.199,587.883,592.567,597.017,601.701,606.385,611.069,612.24,615.754,612.24,606.619,604.512,612.006,616.925,612.006,604.277,597.017,596.549,604.277,611.772,618.33,611.538,604.043,596.314,588.82,586.243,582.965,581.091,588.586,596.314,603.809,611.538,619.735,619.032,611.304,603.809,596.08,588.586,580.857,574.065,573.362,569.146,565.633,573.128,580.857,588.351,596.08,603.575,611.304,618.798,621.14,618.564,611.069,603.341,595.846,588.117,580.622,572.894,565.399,559.075,565.165,572.894,580.388,588.117,595.612,603.341,610.835,618.564,619.267,621.843,622.78,618.33,610.835,603.106,595.612,587.883,580.388,572.659,565.165,558.139,564.931,572.659,580.154,587.883,595.378,603.106,610.601,618.33,624.419,618.096,610.367,602.872,595.143,587.649,579.92,572.425,564.696,557.904,557.202,557.436,564.696,572.191,579.92,587.414,595.143,602.638,610.367,617.861,626.059,625.356,617.861,610.133,602.638,594.909,587.414,579.686,572.191,564.462,556.968,556.265,556.733,564.462,571.957,579.686,587.18,594.909,602.404,610.133,617.627,625.122,625.824,623.717,625.356,626.527,622.78,621.843,626.059,626.761,624.653,619.501,622.78,626.761,625.824,621.14,617.627,619.267,624.653,626.761,623.014,617.393,615.754,621.14,626.527,624.888,619.267,614.114,617.627,623.014,626.293,621.14,615.754,612.709,613.88,619.501,624.888,626.059,623.014,617.627,612.475,611.069,615.754,621.375,625.824,624.888,619.501,614.114,609.664,612.24,617.627,623.248,625.59,621.375,615.988,610.367,608.259,608.962,614.114,619.501,624.653,625.122,623.248,617.861,612.24,607.088,610.601,615.988,621.375,624.888,619.735,614.114,608.727,605.683,606.854,612.475,617.861,623.248,624.653,621.609,615.988,610.601,605.448,604.277,608.727,614.348,619.735,624.419,623.482,617.861,612.475,607.088,602.872,605.214,610.601,616.222,621.609,624.185,619.735,614.348,608.962,603.341,601.467,602.17,607.088,612.475,618.096,623.248,623.951,621.609,616.222,610.835,605.214,600.062,603.575,608.962,614.348,619.969,623.717,618.096,612.709,607.088,601.701,598.656,599.827,605.448,610.835,616.222,621.843,623.482,619.969,614.583,608.962,603.575,598.656,597.485,601.701,607.322,612.709,618.096,623.248,621.843,616.456,610.835,605.448,600.062,599.359,597.017,595.143,593.504,594.206,595.143,595.846,596.549,597.251,597.954,598.422,598.656,598.891,598.891,598.422,595.378,592.333,589.522,586.478,583.433,581.091,579.217,577.578,575.704,574.065,572.191,571.02,570.317,570.552,571.488,573.128,574.533,575.236,573.362,575.236,575.236,572.894,571.957,573.83,575.236,571.957,570.786,575.47,573.83,569.615,571.957,575.47,570.317,568.444,573.83,575.704,572.191,567.273,570.317,575.704,574.065,568.444,566.102,566.804,572.191,576.641,575.704,570.317,564.931,568.678,574.065,577.578,576.641,572.191,566.804,563.76,564.931,570.552,575.938,578.515,574.065,568.678,567.273,563.291,564.462,565.165,565.867,566.336,566.804,566.57,566.57,566.57,566.57,566.804,566.336,565.633,564.462,563.291,561.886,560.481,559.31,558.607,558.373,558.373,558.607,558.373,559.778,558.841,558.373,558.139,560.012,560.949,558.139,557.904,558.607,561.183 | |
| ) | |
| y_points_copy=c( | |
| 315.807,315.573,315.105,315.573,315.807,315.105,314.402,314.168,315.105,317.681,320.023,322.599,324.942,327.518,329.86,332.436,334.778,337.12,339.697,343.21,348.596,349.299,350.002,349.768,344.381,338.994,331.499,334.778,340.165,345.552,348.596,341.336,335.949,330.563,323.536,326.347,331.734,337.12,340.165,338.291,332.905,327.518,322.131,315.573,317.915,323.302,328.689,332.905,324.473,319.086,313.7,307.61,309.484,314.871,320.257,325.878,327.284,327.049,327.986,329.86,331.499,333.139,336.184,340.399,345.083,348.128,351.407,351.407,349.299,342.976,345.083,350.47,350.939,346.254,340.868,333.373,336.652,342.039,347.66,350.002,348.831,343.444,337.823,332.436,327.049,321.663,316.042,310.655,305.268,299.647,301.052,306.439,311.826,317.447,322.834,328.22,333.607,339.228,344.615,346.957,340.399,335.012,329.392,324.005,318.618,312.997,307.61,302.223,296.837,295.666,292.855,290.279,287.468,284.658,281.847,279.037,276.226,273.416,270.605,267.795,264.985,262.408,263.111,269.903,267.327,263.345,266.156,271.542,279.505,275.758,270.371,265.219,269.2,274.587,279.974,289.108,284.424,278.803,273.416,268.029,266.156,265.921,266.624,272.245,277.632,283.018,288.639,298.71,298.242,292.855,287.234,281.847,276.461,270.84,265.921,265.453,264.75,264.282,269.669,275.055,280.676,286.063,291.45,297.071,302.458,308.547,306.673,301.287,295.666,290.279,284.892,279.271,273.884,268.498,263.813,272.713,278.1,283.487,289.108,294.495,299.881,305.502,310.889,311.358,313.231,318.15,315.105,309.718,304.097,298.71,293.324,287.703,282.316,276.929,271.777,281.145,286.532,291.918,297.539,302.926,308.313,313.934,319.321,327.986,323.536,318.15,312.529,307.142,301.755,296.134,290.747,285.361,280.442,279.74,284.424,289.576,294.963,300.35,305.971,311.358,316.744,322.365,327.752,337.823,337.355,331.968,326.581,320.96,315.573,310.187,304.566,299.179,293.792,288.405,287.703,292.621,298.008,303.395,308.781,314.402,319.789,325.176,330.797,336.184,341.57,342.039,344.849,343.912,341.336,346.489,347.191,341.102,340.399,342.273,348.362,343.912,338.291,338.526,345.552,349.533,346.957,339.462,336.418,341.102,348.596,350.002,342.507,335.012,336.652,344.147,350.704,345.786,338.291,333.607,339.697,347.425,350.939,349.065,341.336,333.841,332.202,335.481,342.976,350.236,351.173,344.615,336.886,330.797,331.031,338.526,346.254,351.173,347.66,340.165,332.436,329.392,334.076,341.804,349.299,351.407,350.704,343.444,335.715,328.689,327.752,329.626,337.355,344.849,351.407,346.489,338.994,331.265,326.347,332.905,340.633,348.128,351.641,349.768,342.039,334.544,326.815,324.942,328.455,336.184,343.678,350.939,351.641,345.318,337.589,330.094,323.536,324.005,331.734,339.228,346.957,351.875,348.596,340.868,333.373,325.644,322.131,327.284,334.778,342.507,350.002,351.875,351.173,344.147,336.418,328.923,321.428,320.726,322.834,330.563,338.057,345.786,352.11,347.191,339.697,331.968,324.473,319.321,326.113,333.607,341.336,348.831,352.11,350.47,342.741,335.247,327.518,320.023,317.681,321.663,329.157,336.886,344.381,351.407,352.11,346.02,338.526,330.797,323.302,316.276,317.213,324.707,332.436,339.931,347.66,348.362,351.875,350.47,348.596,344.615,340.633,336.418,332.436,328.22,324.005,320.023,315.807,311.592,307.61,303.395,305.268,308.079,311.123,313.934,316.979,319.789,323.302,326.815,330.328,334.076,337.589,340.868,344.849,347.66,349.533,350.939,351.641,350.704,351.407,348.831,347.66,351.173,351.407,349.065,346.723,350.47,351.407,344.849,346.254,351.173,347.66,342.976,349.299,350.939,343.444,340.868,344.849,350.704,346.489,338.994,340.633,348.128,350.704,349.768,342.039,335.949,336.184,343.678,350.47,345.318,337.589,332.905,333.139,339.228,346.957,350.236,348.596,340.868,333.373,329.626,334.778,342.507,344.381,350.002,345.786,341.57,337.589,333.373,329.157,325.176,320.96,316.744,312.529,308.547,304.331,300.116,296.134,292.153,288.405,284.424,280.442,276.226,272.245,268.029,263.813,262.877,261.706,263.111,263.813,264.985,262.408,261.94,265.921,266.858,266.156,262.642 ) | |
| plot(x_points_copy, y_points_copy, ylim = rev(range(y_points_copy)), type = "p", col="blue", lwd=2); | |
| j=500; | |
| j=j+1;for(i in 1:j) {lines(x_points_copy[i:(i+1)], y_points_copy[i:(i+1)]);} | |
| i=j; | |
| i=i+1;lines(x_points_copy[i:(i+1)], y_points_copy[i:(i+1)]); | |
| ## ex: simple draw lines set (x_points_copy, y_points_copy) | |
| ## cp2 | |
| x_points_copy=c( | |
| 553.425,555.771,558.121,555.771,553.425,558.589,564.222,569.846,574.981,580.088,584.965,590.072,594.948,599.821,604.932,609.805,614.915,619.792,624.899,619.92,612.333,611.384,607.391,604.584,612.172,619.994,624.34,619.833,612.246,604.424,600.39,604.263,612.085,619.672,623.542,619.746,611.924,604.337,600.069,599.867,604.176,611.998,619.585,622.744,619.659,611.837,604.25,598.322,604.089,611.677,619.498,621.946,619.338,611.75,603.929,596.337,594.205,590.228,584.826,579.641,576.803,574.432,572.506,572.432,575.395,578.62,582.544,578.094,581.176,584.096,581.015,573.427,572.717,573.267,580.854,585.434,580.928,573.106,565.515,561.961,557.767,565.354,573.18,580.767,588.589,596.177,604.002,611.59,619.411,620.915,619.251,611.663,603.842,596.25,588.428,580.841,573.019,565.428,557.606,554.287,557.445,565.267,572.859,580.68,588.268,596.094,603.915,611.503,619.324,620.516,616.115,611.477,606.843,602.208,597.574,592.939,588.305,583.671,579.271,574.636,570.002,565.363,564.18,560.549,564.107,569.796,571.855,564.267,559.211,564.194,572.015,579.365,579.763,571.942,564.354,557.638,564.511,572.102,579.924,587.511,590.12,593.403,595.264,587.672,579.85,572.263,564.437,556.065,556.776,564.598,572.189,580.011,587.599,595.424,602.301,603.012,607.239,610.76,603.172,595.351,587.759,579.937,572.35,564.524,556.937,554.489,557.097,564.685,572.51,580.098,587.92,595.511,603.333,610.92,617.325,611.081,603.259,595.672,587.846,580.259,572.437,564.845,557.024,556.313,553.704,552.682,557.184,564.772,572.598,580.185,588.007,595.598,603.42,611.008,618.123,611.168,603.346,595.759,587.933,580.346,572.524,564.932,557.111,550.871,557.271,565.093,572.685,580.506,588.094,595.919,603.507,611.329,618.206,618.92,618.604,611.255,603.668,595.846,588.254,580.433,572.845,565.019,557.432,549.06,549.771,557.358,565.18,572.772,580.593,588.181,596.007,603.594,611.416,619.003,619.718,619.164,611.342,603.755,595.933,588.341,580.52,572.932,565.106,557.519,549.931,549.221,551.279,549.656,548.53,552.187,553.112,549.003,548.313,550.388,555.433,552.232,548.349,549.282,553.843,557.286,555.692,550.437,548.382,552.047,557.536,559.151,553.896,548.641,550.251,555.741,560.778,557.351,552.096,548.9,553.945,559.196,562.179,561.041,555.556,550.3,549.158,552.145,557.4,562.425,563.814,559.245,553.76,549.417,550.35,555.605,560.856,565.219,562.705,557.449,551.964,549.676,553.809,559.06,564.549,566.62,565.93,560.905,555.654,550.625,550.173,552.013,557.264,562.754,567.791,564.364,559.109,553.858,550.431,555.469,560.954,566.209,569.192,568.054,562.568,557.313,552.062,550.69,553.673,559.158,564.413,569.438,570.597,566.258,560.773,555.518,550.949,551.877,557.362,562.618,567.869,571.998,569.713,564.462,558.973,553.722,551.207,555.567,560.822,566.073,571.562,573.403,572.713,567.918,562.667,557.177,552.156,551.466,553.771,559.022,564.277,569.762,574.804,571.377,566.122,560.871,555.382,551.725,557.226,562.482,567.967,573.222,576.209,575.067,569.581,564.326,559.075,553.586,551.988,555.431,560.686,566.171,571.426,576.221,577.38,573.271,567.782,562.531,557.275,552.246,553.635,558.89,564.375,569.63,574.882,575.572,577.852,579.75,581.422,580.789,579.922,579.293,578.66,578.031,577.402,577.003,576.842,576.682,576.751,577.293,580.305,583.3,586.057,589.052,592.043,594.336,596.148,597.726,599.538,601.112,602.924,604.037,604.67,604.387,603.418,601.754,600.337,599.651,601.512,599.683,599.704,601.984,602.917,601.084,599.72,602.933,604.088,599.519,601.133,605.263,602.982,599.551,604.593,606.437,601.182,599.354,602.797,607.612,604.642,599.387,600.997,606.487,608.783,608.097,602.846,598.503,599.436,604.691,609.958,606.301,601.05,597.62,598.552,602.895,608.146,611.133,609.991,604.506,599.25,596.74,601.099,606.35,607.723,611.606,610.508,609.879,609.246,608.852,608.457,608.76,608.834,608.908,608.981,608.816,609.358,610.134,611.375,612.615,614.086,615.56,616.8,617.577,617.88,617.954,617.793,618.044,616.659,617.571,618.027,618.241,616.413,615.484,618.225,618.443,617.752,615.238) | |
| y_points_copy=c( | |
| 258.792,258.985,259.412,258.985,258.792,259.404,260.009,260.145,259.118,256.452,254.025,251.359,248.931,246.27,243.838,241.176,238.745,236.317,233.651,230.225,224.969,224.283,223.65,223.933,229.189,234.44,241.86,238.659,233.404,228.153,225.178,232.372,237.623,242.878,249.838,247.093,241.842,236.587,233.616,235.494,240.806,246.057,251.312,257.816,255.527,250.276,245.021,240.908,249.24,254.495,259.747,265.794,263.966,258.711,253.459,247.97,246.602,246.906,246.063,244.279,242.689,241.091,238.079,233.864,229.128,226.026,222.678,222.756,224.811,231.084,229.03,223.775,223.318,227.994,233.249,240.665,237.464,232.213,226.724,224.443,225.688,230.943,236.428,241.683,246.934,252.189,257.675,262.93,268.181,273.776,272.4,267.145,261.894,256.404,251.153,245.898,240.647,235.158,229.907,227.622,234.126,239.377,244.866,250.117,255.373,260.858,266.109,271.364,276.615,277.765,280.653,283.311,286.203,289.094,291.986,294.878,297.77,300.662,303.549,306.441,309.333,311.991,311.309,304.579,307.093,310.976,308.129,302.874,294.998,298.659,303.91,308.935,304.946,299.695,294.44,285.422,289.987,295.476,300.727,305.982,307.811,307.988,307.252,301.763,296.512,291.257,285.772,275.845,276.301,281.552,287.042,292.293,297.548,303.033,307.832,308.288,308.917,309.324,304.069,298.818,293.329,288.078,282.823,277.337,272.082,266.035,267.863,273.118,278.603,283.859,289.11,294.599,299.85,305.105,309.678,300.886,295.635,290.38,284.895,279.639,274.388,268.899,263.648,263.192,261.363,256.462,259.429,264.684,270.169,275.424,280.675,286.165,291.416,296.671,301.7,292.452,287.201,281.945,276.46,271.205,265.954,260.465,255.214,246.656,250.994,256.246,261.735,266.986,272.241,277.726,282.981,288.233,293.032,293.722,289.042,284.017,278.762,273.511,268.022,262.771,257.516,252.03,246.775,236.849,237.305,242.56,247.811,253.301,258.552,263.807,269.292,274.547,279.798,285.053,285.744,280.834,275.583,270.328,265.077,259.588,254.337,249.081,243.596,238.341,233.086,232.63,229.783,230.748,233.345,228.127,227.409,233.571,234.285,232.375,226.197,230.703,236.393,236.142,229.036,224.993,227.598,235.185,238.266,233.517,225.926,224.492,232.08,239.667,237.999,230.408,223.761,228.74,236.328,241.068,234.89,227.068,223.502,225.396,233.222,240.809,242.469,239.138,231.55,224.201,223.24,229.878,237.704,243.87,243.62,236.032,228.21,223.215,226.773,234.36,242.186,245.271,240.514,232.692,225.101,222.956,223.671,231.02,238.842,245.957,246.902,244.996,237.174,229.583,222.936,227.915,235.502,243.324,248.303,241.656,233.83,226.243,222.677,224.571,232.397,239.984,247.806,249.704,246.138,238.312,230.725,223.376,222.653,229.053,236.879,244.466,251.105,250.62,242.794,235.207,227.385,222.394,225.713,233.535,241.127,248.948,252.506,247.276,239.689,231.867,224.276,222.37,223.084,230.195,238.017,245.609,253.192,253.907,251.758,243.937,236.349,228.523,222.111,227.09,234.677,242.499,250.09,255.308,248.419,240.831,233.005,225.418,222.086,223.746,231.572,239.159,246.981,254.572,256.943,252.901,245.313,237.487,229.9,222.789,222.066,228.228,235.819,243.641,251.229,258.344,257.383,249.795,241.969,234.382,226.56,225.845,222.292,223.664,225.509,229.502,233.499,237.727,241.72,245.947,250.175,254.164,258.383,262.602,266.583,270.79,268.863,266,262.907,260.044,256.946,254.095,250.55,247.009,243.464,239.688,236.143,232.844,228.851,226.045,224.188,222.812,222.134,223.083,222.347,224.956,226.127,222.573,222.323,224.697,227.064,223.26,222.302,228.941,227.507,222.516,226.07,230.814,224.402,222.73,230.317,232.926,228.884,222.944,227.212,234.799,233.132,225.54,222.923,223.872,231.694,237.86,237.609,230.022,223.137,228.354,236.176,240.921,240.67,234.504,226.682,223.351,225.01,232.836,240.424,244.215,238.986,231.164,229.266,223.577,227.812,232.04,236.033,240.256,244.479,248.456,252.671,256.886,261.101,265.086,269.293,273.496,277.457,281.417,285.139,289.096,293.056,297.259,301.236,305.451,309.67,310.603,311.798,310.377,309.666,308.491,311.1,311.584,307.554,306.614,307.328,310.886 | |
| ) | |
| plot(x_points_copy,y_points_copy,ylim = rev(range(y_points_copy)),type = "p",col="blue",lwd=2); | |
| j=30; | |
| for(i in 1:j) {lines(x_points_copy[i:(i+1)],y_points_copy[i:(i+1)]);} | |
| ## | |
| dev.off() | |
| dev.new() | |
| plot.new() | |
| x_points_copy=c( | |
| 31.5046444,33.93941,35.28065,34.9431725,31.7141342,25.4288673,17.8622932,10.8558712,10.9457264,8.279059,8.372798,6.706132,6.77779341,6.44446039,6.39640951,8.063075,7.80046368,11.6337967,11.1313868,16.7980537,15.9120369,22.745369,21.6857376,30.0190716,29.0821381,36.7488022,36.057663,44.22433,43.74729,52.0806274,51.6778374,59.8445,59.4978333,66.9978256,66.70181,73.53515,73.1242752,78.6242752,78.1672058,82.00054,81.4774551,83.81079,83.5538,83.5538,83.72094,81.05427,81.21508,76.37714,73.36995,70.02645,66.32733,62.4429741,56.9029961,51.2084846,45.6916542,40.34442,35.5018654,35.5062141,30.9982319,27.32411,27.3275547,24.3275547,22.4905148,21.31934,20.6396923,13.0853739,18.7125816,28.1765327,29.0188751,30.1881332,31.52286,27.833334,31.5046444 | |
| , | |
| 28,24.23122,26.3978863,26.3914146,27.7247486,27.7207661,27.3874321,27.417902,24.251236,24.35875,18.1920834,18.2981262,10.7981262,10.8107948,3.761192,0.9980376,-0.768206358,-1.12219572,0.679473162,4.89594126,11.2461948,19.0801239,28.44061,36.9323235,45.68442,54.45825,62.9998436,70.82104,78.01488,83.95987,88.3272552,91.11286,91.11286,88.21164,83.2849045,83.29403,80.29403,80.2994156,76.96609,76.98082,73.31415,73.36244,69.52911,69.5819,64.0819,64.11097,58.4443,58.4709358,52.9709358,52.9789619,47.64563,47.6647949,42.8293,38.32711,38.3425522,34.67417,31.6724434,29.8380947,29.8473244,28.6806583,28.01239,28.039465,27.872797,20.4999847,20.8333187,20.8144569,21.64779,22.8132915,22.8104725,24.8015041,28 | |
| ) | |
| y_points_copy=c( | |
| 24.2204723,56.43431,84.6003342,111.598457,136.750977,159.343948,179.353363,197.369873,197.1115,205.778168,205.4079,213.741226,213.114471,224.114471,223.388565,233.555237,232.662064,241.495392,240.655792,247.822464,247.010117,251.510117,251.027115,253.360443,253.221359,253.388016,253.436508,252.10318,252.2132,249.7132,249.85939,246.35939,246.529419,242.362762,242.545532,237.87886,238.203369,233.203369,233.700409,228.700409,229.630112,223.630112,225,218.666672,219.778168,211.1115,211.539932,200.696228,193.846588,186.156509,177.413147,167.280029,150.827972,132.404541,112.8449,93.29406,74.09083,74.10792,56.57687,41.2123451,41.2266273,28.8932972,21.37816,16.35882,13.4703426,-24.3009777,-25.5663414,12.2894144,15.9957075,21.1738644,27.1801033,24.2204723,24.2204723 | |
| , | |
| 31.7795277,28.28485,56.9515152,56.84644,84.8464355,84.61942,111.286095,110.852074,135.518738,134.987015,157.153671,156.8298,176.663147,176.630112,194.757675,203.73793,212.569138,224.2508,235.240982,244.957184,252.988388,258.1473,260.76825,260.95285,259.523926,256.891785,253.23111,248.886,243.973129,238.568588,232.872009,225.70903,218.098343,208.669388,197.626724,197.647339,190.814,190.826324,183.159668,183.194,174.527328,174.647171,164.647171,164.793839,148.4605,148.550537,130.217209,130.307327,110.807343,110.836235,91.336235,91.4091644,72.23394,54.7254066,54.78765,39.44715,27.1067,19.60254,19.6411781,14.6411791,11.8010063,11.9254351,11.0921011,12.7500038,14.0833378,14.0042906,17.6709557,22.8324814,22.8198948,31.7795277,31.7795277 | |
| ) | |
| plot(x_points_copy,y_points_copy,ylim = rev(range(y_points_copy)),type = "p",col="blue",lwd=2); | |
| j=105;for(i in 1:j) {lines(x_points_copy[i:(i+1)],y_points_copy[i:(i+1)]);} | |
| i=j; | |
| i=i+1;lines(x_points_copy[i:(i+1)],y_points_copy[i:(i+1)]); | |
| ### XXXn_CP1 | |
| dev.off() | |
| dev.new() | |
| plot.new() | |
| x_points_copy=c( | |
| 16.7980537,15.9120369,15.9120369,22.2531967,29.0821381,29.0821381,36.057663,43.74729,51.6778374,59.4978333,66.70181,73.1242752,78.1672058,82.00054,82.00054,81.4774551,81.4774551,83.5538,83.5538,83.5538,83.72094,83.72094,81.21508,76.37714,73.36995,70.02645,66.32733,62.4429741,56.9029961,51.2084846,45.6916542,40.34442,35.5062141,30.9982319,27.3275547,24.32857,24.32857,22.4905148,21.31934,20.4605331,20.4605331,13.0853739,18.7125816,16.7980537 | |
| ) | |
| y_points_copy=c( | |
| 247.822464,247.010117,247.010117,251.186,253.221359,253.221359,253.436508,252.2132,249.85939,246.529419,242.545532,238.203369,233.700409,228.700409,228.700409,229.630112,229.630112,224.290939,218.666672,218.666672,219.778168,219.778168,211.539932,200.696228,193.846588,186.156509,177.413147,167.280029,150.827972,132.404541,112.8449,93.29406,74.10792,56.57687,41.2266273,28.897459,28.897459,21.37816,16.35882,12.574564,12.574564,-24.3009777,-25.5663414,247.822464 | |
| ) | |
| plot(x_points_copy,y_points_copy,ylim = rev(range(y_points_copy)),type = "p",col="blue",lwd=2); | |
| j=105;for(i in 1:j) {lines(x_points_copy[i:(i+1)],y_points_copy[i:(i+1)]);} | |
| i=j; | |
| i=i+1;lines(x_points_copy[i:(i+1)],y_points_copy[i:(i+1)]); | |
| ### XXX n_CP2 | |
| dev.off() | |
| dev.new() | |
| plot.new() | |
| x_points_copy=c( | |
| 10.8686113,11.7546282,11.7546282,19.0801239,28.91786,28.91786,36.9323235,45.68442,54.45825,62.9998436,70.82104,78.01488,83.95987,87.99945,87.99945,88.52254,88.52254,91.11286,91.11286,91.11286,90.9457245,90.9457245,88.21164,83.29403,80.2994156,76.98082,73.36244,69.5819,64.11097,58.4709358,52.9789619,47.6647949,42.8293,38.3425522,34.67417,31.6714287,31.6714287,29.8473244,28.6806583,27.872797,27.872797,10.8686113 | |
| ) | |
| y_points_copy=c( | |
| 252.510864,253.323212,253.323212,258.1473,260.778625,260.778625,260.95285,259.523926,256.891785,253.23111,248.886,243.973129,238.568588,233.299576,233.299576,232.369873,232.369873,225.70903,218.666672,218.666672,217.555161,217.555161,208.669388,197.647339,190.826324,183.194,174.647171,164.793839,148.550537,130.307327,110.836235,91.4091644,72.23394,54.78765,39.44715,27.10254,27.10254,19.6411781,14.6411791,11.0921011,11.0921011,252.510864 | |
| ) | |
| plot(x_points_copy,y_points_copy,ylim = rev(range(y_points_copy)),type = "p",col="blue",lwd=2); | |
| j=105;for(i in 1:j) {lines(x_points_copy[i:(i+1)],y_points_copy[i:(i+1)]);} | |
| i=j; | |
| i=i+1;lines(x_points_copy[i:(i+1)],y_points_copy[i:(i+1)]); | |
| ### XXX | |
| dev.off() | |
| dev.new() | |
| plot.new() | |
| x_points_copy=c( | |
| 16.7980537,15.9120369,15.9120369,22.2531967,29.0821381,29.0821381,36.057663,43.74729,51.6778374,59.4978333,66.70181,73.1242752,78.1672058,82.00054,82.00054,81.4774551,81.4774551,83.5538,83.5538,83.5538,83.72094,83.72094,81.21508,76.37714,73.36995,70.02645,66.32733,62.4429741,56.9029961,51.2084846,45.6916542,40.34442,35.5062141,30.9982319,27.3275547,24.32857,24.32857,22.4905148,21.31934,20.4605331,20.4605331,13.0853739,18.7125816,16.7980537 | |
| , 10.8686113,11.7546282,11.7546282,19.0801239,28.91786,28.91786,36.9323235,45.68442,54.45825,62.9998436,70.82104,78.01488,83.95987,87.99945,87.99945,88.52254,88.52254,91.11286,91.11286,91.11286,90.9457245,90.9457245,88.21164,83.29403,80.2994156,76.98082,73.36244,69.5819,64.11097,58.4709358,52.9789619,47.6647949,42.8293,38.3425522,34.67417,31.6714287,31.6714287,29.8473244,28.6806583,27.872797,27.872797,10.8686113 | |
| ) | |
| y_points_copy=c( | |
| 247.822464,247.010117,247.010117,251.186,253.221359,253.221359,253.436508,252.2132,249.85939,246.529419,242.545532,238.203369,233.700409,228.700409,228.700409,229.630112,229.630112,224.290939,218.666672,218.666672,219.778168,219.778168,211.539932,200.696228,193.846588,186.156509,177.413147,167.280029,150.827972,132.404541,112.8449,93.29406,74.10792,56.57687,41.2266273,28.897459,28.897459,21.37816,16.35882,12.574564,12.574564,-24.3009777,-25.5663414,247.822464 | |
| , 252.510864,253.323212,253.323212,258.1473,260.778625,260.778625,260.95285,259.523926,256.891785,253.23111,248.886,243.973129,238.568588,233.299576,233.299576,232.369873,232.369873,225.70903,218.666672,218.666672,217.555161,217.555161,208.669388,197.647339,190.826324,183.194,174.647171,164.793839,148.550537,130.307327,110.836235,91.4091644,72.23394,54.78765,39.44715,27.10254,27.10254,19.6411781,14.6411791,11.0921011,11.0921011,252.510864 | |
| ) | |
| plot(x_points_copy,y_points_copy,ylim = rev(range(y_points_copy)),type = "p",col="blue",lwd=2); | |
| j=105;for(i in 1:j) {lines(x_points_copy[i:(i+1)],y_points_copy[i:(i+1)]);} | |
| i=j; | |
| i=i+1;lines(x_points_copy[i:(i+1)],y_points_copy[i:(i+1)]); | |
| ### | |
| dev.off() | |
| dev.new() | |
| plot.new() | |
| x_points_copy=c( | |
| 31.7487621,24.3049946,31.6412487,24.1086216,31.14102,23.608366,30.64079,23.10811,30.1405621,22.6078548,29.6403332,22.1076,29.1401043,21.6073437,28.6398754,21.1070881,28.1396465,20.6068325,27.6394176,20.1065769,27.1391888,19.6063213,26.63896,19.1060658,26.138731,18.60581,25.6385021,18.29256,25.045414,17.6442642,24.3852577,16.9840717,23.7251015,16.32388,23.0649452,15.6636868,22.404789,15.0034943,21.7446327,14.3433018,21.0844765,13.6831093,20.42432,13.0229168,19.764164,12.3627243,19.1040077,11.7025318,18.4438515,11.0423393,17.7817574,10.3973455,17.1052876,9.72084,16.4288177,9.044334,15.7523479,8.367828,15.0758781,7.691323,14.3994083,7.014817,13.7229385,6.33831167,13.0464687,5.661806,12.3699989,4.98530054,11.6935291,4.308795,11.0170593,3.65658569,10.6081028,3.1076746,10.0592213,2.5587635,9.51034,2.00985241,8.961458,1.46094131,8.412577,0.9406735,8.170711,0.5746218,7.80467939,0.208570123,7.438648,-0.157481551,7.072617,-0.5235332,6.706132,-0.768206358,6.77779341,-0.8059294,6.72154665,-0.8622005,6.6653,-0.9184716,6.609053,-0.974742651,6.55280638,-1.03101373,6.49655962,-1.0872848,6.43541145,-1.00811207,6.60129738,-0.7075666,6.90171337,-0.4070212,7.20212936,-0.10647577,7.50254536,0.194069654,7.80296135,0.494615078,7.992809,0.9641497,8.268263,1.70372748,9.007523,2.44330525,9.746782,3.182883,10.486042,3.92246079,11.2253017,4.662039,11.2071457,5.683764,12.191679,6.83603668,13.3434563,7.98830938,14.4952335,9.140582,15.6470108,10.2928543,16.7980537,11.2461948,15.9120369,12.5068674,17.4153442,14.0113449,18.9186516,15.5158224,20.4219589,17.0203,21.9252663,18.5247784,22.0009556,20.1744366,23.0855026,21.90912,24.8188381,23.6438046,26.5521736,25.3784885,28.28551,27.1131725,30.0190716,28.44061,29.0821381,29.8574886,30.961195,31.7367439,32.8402519,33.616,34.7193069,35.49526,36.598362,37.3688431,37.0802841,39.22398,38.9352264,41.0791168,40.79017,42.9342537,42.64511,44.78939,43.952076,46.6161957,45.34619,48.4166222,47.1464272,50.21705,48.9466629,52.0174751,50.7469,53.8179,51.7316055,55.5715179,53.459137,57.2992363,55.18667,59.0269547,56.9142,60.754673,58.64173,62.48239,59.65936,64.15085,61.3023376,65.794,62.9453163,67.43715,64.588295,69.0803,66.23128,70.72345,67.24247,72.2811356,68.79456,73.83339,70.34666,75.38565,71.89875,76.93791,73.45084,78.44071,74.05203,79.83157,75.44275,81.222435,76.8334656,82.6133,78.22418,83.996315,78.57093,85.1399841,79.71448,86.28365,80.8580246,87.42732,82.00054,88.3272552,81.4774551,88.843956,82.1192,89.48679,82.76095,90.12963,83.4026947,90.77247,83.69192,91.11286,83.5538,91.11286,83.5538,91.11286,83.5538,91.11286,83.5538,91.11286,83.72094,90.67283,83.17515,90.12704,82.62936,89.5812454,82.0835648,89.03545,81.53777,88.48966,81.12873,87.84062,80.55902,87.08445,79.80285,86.32828,79.04668,85.5721054,78.2905045,84.81593,77.53433,84.05976,76.77816,83.30359,76.02676,82.57545,75.2807,81.82939,74.5346451,81.0833359,73.78859,80.33728,73.04519,79.60769,72.3052, | |
| 78.86769,71.56521,78.12769,70.82522,77.3876953,70.08523,76.68425,69.36075,75.96111,68.63761,75.2379761,67.9144745,74.51484,67.19134,73.7917,66.4682,73.18308,65.7924347,72.51879,65.12814,71.8545,64.46385,71.19021,63.79956,70.52592,63.13527,69.8616257,62.47088,69.55551,62.4180946,69.28044,61.8151665,68.67751,61.21224,68.074585,60.60931,67.47166,60.006382,66.86873,59.4034538,66.2658,58.8005257,65.66287,58.1975975,65.0599442,57.59467,64.457016,56.99174,63.92812,56.4272,63.3701973,55.869278,62.8122749,55.3113556,62.2543526,54.7534332,61.69643,54.19551,61.1385078,53.63759,60.5805855,53.0796661,60.0226631,52.5217438,59.46474,51.96382,58.90682,51.4059,58.4087639,50.8771133,57.8958931,50.3642426,57.3830223,49.85137,56.87015,49.3385,56.35728,48.82563,55.84441,48.31276,55.33154,47.79989,54.81867,47.2870178,54.3057976,46.774147,53.7929268,46.2612762,53.280056,45.7484055,52.7888527,45.2483673,52.29043,44.7499428,51.7920036,44.25152,51.29358,43.7530937,50.7951546,43.25467,50.29673,42.7562447,49.7983055,42.25782,49.29988,41.7593956,48.8014565,41.26097,48.3030319,40.7625465,47.8046074,40.26999,47.36861,39.8080177,46.90664,39.3460464,46.4446678,38.8840752,45.9826965,38.4221039,45.5207253,37.9601326,45.058754,37.49816,44.5967827,37.03619,44.13481,36.57422,43.67284,36.1122475,43.21087,35.6502762,42.7474136,35.19126,42.2769,34.72075,41.80639,34.2502365,41.3358765,33.7797241,40.8653641,33.30921,40.39485,32.8387,39.92434,32.368187,39.4538269,31.8976746,38.9833145,31.4271622,38.5128021,30.9593925,38.0914726,30.5199928,37.6520729,30.0805931,37.2126732,29.6411934,36.7732735,29.2017937,36.3338737,28.762394,35.894474,28.3229942,35.4550743,27.8835945,35.0156746,27.4441948,34.57467,27.0065155,34.12813,26.5599766,33.6815948,26.1134377,33.2350578,25.6668987,32.78852,25.22036,32.3419838,24.77382,31.8954449,24.3275547,24.32857,31.4499435,23.8859577,31.0069752,23.4433441,30.5640068,23.00073,30.1210384,22.5581169,29.70322,22.1316528,29.2793236,21.7080975,28.8554268,21.2842731,28.4295425,20.85734,28.0217876,20.4605331,27.7870865,20.0912056,27.6156673,19.7218781,27.4442482,19.35255,27.27283,18.983223,27.10141,18.6138954,26.92999,18.2445679,26.7585716,17.87524,26.5871525,17.5059128,26.4157333,17.1365852,26.2443142,16.7672577,26.0728951,16.39793,25.9014759,16.0286026,25.7300568,15.6592741,25.5586376,15.2899456,25.3872185,14.9206171,25.2158,14.5512886,25.04438,14.18196,24.872961,13.8126316,24.7015419,13.4433031,24.5301228,13.1421556,24.3587036,14.9794769,24.1872845,16.8168,24.0158653,18.6541214,23.8444462,19.1547966,23.673027,19.61154,23.5016079,20.0682831,23.3301888,20.5250263,23.15877,20.98177,22.98735,21.4385128,22.8159313,21.895256,22.6445122,22.352,22.473093,22.8087425,22.3016739,23.2654858,22.1302547,23.722229,21.9588356,24.1789722,21.7874165,24.6357155,21.6159973,25.0924587,21.4445782,25.549202,21.273159,26.0059452,21.10174,26.4626884,20.93032,26.9194317,20.7589016,27.3761749,20.5874825,27.8333454,20.7245483,28.2736034,21.1074486,28.684269,21.5178471,29.09447,21.9265289,29.5026112,22.3344059,29.9107533,22.7422829,30.316925,23.1394482,30.7188988,23.54116,31.1208725,23.942873,31.52286,24.30823,30.60046,24.6370754,29.67806,25.5594044,28.755661,27.075304,27.833334 | |
| ) | |
| y_points_copy=c( | |
| 136.481247,135.252869,137.01297,135.886124,138.811081,137.684341,140.609192,139.482559,142.4073,141.280777,144.205414,143.079,146.003525,144.877213,147.801636,146.67543,149.599747,148.473648,151.397858,150.271866,153.195969,152.070084,154.99408,153.8683,156.792191,155.666519,158.5903,156.8468,160.357971,158.5589,162.103714,160.304749,163.849457,162.0506,165.5952,163.796448,167.340942,165.5423,169.086685,167.288147,170.832428,169.034,172.578171,170.779846,174.323914,172.5257,176.069656,174.271545,177.8154,176.0174,179.560455,177.693268,181.299942,179.432861,183.039429,181.172455,184.778915,182.912048,186.5184,184.651642,188.257889,186.391235,189.997375,188.130829,191.736862,189.870422,193.476349,191.610016,195.215836,193.349609,196.955322,195.097641,198.208771,196.8816,199.99263,198.665573,201.776489,200.449539,203.560349,202.2335,205.344208,204.02475,206.418335,205.855,208.248489,207.685242,210.078644,209.515488,211.9088,211.345734,213.741226,212.569138,213.114471,213.81398,214.970627,215.670929,216.826782,217.527878,218.682938,219.384827,220.5391,221.241776,222.395248,223.098724,223.977768,224.9467,224.638382,226.780029,226.470917,228.613358,228.303452,230.446686,230.135986,232.280014,231.968521,234.113342,233.316254,235.896973,233.740036,237.601212,235.443542,239.30545,237.147049,241.009689,238.850555,242.713928,240.554062,244.418167,240.7824,245.953552,241.99675,247.410843,243.453415,248.868134,244.91008,250.325424,246.366745,251.782715,247.822464,252.988388,247.010117,253.818588,248.0001,254.809341,248.9901,255.8001,249.980087,256.790833,250.970078,257.7816,251.170792,258.4537,251.419052,258.939423,251.904388,259.42514,252.389725,259.910858,252.875061,260.396576,253.360443,260.76825,253.221359,260.799042,253.2622,260.8399,253.303055,260.880768,253.3439,260.921631,253.38475,260.8816,253.269547,260.5787,252.9667,260.275818,252.663864,259.972931,252.361023,259.670044,252.16597,259.2444,251.733521,258.704254,251.193451,258.164124,250.653381,257.624,250.113312,257.083862,249.836349,256.414673,249.095978,255.674225,248.3556,254.933777,247.615234,254.193329,246.874863,253.452881,246.439682,252.59166,245.526917,251.6788,244.614151,250.765945,243.701385,249.853088,242.78862,248.940231,242.1763,247.888855,241.116333,246.828781,240.056366,245.7687,238.9964,244.708633,237.936432,243.586,237.359955,242.321579,236.095673,241.057159,234.83139,239.79274,233.567108,238.521057,233.173813,237.029312,231.682236,235.537567,230.190659,234.045822,228.700409,232.872009,229.630112,231.543365,227.9799,229.890366,226.3297,228.237366,224.679489,226.584366,224.263763,224.874634,223.9785,223.101028,222.2079,221.327423,220.4373,219.553818,218.666672,218.098343,219.778168,216.668243,218.004333,214.894409,216.2305,213.120575,214.456665,211.346741,212.682831,209.5729,211.309875,207.8378,210.069443,206.142929,208.374573,204.448059,206.6797,202.753189,204.984833,201.058319,203.289963,199.363449,201.5951,197.668579,199.898148,196.010574,198.1988,194.311234,196.499466,192.6119,194.800125,190.912552,193.09964,189.235352,191.397644, | |
| 187.533356,189.695648,185.83136,187.993652,184.129364,186.291656,182.493011,184.583038,180.783783,182.87381,179.074554,181.164581,177.365326,179.455353,175.6561,177.746124,174.179276,176.017761,172.446335,174.284821,170.7134,172.55188,168.980453,170.818939,167.247513,169.086,165.514572,167.352814,164.72052,167.206146,163.89859,165.415634,162.108078,163.625122,160.317566,161.83461,158.527054,160.0441,156.736542,158.253586,154.94603,156.463074,153.155518,154.672562,151.365,152.88205,149.5745,151.091537,147.958969,149.288635,146.153931,147.4836,144.348892,145.678558,142.543854,143.87352,140.738815,142.068481,138.933777,140.263443,137.128738,138.4584,135.3237,136.653366,133.518661,134.848328,131.713623,133.043289,130.0869,131.229675,128.268539,129.411316,126.45018,127.592957,124.631821,125.7746,122.813461,123.956238,120.9951,122.137878,119.176743,120.319519,117.358383,118.50116,115.540024,116.6828,113.721664,114.864441,111.903305,113.046082,110.141151,111.224129,108.318787,109.401764,106.496422,107.579391,104.674057,105.757019,102.851692,103.934647,101.029327,102.112274,99.20696,100.2899,97.3846,98.46753,95.56223,96.64516,93.73987,94.8227844,91.9175,92.9989,90.23464,91.166954,88.4026947,89.33501,86.57075,87.50306,84.7388,85.67111,82.90685,83.8391647,81.0749054,82.00722,79.24296,80.17527,77.41101,78.34332,75.57906,76.5113754,73.7471161,74.67943,71.9155,72.8830948,70.0857239,71.05332,68.25595,69.22355,66.42618,67.3937759,64.596405,65.564,62.7666321,63.73423,60.93686,61.9044571,59.1070862,60.0746841,57.2773132,58.24491,55.44754,56.4144478,53.7376862,54.5769539,51.9001923,52.73946,50.0627,50.9019661,48.2252045,49.0644722,46.38771,47.22698,44.5502167,45.3894844,42.7127228,43.55199,40.87523,41.7144966,39.03808,39.9068031,37.2023048,38.07103,35.36653,36.23526,33.5307579,34.39949,31.6949863,32.56372,29.8592148,30.72795,28.0234432,28.8932972,28.897459,26.1964664,27.086771,24.3843212,25.276083,22.572176,23.465395,20.76003,21.654707,19.0235939,19.8401718,17.2068939,18.024931,15.390193,16.20979,13.5739241,14.39534,11.8441954,12.574564,11.1113749,10.7279348,11.1499214,8.881306,11.188468,7.03467655,11.2270145,5.18804741,11.2655611,3.34141827,11.3041077,1.49478912,11.3426542,-0.351840019,11.3812008,-2.19846916,11.4197474,-4.0450983,11.4582939,-5.89172745,11.4968405,-7.73835659,11.535387,-9.584986,11.5739336,-11.4316149,11.61248,-13.278244,11.6510267,-15.1248732,11.6895733,-16.9715023,11.72812,-18.81813,11.7666664,-20.66476,11.805213,-22.51139,11.84376,-24.3137455,11.8823061,-24.7268944,11.9208527,-25.1400433,11.9593992,-25.5531921,11.9979458,-23.7974815,12.0364923,-21.9705086,12.0750389,-20.1435356,12.1135855,-18.3165627,12.152132,-16.48959,12.1906786,-14.6626177,12.2292252,-12.8356457,12.2677717,-11.0086737,12.3063183,-9.181702,12.3448648,-7.35472965,12.3834114,-5.52775764,12.421958,-3.7007854,12.4605045,-1.87381315,12.4990511,-0.0468409061,12.5375977,1.78013134,12.5761442,3.60710359,12.6146908,5.434076,12.6532373,7.26104832,12.6917839,9.08802,12.73033,10.9166613,13.6482582,12.7165213,15.2934494,14.5234423,17.0992012,16.3304787,18.9053764,18.1379719,20.7116985,19.9454651,22.51802,21.7534256,24.3002834,23.5623,26.1079865,25.3711739,27.91569,27.1801033,29.5597954,26.4401817,31.0395966,25.70026,31.7795277,24.9603386,31.7795277,24.2204723 | |
| ) | |
| plot(x_points_copy,y_points_copy,ylim = rev(range(y_points_copy)),type = "p",col="blue",lwd=2); | |
| j=45;for(i in 1:j) {lines(x_points_copy[i:(i+1)],y_points_copy[i:(i+1)]);} | |
| i=j; | |
| i=i+1;lines(x_points_copy[i:(i+1)],y_points_copy[i:(i+1)]); | |
| ##private void GenAllGaughKnotsAndPoints(int CPs_Idx, double S) | |
| ###SP | |
| dev.off() | |
| dev.new() | |
| plot.new() | |
| x_points_copy=c( | |
| 24.10062,24.1005611,24.38705,24.3446045,24.66243,24.599205,24.93628,24.8548069,25.2094288,25.11055,25.48219,25.3660927,25.7547054,25.62125,26.0270576,25.8758926,26.299305,26.1299229,26.571476,26.3832569,26.8435974,26.63581,27.1156826,26.8874969,27.3877487,27.1382217,27.6598,27.3878937,27.9318447,27.6363945,28.2038918,28.0582638,28.47599,28.1510677,28.7482071,28.2437782,29.0205688,28.3363476,29.2931175,28.4287243,29.5658875,28.5208569,29.83891,28.6126957,30.11219,28.7041874,30.3857651,28.7952843,30.6596489,28.8859329,30.93385,28.9760818,31.2083931,29.0656815,31.48328,29.1546783,31.75853,29.24302,32.034153,29.3306561,32.31016,29.417532,32.5865555,29.5035973,32.8633575,29.5887985,33.1405678,29.67308,33.4181938,29.7563915,33.69625,29.8386745,33.97474,29.919878,34.2536736,29.9999466,34.53306,30.078825,34.81289,30.156456,35.0931931,30.2327843,35.37397,30.30775,35.65522,30.3813019,35.93696,30.4533787,36.21919,30.523922,36.5019226,30.5928726,36.7851563,30.6601715,37.06891,30.7257557,37.35318,30.7895679,37.6379776,30.8515453,37.9233131,30.911623,38.20919,30.96974,38.4956169,31.0258312,38.7826,31.0798321,39.0701523,31.1316757,39.3582764,31.1812954,39.64698,31.2286243,39.93627,31.273592,40.22616,31.31613,40.516655,31.3561668,40.8077621,31.393631,41.0994949,31.4284477,41.3918533,31.4605446,41.68486,31.4898434,41.97851,31.5162678,42.2728271,31.53974,42.5678024,31.5601788,42.86346,31.5775051,43.1598053,31.5916348,43.4568558,31.6024818,43.754612,31.6099625,44.0530853,31.613987,44.3522949,31.6144676,44.6522446,31.611311,44.9529533,31.6044235,45.254425,31.5937119,45.55668,31.5790749,45.859726,31.5604153,46.16358,31.53763,46.4682541,31.5106163,46.7737579,31.4792633,47.08011,31.4434662,47.3873253,31.40311,47.69542,31.35808,48.0044022,31.3082581,48.3143,31.2535229,48.6251221,31.1937523,48.9368935,31.1288166,49.2496262,31.0585861,49.5633354,30.9829273,49.8780441,30.9017,50.1937752,30.8147621,50.5105438,30.7219677,50.8283768,30.6231651,51.14729,30.5182018,51.467308,30.4069138,51.78846,30.28914,52.1107635,30.164711,52.43425,30.0334473,52.7589378,29.8951683,53.08486,29.7496872,53.41205,29.5968132,53.7405243,29.4363422,54.0703278,29.2680664,54.4014854,29.091774,54.73403,28.9072418, | |
| 55.0680046,28.7142372,55.4034348,28.5125217,55.7403641,28.30185,56.0788345,28.0819588,56.4188843,27.8525944,56.7605629,27.61368,57.1039124,27.3653011,57.44898,27.10756,57.79582,26.8405571,58.14448,26.5644054,58.49502,26.2792225,58.8475037,25.9851322,59.201992,25.6822681,59.5585442,25.37077,59.9172363,25.0507813,60.27814,24.7224617,60.6413345,24.385973,61.0069046,24.0414848,61.37494,23.6891785,61.74553,23.3292465,62.1187744,22.9618835,62.49479,22.5873032,62.87368,22.20572,63.2555771,21.8173676,63.6406136,21.4224815,64.02893,21.0213146,64.42068,20.6141281,64.8160248,20.2011948,65.21516,19.7828,65.61826,19.3592453,66.0255661,18.9308357,66.43725,18.4978943,66.85337,18.0607586,67.27395,17.6197815,67.69902,17.17532,68.12862,16.7277565,68.56273,16.27748,69.00139,15.8248978,69.4446,15.3704338,69.89238,14.9145241,70.34471,14.4576187,70.8015747,14.0001869,71.26296,13.5427151,71.72884,13.085701,72.1991653,12.6296654,72.67389,12.1751385,73.15292,11.7226734,73.6362,11.2728386,74.1236,10.8262157,74.61498,10.3834095,75.11021,9.945036,75.6090851,9.511738,76.11139,9.084162,76.61687,8.662985,77.12521,8.24889,77.63608,7.84258652,78.1490555,7.4447937,78.66365,7.05625343,79.17933,6.677719,79.6954346,6.30995941,80.21124,5.953762,80.72589,5.609928,81.23839,5.27927971,81.74762,4.962635,82.25225,4.660858,82.7508,4.37478638,83.24153,4.105299,83.72247,3.85326958,84.19135,3.61959839,84.6456,3.4051857,85.08226,3.21093178,85.498,3.0377636,85.88906,2.88655734,86.25122,2.757718,86.57977,2.65134954,86.86954,2.56758952,87.11486,2.506619,87.30967,2.46866226,87.44755,2.453992,87.52187,2.4629302,87.52598,2.49585462,87.45337,2.55320072,87.2980347,2.63547,87.05464,2.74323344,86.71891,2.87714124,86.28778,3.03793073,85.75964,3.22643781,85.13439,3.44360876,84.41359,3.690517,83.60086,3.96838045,82.69984,4.278583,81.71322,4.62270641,80.6429138,5.002558,79.49004,5.42022038,78.2549744,5.878101,76.93735,6.379001,75.5359344,6.926208,74.04863,7.52361631,72.47229,8.17587948,70.80249,8.888634,69.03328,9.668804,67.15666,10.5250568,65.16193,11.4684486,63.03454,12.5134859,60.7543259,13.6797962,58.29232,14.9951239,55.60472,16.50095,52.6201668,18.2644386,49.2077026,20.408577,45.0703964,23.2126541,39.0578461,27.77067 | |
| ) | |
| y_points_copy=c( | |
| 11.7761345,11.7761383,12.9099913,12.90999,14.0438519,14.0438538,15.1777134,15.1777115,16.3115711,16.31157,17.4454327,17.4454269,18.5792923,18.5792847,19.7131386,19.7131386,20.8469925,20.847,21.9808521,21.9808578,23.1147118,23.1147156,24.2485657,24.2485733,25.38243,25.3824158,26.5162888,26.5162888,27.6501522,27.6501465,28.7839966,28.7840042,29.9178467,29.9178619,31.0517426,31.05172,32.1855774,32.1855774,33.3194275,33.3194351,34.4532928,34.4532928,35.58716,35.58715,36.72101,36.72101,37.85486,37.854866,38.98873,38.9887238,40.1225739,40.12258,41.25644,41.25644,42.3903046,42.3902969,43.5241547,43.5241547,44.6580048,44.6580124,45.7918777,45.79187,46.92572,46.9257278,48.0595856,48.0595856,49.1934357,49.1934433,50.3273,50.3273,51.4611664,51.46116,52.5950165,52.5950165,53.7288742,53.7288742,54.8627319,54.8627319,55.99659,55.99659,57.1304474,57.1304474,58.2643051,58.2643051,59.3981628,59.3981628,60.53203,60.53202,61.66588,61.66588,62.7997437,62.799736,63.9335938,63.9335938,65.06745,65.06745,66.20131,66.20131,67.33517,67.33517,68.4690247,68.4690247,69.60288,69.60288,70.73674,70.73674,71.87059,71.8706,73.0044556,73.0044556,74.13831,74.13831,75.27217,75.27217,76.40603,76.40603,77.53989,77.53989,78.6737442,78.6737442,79.8076,79.8076,80.94145,80.94146,82.07531,82.07532,83.2091751,83.2091751,84.34303,84.34303,85.47689,85.47689,86.61075,86.61075,87.7446,87.744606,88.87846,88.87846,90.01232,90.01232,91.14618,91.14618,92.28004,92.28004,93.4138947,93.4138947,94.54775,94.54775,95.68161,95.68161,96.81547,96.81547,97.9493256,97.9493256,99.0831757,99.08318,100.217041,100.217041,101.3509,101.3509,102.484756,102.484756,103.618614,103.618614,104.752472,104.752472,105.88633,105.88633,107.02018,107.020187,108.154045,108.154045,109.287895,109.2879,110.421761,110.421761,111.555618,111.555618,112.689476,112.689476,113.823334,113.823334,114.957191,114.957191,116.091049,116.091049,117.2249,117.224907,118.358765,118.358765,119.492622,119.492622,120.62648,120.62648,121.760338,121.760338,122.894196,122.894196,124.028053,124.028053,125.161911,125.161911, | |
| 126.295769,126.295769,127.429626,127.429626,128.563492,128.563492,129.697357,129.697357,130.831223,130.831223,131.965088,131.965088,133.098953,133.098953,134.232819,134.232819,135.366684,135.366684,136.500549,136.500549,137.634415,137.634415,138.76828,138.76828,139.902145,139.902145,141.036011,141.036011,142.169876,142.169876,143.303741,143.303741,144.4376,144.4376,145.571472,145.571472,146.705338,146.705338,147.8392,147.8392,148.973068,148.973068,150.106934,150.106934,151.2408,151.2408,152.374664,152.374664,153.50853,153.50853,154.6424,154.6424,155.77626,155.77626,156.910126,156.910126,158.043991,158.043991,159.177856,159.177856,160.311722,160.311722,161.445587,161.445587,162.579453,162.579453,163.713318,163.713318,164.847183,164.847183,165.981049,165.981049,167.114914,167.114914,168.248779,168.248779,169.382645,169.382645,170.51651,170.51651,171.650375,171.650375,172.784241,172.784241,173.9181,173.9181,175.051971,175.051971,176.185837,176.185837,177.3197,177.3197,178.453568,178.453568,179.587433,179.587433,180.7213,180.7213,181.855164,181.855164,182.989029,182.989029,184.1229,184.1229,185.25676,185.25676,186.390625,186.390625,187.52449,187.52449,188.658356,188.658356,189.792221,189.792221,190.926086,190.926086,192.059952,192.059937,193.193817,193.193817,194.327682,194.327682,195.461548,195.461548,196.595413,196.595413,197.729279,197.729279,198.863144,198.863144,199.997009,199.997009,201.130875,201.130875,202.26474,202.26474,203.3986,203.3986,204.532471,204.532471,205.666336,205.666336,206.8002,206.8002,207.934067,207.934067,209.067932,209.067932,210.2018,210.2018,211.335663,211.335663,212.469528,212.469528,213.6034,213.6034,214.737259,214.737259,215.871124,215.871124,217.00499,217.00499,218.138855,218.138855,219.27272,219.27272,220.406586,220.406586,221.540451,221.540451,222.674316,222.674316,223.808182,223.808182,224.942047,224.942047,226.075912,226.075912,227.209778,227.209778,228.343643,228.343643,229.477509,229.477509,230.611374,230.611374,231.745239,231.745239,232.8791,232.8791,234.01297,234.01297,235.146835,235.146835,236.2807,236.2807,237.414566,237.414566,238.548431,238.548431,239.6823,239.6823,240.816162,240.816162,241.950027,241.950027,243.0839,243.0839,244.217758,244.217758,245.351624,245.351624,246.485489,246.485489,247.619354,247.619354,248.75322,248.75322,249.887085,249.887085,251.02095,251.02095,252.154816,252.154816,253.288681,253.288681,254.422546,254.422546,255.556412,255.556412,256.690277,256.690277 | |
| ) | |
| plot(x_points_copy,y_points_copy,ylim = rev(range(y_points_copy)),type = "p",col="blue",lwd=2); | |
| j=45;for(i in 1:j) {lines(x_points_copy[i:(i+1)],y_points_copy[i:(i+1)]);} | |
| i=j; | |
| i=i+1;lines(x_points_copy[i:(i+1)],y_points_copy[i:(i+1)]); |
0 意見:
張貼留言