(*  The following are examples of curvature analysis  on  individual tubercles in seeds of Euphorbiaceae*)






	(*******************************  Moscatel de Angués*)

Needs["Splines`"]

MoscatelAngues[1]={{0.97816,2.91321},{0.99942,2.6474},{1.02069,2.55171},{1.04195,2.47729},{1.06321,2.3816},{1.08448,2.28591},{1.10574,2.23275},{1.12701,2.19022},{1.14827,2.14769},{1.16954,2.09453},{1.1908,2.04137},{1.21206,1.99884},{1.23333,1.94568},{1.25459,1.88189},{1.27586,1.82873},{1.29712,1.79683},{1.31839,1.7543},{1.33965,1.69051},{1.36091,1.63735},{1.38218,1.60545},{1.40344,1.57356},{1.42471,1.5204},{1.44597,1.47787},{1.46724,1.44597},{1.4885,1.41407},{1.50976,1.39281},{1.53103,1.37155},{1.55229,1.35028},{1.57356,1.31839},{1.59482,1.28649},{1.61609,1.25459},{1.63735,1.2227},{1.65861,1.20143},{1.67988,1.1908},{1.70114,1.18017},{1.72241,1.1589},{1.74367,1.13764},{1.76494,1.11637},{1.7862,1.09511},{1.80746,1.08448},{1.82873,1.07385},{1.84999,1.05258},{1.87126,1.04195},{1.89252,1.03132},{1.91378,1.01005},{1.93505,0.99942},{1.95631,0.98879},{1.97758,0.97816},{1.99884,0.96752},{2.02011,0.95689},{2.04137,0.95689},{2.06263,0.95689},{2.0839,0.95689},{2.10516,0.95689},{2.12643,0.95689},{2.14769,0.94626},{2.16896,0.93563},{2.19022,0.93563},{2.21148,0.93563},{2.23275,0.93563},{2.25401,0.93563},{2.27528,0.93563},{2.29654,0.93563},{2.31781,0.93563},{2.33907,0.93563},{2.36033,0.93563},{2.3816,0.93563},{2.40286,0.93563},{2.42413,0.94626},{2.44539,0.95689},{2.46666,0.95689},{2.48792,0.95689},{2.50918,0.95689},{2.53045,0.95689},{2.55171,0.96752},{2.57298,0.97816},{2.59424,0.97816},{2.61551,0.97816},{2.63677,0.98879},{2.65803,0.99942},{2.6793,0.99942},{2.70056,0.99942},{2.72183,1.01005},{2.74309,1.03132},{2.76436,1.04195},{2.78562,1.04195},{2.80688,1.05258},{2.82815,1.06321},{2.84941,1.07385},{2.87068,1.08448},{2.89194,1.08448},{2.91321,1.08448},{2.93447,1.08448},{2.95573,1.08448},{2.977,1.09511},{2.99826,1.10574},{3.01953,1.10574},{3.04079,1.10574},{3.06206,1.10574},{3.08332,1.10574},{3.10458,1.10574},{3.12585,1.10574},{3.14711,1.10574},{3.16838,1.10574},{3.18964,1.10574},{3.21091,1.10574},{3.23217,1.09511},{3.25343,1.08448},{3.2747,1.08448},{3.29596,1.08448},{3.31723,1.08448},{3.33849,1.08448},{3.35976,1.08448},{3.38102,1.08448},{3.40228,1.09511},{3.42355,1.10574},{3.44481,1.10574},{3.46608,1.11637},{3.48734,1.12701},{3.50861,1.13764},{3.52987,1.14827},{3.55113,1.14827},{3.5724,1.1589},{3.59366,1.16954},{3.61493,1.18017},{3.63619,1.1908},{3.65746,1.20143},{3.67872,1.2227},{3.69998,1.23333},{3.72125,1.24396},{3.74251,1.26522},{3.76378,1.27586},{3.78504,1.28649},{3.80631,1.30775},{3.82757,1.31839},{3.84883,1.32902},{3.8701,1.33965},{3.89136,1.35028},{3.91263,1.37155},{3.93389,1.39281},{3.95516,1.40344},{3.97642,1.42471},{3.99768,1.4566},{4.01895,1.46724},{4.04021,1.4885},{4.06148,1.5204},{4.08274,1.54166},{4.10401,1.57356},{4.12527,1.60545},{4.14653,1.62672},{4.1678,1.65861},{4.18906,1.70114},{4.21033,1.73304},{4.23159,1.77557},{4.25286,1.82873},{4.27412,1.87126},{4.29538,1.91378},{4.31665,1.95631},{4.33791,2.02011},{4.35918,2.07327},{4.38044,2.12643},{4.40171,2.17959},{4.42297,2.22212},{4.44423,2.28591},{4.4655,2.3816},{4.48676,2.51982},{4.50803,2.6793},{4.52929,2.9451},{4.52929,3.20027},{4.50803,3.28533},{4.48676,3.42355},{4.4655,3.56177},{4.44423,3.66809},{4.42297,3.75314},{4.40171,3.81694},{4.38044,3.89136},{4.35918,3.96579},{4.33791,4.01895},{4.31665,4.06148},{4.29538,4.10401},{4.27412,4.15717},{4.25286,4.21033},{4.23159,4.25286},{4.21033,4.29538},{4.18906,4.33791},{4.1678,4.38044},{4.14653,4.42297},{4.12527,4.45487},{4.10401,4.48676},{4.08274,4.51866},{4.06148,4.55056},{4.04021,4.59308},{4.01895,4.62498},{3.99768,4.64624},{3.97642,4.66751},{3.95516,4.69941},{3.93389,4.7313},{3.91263,4.7632},{3.89136,4.80573},{3.8701,4.83762},{3.84883,4.85889},{3.82757,4.88015},{3.80631,4.91205},{3.78504,4.95458},{3.76378,4.98647},{3.74251,5.00774},{3.72125,5.029},{3.69998,5.03963},{3.67872,5.05027},{3.65746,5.08216},{3.63619,5.11406},{3.61493,5.14596},{3.59366,5.18848},{3.5724,5.20975},{3.55113,5.22038},{3.52987,5.25228},{3.50861,5.3267},{3.48734,5.42239},{3.46608,5.47555},{3.44481,5.80515},{3.42355,5.83704},{3.40228,5.87957},{3.38102,5.93273},{3.35976,5.96463},{3.33849,5.99653},{3.31723,6.06032},{3.29596,6.14538},{3.2747,6.1879},{3.25343,6.1879},{3.23217,6.19854},{3.21091,6.32612},{3.18964,6.31549},{3.16838,6.34739},{3.14711,6.34739},{3.12585,6.32612},{3.10458,6.30486},{3.08332,6.29423},{3.06206,6.28359},{3.04079,6.27296},{3.01953,6.28359},{2.99826,6.29423},{2.977,6.29423},{2.95573,6.29423},{2.93447,6.29423},{2.91321,6.28359},{2.89194,6.27296},{2.87068,6.27296},{2.84941,6.27296},{2.82815,6.26233},{2.80688,6.2517},{2.78562,6.26233},{2.76436,6.27296},{2.74309,6.27296},{2.72183,6.27296},{2.70056,6.27296},{2.6793,6.27296},{2.65803,6.27296},{2.63677,6.28359},{2.61551,6.29423},{2.59424,6.29423},{2.57298,6.30486},{2.55171,6.31549},{2.53045,6.31549},{2.50918,6.31549},{2.48792,6.31549},{2.46666,6.31549},{2.44539,6.31549},{2.42413,6.31549},{2.40286,6.31549},{2.3816,6.31549},{2.36033,6.30486},{2.33907,6.29423},{2.31781,6.28359},{2.29654,6.27296},{2.27528,6.26233},{2.25401,6.23043},{2.23275,6.19854},{2.21148,6.17727},{2.19022,6.15601},{2.16896,6.13474},{2.14769,6.12411},{2.12643,6.10285},{2.10516,6.04969},{2.0839,5.82641},{2.06263,5.5925},{2.04137,5.51808},{2.02011,5.45429},{1.99884,5.41176},{1.97758,5.37986},{1.95631,5.34797},{1.93505,5.31607},{1.91378,5.27354},{1.89252,5.24164},{1.87126,5.22038},{1.84999,5.18848},{1.82873,5.15659},{1.80746,5.13532},{1.7862,5.11406},{1.76494,5.09279},{1.74367,5.07153},{1.72241,5.05027},{1.70114,5.03963},{1.67988,5.01837},{1.65861,4.98647},{1.63735,4.96521},{1.61609,4.94394},{1.59482,4.92268},{1.57356,4.90142},{1.55229,4.88015},{1.53103,4.86952},{1.50976,4.85889},{1.4885,4.84826},{1.46724,4.83762},{1.44597,4.81636},{1.42471,4.78446},{1.40344,4.74193},{1.38218,4.71004},{1.36091,4.67814},{1.33965,4.61435},{1.31839,4.55056},{1.29712,4.50803},{1.27586,4.45487},{1.25459,4.41234},{1.23333,4.38044},{1.21206,4.32728},{1.1908,4.24222},{1.16954,4.1678},{1.14827,4.09337},{1.12701,4.00832},{1.10574,3.95516},{1.08448,3.90199},{1.06321,3.8382},{1.04195,3.77441},{1.02069,3.69998},{0.99942,3.6043},{0.97816,3.35976},{0.95689,3.14711}}
MoscatelAngues[2]={{0.74425,2.80688},{0.76551,2.54108},{0.78678,2.22212},{0.80804,2.0839},{0.82931,2.02011},{0.85057,1.95631},{0.87184,1.89252},{0.8931,1.82873},{0.91436,1.77557},{0.93563,1.71177},{0.95689,1.65861},{0.97816,1.62672},{0.99942,1.59482},{1.02069,1.56292},{1.04195,1.53103},{1.06321,1.4885},{1.08448,1.44597},{1.10574,1.40344},{1.12701,1.36091},{1.14827,1.32902},{1.16954,1.30775},{1.1908,1.28649},{1.21206,1.25459},{1.23333,1.2227},{1.25459,1.20143},{1.27586,1.18017},{1.29712,1.1589},{1.31839,1.13764},{1.33965,1.12701},{1.36091,1.11637},{1.38218,1.09511},{1.40344,1.08448},{1.42471,1.07385},{1.44597,1.05258},{1.46724,1.03132},{1.4885,1.02069},{1.50976,1.01005},{1.53103,0.99942},{1.55229,0.98879},{1.57356,0.97816},{1.59482,0.96752},{1.61609,0.95689},{1.63735,0.96752},{1.65861,0.96752},{1.67988,0.95689},{1.70114,0.95689},{1.72241,0.94626},{1.74367,0.93563},{1.76494,0.93563},{1.7862,0.93563},{1.80746,0.93563},{1.82873,0.93563},{1.84999,0.94626},{1.87126,0.95689},{1.89252,0.95689},{1.91378,0.95689},{1.93505,0.96752},{1.95631,0.97816},{1.97758,0.96752},{1.99884,0.95689},{2.02011,0.95689},{2.04137,0.95689},{2.06263,0.95689},{2.0839,0.95689},{2.10516,0.95689},{2.12643,0.95689},{2.14769,0.94626},{2.16896,0.93563},{2.19022,0.94626},{2.21148,0.95689},{2.23275,0.96752},{2.25401,0.97816},{2.27528,0.98879},{2.29654,0.99942},{2.31781,0.99942},{2.33907,1.01005},{2.36033,1.02069},{2.3816,1.02069},{2.40286,1.01005},{2.42413,0.99942},{2.44539,0.98879},{2.46666,0.97816},{2.48792,0.97816},{2.50918,0.96752},{2.53045,0.95689},{2.55171,0.95689},{2.57298,0.95689},{2.59424,0.95689},{2.61551,0.95689},{2.63677,0.95689},{2.65803,0.95689},{2.6793,0.95689},{2.70056,0.95689},{2.72183,0.95689},{2.74309,0.94626},{2.76436,0.93563},{2.78562,0.93563},{2.80688,0.93563},{2.82815,0.925},{2.84941,0.91436},{2.87068,0.91436},{2.89194,0.91436},{2.91321,0.91436},{2.93447,0.91436},{2.95573,0.91436},{2.977,0.91436},{2.99826,0.91436},{3.01953,0.91436},{3.04079,0.925},{3.06206,0.93563},{3.08332,0.93563},{3.10458,0.93563},{3.12585,0.93563},{3.14711,0.94626},{3.16838,0.95689},{3.18964,0.95689},{3.21091,0.96752},{3.23217,0.97816},{3.25343,0.98879},{3.2747,0.99942},{3.29596,1.01005},{3.31723,1.02069},{3.33849,1.03132},{3.35976,1.05258},{3.38102,1.06321},{3.40228,1.07385},{3.42355,1.09511},{3.44481,1.10574},{3.46608,1.11637},{3.48734,1.12701},{3.50861,1.13764},{3.52987,1.1589},{3.55113,1.18017},{3.5724,1.1908},{3.59366,1.20143},{3.61493,1.2227},{3.63619,1.24396},{3.65746,1.26522},{3.67872,1.28649},{3.69998,1.30775},{3.72125,1.33965},{3.74251,1.38218},{3.76378,1.41407},{3.78504,1.43534},{3.80631,1.4566},{3.82757,1.47787},{3.84883,1.50976},{3.8701,1.54166},{3.89136,1.57356},{3.91263,1.59482},{3.93389,1.61609},{3.95516,1.64798},{3.97642,1.66925},{3.99768,1.69051},{4.01895,1.72241},{4.04021,1.76494},{4.06148,1.80746},{4.08274,1.84999},{4.10401,1.89252},{4.12527,1.92442},{4.14653,1.95631},{4.1678,1.99884},{4.18906,2.052},{4.21033,2.10516},{4.23159,2.13706},{4.25286,2.17959},{4.27412,2.24338},{4.29538,2.30717},{4.31665,2.37097},{4.33791,2.44539},{4.35918,2.54108},{4.38044,2.61551},{4.40171,2.65803},{4.42297,2.74309},{4.44423,2.83878},{4.42297,3.08332},{4.40171,3.43418},{4.38044,3.62556},{4.35918,3.73188},{4.33791,3.8382},{4.31665,3.93389},{4.29538,3.99768},{4.27412,4.05085},{4.25286,4.10401},{4.23159,4.15717},{4.21033,4.23159},{4.18906,4.31665},{4.1678,4.40171},{4.14653,4.47613},{4.12527,4.51866},{4.10401,4.56119},{4.08274,4.60372},{4.06148,4.63561},{4.04021,4.67814},{4.01895,4.72067},{3.99768,4.7632},{3.97642,4.80573},{3.95516,4.83762},{3.93389,4.85889},{3.91263,4.88015},{3.89136,4.90142},{3.8701,4.93331},{3.84883,4.96521},{3.82757,4.98647},{3.80631,5.00774},{3.78504,5.029},{3.76378,5.0609},{3.74251,5.09279},{3.72125,5.12469},{3.69998,5.17785},{3.67872,5.23101},{3.65746,5.28417},{3.63619,5.34797},{3.61493,5.41176},{3.59366,5.73072},{3.5724,5.80515},{3.55113,5.90084},{3.52987,6.07095},{3.50861,6.20917},{3.48734,6.2517},{3.46608,6.28359},{3.44481,6.30486},{3.42355,6.32612},{3.40228,6.35802},{3.38102,6.38992},{3.35976,6.40055},{3.33849,6.41118},{3.31723,6.42181},{3.29596,6.43244},{3.2747,6.44308},{3.25343,6.44308},{3.23217,6.44308},{3.21091,6.45371},{3.18964,6.46434},{3.16838,6.47497},{3.14711,6.4856},{3.12585,6.49624},{3.10458,6.50687},{3.08332,6.5175},{3.06206,6.53877},{3.04079,6.5494},{3.01953,6.5494},{2.99826,6.5494},{2.977,6.5494},{2.95573,6.5494},{2.93447,6.5494},{2.91321,6.5494},{2.89194,6.5494},{2.87068,6.5494},{2.84941,6.5494},{2.82815,6.56003},{2.80688,6.57066},{2.78562,6.57066},{2.76436,6.58129},{2.74309,6.59193},{2.72183,6.59193},{2.70056,6.59193},{2.6793,6.59193},{2.65803,6.59193},{2.63677,6.59193},{2.61551,6.59193},{2.59424,6.59193},{2.57298,6.59193},{2.55171,6.59193},{2.53045,6.59193},{2.50918,6.58129},{2.48792,6.57066},{2.46666,6.57066},{2.44539,6.56003},{2.42413,6.5494},{2.40286,6.53877},{2.3816,6.52813},{2.36033,6.52813},{2.33907,6.52813},{2.31781,6.52813},{2.29654,6.52813},{2.27528,6.52813},{2.25401,6.52813},{2.23275,6.5175},{2.21148,6.50687},{2.19022,6.50687},{2.16896,6.49624},{2.14769,6.4856},{2.12643,6.47497},{2.10516,6.45371},{2.0839,6.42181},{2.06263,6.37928},{2.04137,6.26233},{2.02011,6.10285},{1.99884,5.99653},{1.97758,5.90084},{1.95631,5.78388},{1.93505,5.68819},{1.91378,5.61377},{1.89252,5.53934},{1.87126,5.47555},{1.84999,5.43302},{1.82873,5.41176},{1.80746,5.37986},{1.7862,5.33733},{1.76494,5.30544},{1.74367,5.28417},{1.72241,5.26291},{1.70114,5.23101},{1.67988,5.19912},{1.65861,5.17785},{1.63735,5.14596},{1.61609,5.12469},{1.59482,5.10343},{1.57356,5.08216},{1.55229,5.07153},{1.53103,5.05027},{1.50976,5.029},{1.4885,5.00774},{1.46724,4.98647},{1.44597,4.96521},{1.42471,4.93331},{1.40344,4.89078},{1.38218,4.85889},{1.36091,4.83762},{1.33965,4.80573},{1.31839,4.77383},{1.29712,4.74193},{1.27586,4.69941},{1.25459,4.64624},{1.23333,4.59308},{1.21206,4.55056},{1.1908,4.50803},{1.16954,4.47613},{1.14827,4.4336},{1.12701,4.39107},{1.10574,4.35918},{1.08448,4.29538},{1.06321,4.23159},{1.04195,4.18906},{1.02069,4.1359},{0.99942,4.08274},{0.97816,4.04021},{0.95689,4.00832},{0.93563,3.95516},{0.91436,3.8701},{0.8931,3.79567},{0.87184,3.71062},{0.85057,3.61493},{0.82931,3.5405},{0.80804,3.45545},{0.78678,3.33849},{0.76551,3.21091},{0.74425,3.072688}}
MoscatelAngues[3]={{0.80804,2.65803},{0.82931,2.42413},{0.85057,2.31781},{0.87184,2.22212},{0.8931,2.13706},{0.91436,2.06263},{0.93563,1.98821},{0.95689,1.92442},{0.97816,1.87126},{0.99942,1.8181},{1.02069,1.77557},{1.04195,1.72241},{1.06321,1.65861},{1.08448,1.62672},{1.10574,1.60545},{1.12701,1.57356},{1.14827,1.55229},{1.16954,1.54166},{1.1908,1.5204},{1.21206,1.49913},{1.23333,1.4885},{1.25459,1.47787},{1.27586,1.4566},{1.29712,1.43534},{1.31839,1.41407},{1.33965,1.39281},{1.36091,1.38218},{1.38218,1.37155},{1.40344,1.35028},{1.42471,1.33965},{1.44597,1.32902},{1.46724,1.30775},{1.4885,1.28649},{1.50976,1.26522},{1.53103,1.25459},{1.55229,1.24396},{1.57356,1.23333},{1.59482,1.23333},{1.61609,1.2227},{1.63735,1.20143},{1.65861,1.1908},{1.67988,1.18017},{1.70114,1.16954},{1.72241,1.16954},{1.74367,1.16954},{1.76494,1.1589},{1.7862,1.14827},{1.80746,1.14827},{1.82873,1.14827},{1.84999,1.14827},{1.87126,1.13764},{1.89252,1.12701},{1.91378,1.12701},{1.93505,1.12701},{1.95631,1.12701},{1.97758,1.12701},{1.99884,1.12701},{2.02011,1.12701},{2.04137,1.12701},{2.06263,1.12701},{2.0839,1.12701},{2.10516,1.13764},{2.12643,1.14827},{2.14769,1.14827},{2.16896,1.1589},{2.19022,1.16954},{2.21148,1.16954},{2.23275,1.18017},{2.25401,1.20143},{2.27528,1.21206},{2.29654,1.21206},{2.31781,1.21206},{2.33907,1.2227},{2.36033,1.23333},{2.3816,1.24396},{2.40286,1.25459},{2.42413,1.25459},{2.44539,1.25459},{2.46666,1.25459},{2.48792,1.25459},{2.50918,1.25459},{2.53045,1.25459},{2.55171,1.24396},{2.57298,1.23333},{2.59424,1.23333},{2.61551,1.23333},{2.63677,1.2227},{2.65803,1.21206},{2.6793,1.21206},{2.70056,1.20143},{2.72183,1.1908},{2.74309,1.1908},{2.76436,1.18017},{2.78562,1.16954},{2.80688,1.1589},{2.82815,1.14827},{2.84941,1.13764},{2.87068,1.12701},{2.89194,1.12701},{2.91321,1.12701},{2.93447,1.11637},{2.95573,1.10574},{2.977,1.10574},{2.99826,1.10574},{3.01953,1.10574},{3.04079,1.10574},{3.06206,1.10574},{3.08332,1.10574},{3.10458,1.10574},{3.12585,1.10574},{3.14711,1.10574},{3.16838,1.11637},{3.18964,1.12701},{3.21091,1.12701},{3.23217,1.12701},{3.25343,1.12701},{3.2747,1.12701},{3.29596,1.13764},{3.31723,1.14827},{3.33849,1.14827},{3.35976,1.14827},{3.38102,1.1589},{3.40228,1.16954},{3.42355,1.18017},{3.44481,1.20143},{3.46608,1.21206},{3.48734,1.21206},{3.50861,1.2227},{3.52987,1.23333},{3.55113,1.24396},{3.5724,1.25459},{3.59366,1.25459},{3.61493,1.26522},{3.63619,1.29712},{3.65746,1.31839},{3.67872,1.32902},{3.69998,1.35028},{3.72125,1.37155},{3.74251,1.38218},{3.76378,1.39281},{3.78504,1.41407},{3.80631,1.43534},{3.82757,1.4566},{3.84883,1.47787},{3.8701,1.49913},{3.89136,1.5204},{3.91263,1.54166},{3.93389,1.56292},{3.95516,1.58419},{3.97642,1.60545},{3.99768,1.63735},{4.01895,1.66925},{4.04021,1.70114},{4.06148,1.74367},{4.08274,1.7862},{4.10401,1.82873},{4.12527,1.87126},{4.14653,1.91378},{4.1678,1.95631},{4.18906,1.99884},{4.21033,2.03074},{4.23159,2.06263},{4.25286,2.10516},{4.27412,2.15832},{4.29538,2.20085},{4.31665,2.23275},{4.33791,2.27528},{4.35918,2.32844},{4.38044,2.3816},{4.40171,2.43476},{4.42297,2.49855},{4.44423,2.57298},{4.4655,2.65803},{4.48676,2.74309},{4.50803,2.86005},{4.52929,3.06206},{4.55056,3.21091},{4.55056,3.29596},{4.52929,3.39165},{4.50803,3.52987},{4.48676,3.66809},{4.4655,3.79567},{4.44423,3.91263},{4.42297,3.99768},{4.40171,4.05085},{4.38044,4.11464},{4.35918,4.18906},{4.33791,4.25286},{4.31665,4.29538},{4.29538,4.33791},{4.27412,4.39107},{4.25286,4.44423},{4.23159,4.49739},{4.21033,4.55056},{4.18906,4.58245},{4.1678,4.62498},{4.14653,4.68877},{4.12527,4.7313},{4.10401,4.77383},{4.08274,4.81636},{4.06148,4.83762},{4.04021,4.85889},{4.01895,4.89078},{3.99768,4.94394},{3.97642,4.98647},{3.95516,5.00774},{3.93389,5.03963},{3.91263,5.07153},{3.89136,5.10343},{3.8701,5.14596},{3.84883,5.17785},{3.82757,5.19912},{3.80631,5.23101},{3.78504,5.25228},{3.76378,5.27354},{3.74251,5.30544},{3.72125,5.33733},{3.69998,5.39049},{3.67872,5.45429},{3.65746,5.51808},{3.63619,5.57124},{3.61493,5.61377},{3.59366,5.66693},{3.5724,5.72009},{3.55113,5.76262},{3.52987,5.81578},{3.50861,5.96463},{3.48734,6.10285},{3.46608,6.14538},{3.44481,6.20917},{3.42355,6.31549},{3.40228,6.46434},{3.38102,6.57066},{3.35976,6.60256},{3.33849,6.62382},{3.31723,6.64509},{3.29596,6.65572},{3.2747,6.67698},{3.25343,6.69825},{3.23217,6.70888},{3.21091,6.71951},{3.18964,6.73014},{3.16838,6.74078},{3.14711,6.74078},{3.12585,6.74078},{3.10458,6.75141},{3.08332,6.76204},{3.06206,6.77267},{3.04079,6.79394},{3.01953,6.80457},{2.99826,6.80457},{2.977,6.80457},{2.95573,6.80457},{2.93447,6.80457},{2.91321,6.80457},{2.89194,6.80457},{2.87068,6.80457},{2.84941,6.80457},{2.82815,6.82583},{2.80688,6.86836},{2.78562,6.88963},{2.76436,6.88963},{2.74309,6.87899},{2.72183,6.86836},{2.70056,6.86836},{2.6793,6.86836},{2.65803,6.86836},{2.63677,6.86836},{2.61551,6.86836},{2.59424,6.86836},{2.57298,6.86836},{2.55171,6.87899},{2.53045,6.88963},{2.50918,6.88963},{2.48792,6.88963},{2.46666,6.88963},{2.44539,6.88963},{2.42413,6.88963},{2.40286,6.88963},{2.3816,6.88963},{2.36033,6.88963},{2.33907,6.88963},{2.31781,6.87899},{2.29654,6.85773},{2.27528,6.8471},{2.25401,6.83647},{2.23275,6.8152},{2.21148,6.80457},{2.19022,6.80457},{2.16896,6.80457},{2.14769,6.80457},{2.12643,6.80457},{2.10516,6.79394},{2.0839,6.77267},{2.06263,6.75141},{2.04137,6.64509},{2.02011,6.5175},{1.99884,6.10285},{1.97758,6.03905},{1.95631,5.91147},{1.93505,5.80515},{1.91378,5.79452},{1.89252,5.77325},{1.87126,5.76262},{1.84999,5.75199},{1.82873,5.75199},{1.80746,5.60314},{1.7862,5.53934},{1.76494,5.51808},{1.74367,5.49682},{1.72241,5.47555},{1.70114,5.45429},{1.67988,5.42239},{1.65861,5.39049},{1.63735,5.36923},{1.61609,5.34797},{1.59482,5.33733},{1.57356,5.31607},{1.55229,5.28417},{1.53103,5.26291},{1.50976,5.24164},{1.4885,5.22038},{1.46724,5.18848},{1.44597,5.15659},{1.42471,5.11406},{1.40344,5.07153},{1.38218,5.03963},{1.36091,5.00774},{1.33965,4.97584},{1.31839,4.93331},{1.29712,4.89078},{1.27586,4.83762},{1.25459,4.78446},{1.23333,4.74193},{1.21206,4.69941},{1.1908,4.66751},{1.16954,4.63561},{1.14827,4.61435},{1.12701,4.58245},{1.10574,4.50803},{1.08448,4.4336},{1.06321,4.39107},{1.04195,4.35918},{1.02069,4.32728},{0.99942,4.29538},{0.97816,4.25286},{0.95689,4.17843},{0.93563,4.08274},{0.91436,3.98705},{0.8931,3.8701},{0.87184,3.74251},{0.85057,3.61493},{0.82931,3.47671},{0.80804,3.2747},{0.78678,2.98763}}
MoscatelAngues[4]={{0.51034,3.05142},{0.53161,2.93447},{0.55287,2.81752},{0.57414,2.63677},{0.5954,2.49855},{0.61666,2.4135},{0.63793,2.33907},{0.65919,2.28591},{0.68046,2.23275},{0.70172,2.17959},{0.72299,2.12643},{0.74425,2.0839},{0.76551,2.04137},{0.78678,1.98821},{0.80804,1.93505},{0.82931,1.89252},{0.85057,1.84999},{0.87184,1.80746},{0.8931,1.77557},{0.91436,1.7543},{0.93563,1.73304},{0.95689,1.70114},{0.97816,1.66925},{0.99942,1.63735},{1.02069,1.59482},{1.04195,1.57356},{1.06321,1.56292},{1.08448,1.53103},{1.10574,1.49913},{1.12701,1.47787},{1.14827,1.4566},{1.16954,1.43534},{1.1908,1.41407},{1.21206,1.39281},{1.23333,1.37155},{1.25459,1.35028},{1.27586,1.32902},{1.29712,1.30775},{1.31839,1.28649},{1.33965,1.26522},{1.36091,1.24396},{1.38218,1.23333},{1.40344,1.2227},{1.42471,1.21206},{1.44597,1.20143},{1.46724,1.18017},{1.4885,1.16954},{1.50976,1.1589},{1.53103,1.13764},{1.55229,1.12701},{1.57356,1.11637},{1.59482,1.10574},{1.61609,1.09511},{1.63735,1.08448},{1.65861,1.07385},{1.67988,1.06321},{1.70114,1.06321},{1.72241,1.06321},{1.74367,1.06321},{1.76494,1.05258},{1.7862,1.04195},{1.80746,1.04195},{1.82873,1.04195},{1.84999,1.04195},{1.87126,1.04195},{1.89252,1.03132},{1.91378,1.02069},{1.93505,1.02069},{1.95631,1.02069},{1.97758,1.03132},{1.99884,1.04195},{2.02011,1.04195},{2.04137,1.04195},{2.06263,1.05258},{2.0839,1.06321},{2.10516,1.06321},{2.12643,1.06321},{2.14769,1.06321},{2.16896,1.07385},{2.19022,1.07385},{2.21148,1.07385},{2.23275,1.08448},{2.25401,1.08448},{2.27528,1.08448},{2.29654,1.09511},{2.31781,1.10574},{2.33907,1.11637},{2.36033,1.12701},{2.3816,1.12701},{2.40286,1.13764},{2.42413,1.14827},{2.44539,1.14827},{2.46666,1.1589},{2.48792,1.16954},{2.50918,1.18017},{2.53045,1.1908},{2.55171,1.1908},{2.57298,1.20143},{2.59424,1.21206},{2.61551,1.20143},{2.63677,1.1908},{2.65803,1.1908},{2.6793,1.1908},{2.70056,1.18017},{2.72183,1.16954},{2.74309,1.1589},{2.76436,1.14827},{2.78562,1.13764},{2.80688,1.12701},{2.82815,1.12701},{2.84941,1.12701},{2.87068,1.12701},{2.89194,1.12701},{2.91321,1.12701},{2.93447,1.12701},{2.95573,1.11637},{2.977,1.10574},{2.99826,1.10574},{3.01953,1.10574},{3.04079,1.09511},{3.06206,1.08448},{3.08332,1.07385},{3.10458,1.06321},{3.12585,1.06321},{3.14711,1.06321},{3.16838,1.06321},{3.18964,1.06321},{3.21091,1.07385},{3.23217,1.08448},{3.25343,1.08448},{3.2747,1.08448},{3.29596,1.08448},{3.31723,1.09511},{3.33849,1.10574},{3.35976,1.11637},{3.38102,1.12701},{3.40228,1.12701},{3.42355,1.12701},{3.44481,1.13764},{3.46608,1.14827},{3.48734,1.1589},{3.50861,1.18017},{3.52987,1.1908},{3.55113,1.20143},{3.5724,1.21206},{3.59366,1.2227},{3.61493,1.24396},{3.63619,1.25459},{3.65746,1.25459},{3.67872,1.26522},{3.69998,1.28649},{3.72125,1.30775},{3.74251,1.31839},{3.76378,1.32902},{3.78504,1.35028},{3.80631,1.37155},{3.82757,1.39281},{3.84883,1.41407},{3.8701,1.43534},{3.89136,1.4566},{3.91263,1.47787},{3.93389,1.49913},{3.95516,1.50976},{3.97642,1.5204},{3.99768,1.54166},{4.01895,1.57356},{4.04021,1.59482},{4.06148,1.60545},{4.08274,1.62672},{4.10401,1.64798},{4.12527,1.66925},{4.14653,1.69051},{4.1678,1.72241},{4.18906,1.7543},{4.21033,1.77557},{4.23159,1.80746},{4.25286,1.86062},{4.27412,1.93505},{4.29538,1.99884},{4.31665,2.04137},{4.33791,2.10516},{4.35918,2.19022},{4.38044,2.31781},{4.40171,2.44539},{4.42297,2.53045},{4.44423,2.6793},{4.4655,2.88131},{4.4655,3.13648},{4.44423,3.23217},{4.42297,3.32786},{4.40171,3.41292},{4.38044,3.52987},{4.35918,3.65746},{4.33791,3.75314},{4.31665,3.8382},{4.29538,3.91263},{4.27412,3.96579},{4.25286,4.01895},{4.23159,4.07211},{4.21033,4.1359},{4.18906,4.19969},{4.1678,4.25286},{4.14653,4.31665},{4.12527,4.38044},{4.10401,4.42297},{4.08274,4.47613},{4.06148,4.52929},{4.04021,4.56119},{4.01895,4.58245},{3.99768,4.60372},{3.97642,4.63561},{3.95516,4.66751},{3.93389,4.71004},{3.91263,4.7632},{3.89136,4.80573},{3.8701,4.84826},{3.84883,4.88015},{3.82757,4.91205},{3.80631,4.94394},{3.78504,4.96521},{3.76378,4.99711},{3.74251,5.029},{3.72125,5.0609},{3.69998,5.08216},{3.67872,5.10343},{3.65746,5.12469},{3.63619,5.14596},{3.61493,5.17785},{3.59366,5.20975},{3.5724,5.25228},{3.55113,5.28417},{3.52987,5.30544},{3.50861,5.3267},{3.48734,5.34797},{3.46608,5.47555},{3.44481,5.63503},{3.42355,5.69883},{3.40228,5.75199},{3.38102,5.83704},{3.35976,5.91147},{3.33849,5.97526},{3.31723,6.04969},{3.29596,6.12411},{3.2747,6.1879},{3.25343,6.23043},{3.23217,6.29423},{3.21091,6.35802},{3.18964,6.40055},{3.16838,6.44308},{3.14711,6.4856},{3.12585,6.5175},{3.10458,6.53877},{3.08332,6.56003},{3.06206,6.57066},{3.04079,6.58129},{3.01953,6.59193},{2.99826,6.60256},{2.977,6.61319},{2.95573,6.61319},{2.93447,6.61319},{2.91321,6.62382},{2.89194,6.63445},{2.87068,6.64509},{2.84941,6.65572},{2.82815,6.66635},{2.80688,6.67698},{2.78562,6.67698},{2.76436,6.68762},{2.74309,6.69825},{2.72183,6.69825},{2.70056,6.70888},{2.6793,6.71951},{2.65803,6.71951},{2.63677,6.71951},{2.61551,6.73014},{2.59424,6.74078},{2.57298,6.74078},{2.55171,6.74078},{2.53045,6.74078},{2.50918,6.73014},{2.48792,6.71951},{2.46666,6.70888},{2.44539,6.69825},{2.42413,6.68762},{2.40286,6.67698},{2.3816,6.67698},{2.36033,6.68762},{2.33907,6.69825},{2.31781,6.69825},{2.29654,6.69825},{2.27528,6.69825},{2.25401,6.69825},{2.23275,6.69825},{2.21148,6.69825},{2.19022,6.68762},{2.16896,6.67698},{2.14769,6.67698},{2.12643,6.66635},{2.10516,6.64509},{2.0839,6.62382},{2.06263,6.60256},{2.04137,6.58129},{2.02011,6.57066},{1.99884,6.57066},{1.97758,6.56003},{1.95631,6.5494},{1.93505,6.52813},{1.91378,6.49624},{1.89252,6.46434},{1.87126,6.43244},{1.84999,6.41118},{1.82873,6.38992},{1.80746,6.35802},{1.7862,6.32612},{1.76494,6.29423},{1.74367,6.11348},{1.72241,5.87957},{1.70114,5.76262},{1.67988,5.67756},{1.65861,5.61377},{1.63735,5.50745},{1.61609,5.34797},{1.59482,5.26291},{1.57356,5.24164},{1.55229,5.22038},{1.53103,5.19912},{1.50976,5.17785},{1.4885,5.15659},{1.46724,5.13532},{1.44597,5.11406},{1.42471,5.09279},{1.40344,5.07153},{1.38218,5.05027},{1.36091,5.03963},{1.33965,5.01837},{1.31839,4.99711},{1.29712,4.97584},{1.27586,4.94394},{1.25459,4.93331},{1.23333,4.92268},{1.21206,4.89078},{1.1908,4.84826},{1.16954,4.81636},{1.14827,4.79509},{1.12701,4.77383},{1.10574,4.7313},{1.08448,4.68877},{1.06321,4.65688},{1.04195,4.62498},{1.02069,4.59308},{0.99942,4.56119},{0.97816,4.53992},{0.95689,4.51866},{0.93563,4.48676},{0.91436,4.44423},{0.8931,4.41234},{0.87184,4.38044},{0.85057,4.33791},{0.82931,4.29538},{0.80804,4.25286},{0.78678,4.22096},{0.76551,4.18906},{0.74425,4.14653},{0.72299,4.09337},{0.70172,4.04021},{0.68046,3.97642},{0.65919,3.90199},{0.63793,3.84883},{0.61666,3.79567},{0.5954,3.74251},{0.57414,3.64682},{0.55287,3.51924},{0.53161,3.29596}}

(*Poner aqui la familia*)
var=MoscatelAngues;
(* el número de curvas estudiadas/semillas de la familia*)
m=4;
For[j=1,j≤m,j++,
puntos=var[j];
(* pru es el spline cubico
d es el vector que contiene la información de pru 
n es el número de trozos del spline, es decir, el número de puntos menos 1
*)
pru=SplineFit[puntos,Cubic];
d=InputForm[pru];
n=IntegerPart[d[[1,2,2]]];
spli=ParametricPlot[pru[t],{t,0,n},PlotRange->All, DisplayFunction->Identity];
(* Con los coeficientes se calculan los polinomios cúbicos que dan el spline. Habrá n polinomios para la primera coordenada (X) y otros tantos para la segunda
*)
For[i=0,i<n,i++,
SX[i,t_]=d[[1,4,i+1,1,1]]+d[[1,4,i+1,1,2]]*(t-i)+d[[1,4,i+1,1,3]]*(t-i)^2+d[[1,4,i+1,1,4]]*(t-i)^3];
For[i=0,i<n,i++,SY[i,t_]=d[[1,4,i+1,2,1]]+d[[1,4,i+1,2,2]]*(t-i)+d[[1,4,i+1,2,3]]*(t-i)^2+d[[1,4,i+1,2,4]]*(t-i)^3];
(* Derivada primera y segunda de cada trozo del spline
*)
For[i=0,i<n,i++,DX[i,t_]=d[[1,4,i+1,1,2]]+2*d[[1,4,i+1,1,3]]*(t-i)+3*d[[1,4,i+1,1,4]]*(t-i)^2];
For[i=0,i<n,i++,DY[i,t_]=d[[1,4,i+1,2,2]]+2*d[[1,4,i+1,2,3]]*(t-i)+3*d[[1,4,i+1,2,4]]*(t-i)^2];
For[i=0,i<n,i++,DDX[i,t_]=2*d[[1,4,i+1,1,3]]+6*d[[1,4,i+1,1,4]]*(t-i)];
For[i=0,i<n,i++,DDY[i,t_]=2*d[[1,4,i+1,2,3]]+6*d[[1,4,i+1,2,4]]*(t-i)];
(*Cálculo de la curvatura a trozos
*)
For[i=0,i<n,i++,cur[i,t_]=(DX[i,t]DDY[i,t]-DDX[i,t]DY[i,t])/((DX[i,t])^2+(DY[i,t])^2)^(3/2)];
(* Dibujos de los trozos de curvatura 
*)
For[i=0,i<n,i++,dib[i]=Plot[cur[i,t],{t,i,i+1},DisplayFunction->Identity]];
pp=dib[0];
For[i=1,i<n,i++,pp=Show[pp,dib[i],PlotRange->All]];
(* bez es el spline de Bezier
b es el vector que contiene la información de bez
nb es el número de trozos del spline, es decir, el número de puntos menos 1 (Como nb=n, no se define nuevo)
*)
bez=SplineFit[puntos,Bezier];
b=InputForm[bez];
(*Calculo de las funciones de Bezier para la coordenada X y la Y; la curva es la imagen del intervalo[0,1]*)
For[i=1,i≤n+1,i++,BX[t_]=bez[[4,1,1]]/.#1->t];
For[i=1,i≤n+1,i++,BY[t_]=bez[[4,1,2]]/.#1->t];
dibez[j]=ParametricPlot[{BX[t],BY[t]},{t,0,1},PlotRange->All,DisplayFunction->Identity];
curbe[j,t_]=(BX'[t]BY''[t]-BX''[t]BY'[t])/((BX'[t])^2+(BY'[t])^2)^(3/2);
cur[j]=Abs[NMaxValue[{curbe[j,t],0.2<t<1},t]];
vmed[j]=Abs[NIntegrate[curbe[j,t],{t,0.2,0.8}]];
dibcurbe[j]=Plot[{curbe[j,t],vmed[j]},{t,0,1},PlotRange->{-5,5},DisplayFunction->Identity,PlotStyle->{RGBColor[0,1,0],{Dotted,Dashed}}];
total=GraphicsGrid[{
(*{spli,pp},*)
{Print[""],dibez[j],dibcurbe[j]}},Spacings->0.5];
Print[var,j, ":", "Máximo valor de la curvatura (en valor absoluto)",cur[j]];
Print[total]
]
Print["Curvaturas de cada ", var ,":  ", Table[cur[j],{j,1,4}]];
Print["Valores medios de curvatura de cada ", var ," en [0.1,0.9]:  ", Table[vmed[j],{j,1,4}]];