(*  The following are examples of curvature  in seeds of Vitis*)






	(*******************************  MoscateldeAngues*)

Needs["Splines`"]

MoscateldeAngues[1]={{3.85595,3.50935},{3.89928,3.09776},{3.9426,2.88113},{3.98593,2.70783},{4.02925,2.57786},{4.07258,2.46954},{4.1159,2.38289},{4.15923,2.27458},{4.20255,2.16627},{4.24588,2.10128},{4.28921,2.03629},{4.33253,1.9713},{4.37586,1.92798},{4.41918,1.90631},{4.46251,1.88465},{4.50583,1.84133},{4.54916,1.81966},{4.59248,1.798},{4.63581,1.77634},{4.67913,1.77634},{4.72246,1.75467},{4.76578,1.73301},{4.80911,1.73301},{4.85243,1.73301},{4.89576,1.73301},{4.93909,1.73301},{4.98241,1.73301},{5.02574,1.73301},{5.06906,1.73301},{5.11239,1.73301},{5.15571,1.73301},{5.19904,1.73301},{5.24236,1.75467},{5.28569,1.77634},{5.32901,1.75467},{5.37234,1.73301},{5.41566,1.73301},{5.45899,1.73301},{5.50231,1.73301},{5.54564,1.73301},{5.58896,1.73301},{5.63229,1.71135},{5.67562,1.68969},{5.71894,1.68969},{5.76227,1.68969},{5.80559,1.68969},{5.84892,1.68969},{5.89224,1.68969},{5.93557,1.71135},{5.97889,1.73301},{6.02222,1.73301},{6.06554,1.73301},{6.10887,1.73301},{6.15219,1.73301},{6.19552,1.73301},{6.23884,1.73301},{6.28217,1.75467},{6.32549,1.77634},{6.36882,1.77634},{6.41215,1.798},{6.45547,1.81966},{6.4988,1.84133},{6.54212,1.86299},{6.58545,1.88465},{6.62877,1.90631},{6.6721,1.92798},{6.71542,1.9713},{6.75875,1.99296},{6.80207,2.01463},{6.8454,2.05795},{6.88872,2.10128},{6.93205,2.1446},{6.97537,2.18793},{7.0187,2.23125},{7.06203,2.29624},{7.10535,2.40455},{7.14868,2.53453},{7.192,3.31439},{7.14868,4.13757},{7.10535,4.35419},{7.06203,4.54916},{7.0187,4.67913},{6.97537,4.78745},{6.93205,4.89576},{6.88872,4.98241},{6.8454,5.06906},{6.80207,5.15571},{6.75875,5.24236},{6.71542,5.32901},{6.6721,5.394},{6.62877,5.43733},{6.58545,5.48065},{6.54212,5.54564},{6.4988,5.63229},{6.45547,5.69728},{6.41215,5.7406},{6.36882,5.78393},{6.32549,5.82725},{6.28217,5.89224},{6.23884,6.00056},{6.19552,6.43381},{6.15219,6.93205},{6.10887,7.14868},{6.06554,7.27865},{6.02222,7.3653},{5.97889,7.43029},{5.93557,7.47362},{5.89224,7.49528},{5.84892,7.51694},{5.80559,7.5386},{5.76227,7.5386},{5.71894,7.56027},{5.67562,7.58193},{5.63229,7.58193},{5.58896,7.60359},{5.54564,7.62525},{5.50231,7.62525},{5.45899,7.62525},{5.41566,7.62525},{5.37234,7.62525},{5.32901,7.62525},{5.28569,7.60359},{5.24236,7.56027},{5.19904,7.5386},{5.15571,7.51694},{5.11239,7.47362},{5.06906,7.43029},{5.02574,7.38696},{4.98241,7.3653},{4.93909,7.34364},{4.89576,7.30031},{4.85243,7.23533},{4.80911,6.60711},{4.76578,6.26051},{4.72246,6.10887},{4.67913,5.95723},{4.63581,5.84892},{4.59248,5.76227},{4.54916,5.67562},{4.50583,5.61063},{4.46251,5.54564},{4.41918,5.48065},{4.37586,5.41566},{4.33253,5.32901},{4.28921,5.24236},{4.24588,5.15571},{4.20255,5.0474},{4.15923,4.93909},{4.1159,4.80911},{4.07258,4.65747},{4.02925,4.52749},{3.98593,4.41918},{3.9426,4.28921},{3.89928,4.00759}}
MoscateldeAngues[2]={{3.9426,4.09424},{3.98593,3.7693},{4.02925,3.50935},{4.07258,3.37937},{4.1159,3.29272},{4.15923,3.18441},{4.20255,3.0761},{4.24588,2.98945},{4.28921,2.9028},{4.33253,2.83781},{4.37586,2.79448},{4.41918,2.75116},{4.46251,2.70783},{4.50583,2.66451},{4.54916,2.62118},{4.59248,2.57786},{4.63581,2.53453},{4.67913,2.49121},{4.72246,2.46954},{4.76578,2.44788},{4.80911,2.42622},{4.85243,2.42622},{4.89576,2.40455},{4.93909,2.38289},{4.98241,2.38289},{5.02574,2.36123},{5.06906,2.33957},{5.11239,2.33957},{5.15571,2.33957},{5.19904,2.33957},{5.24236,2.33957},{5.28569,2.33957},{5.32901,2.36123},{5.37234,2.38289},{5.41566,2.38289},{5.45899,2.40455},{5.50231,2.42622},{5.54564,2.44788},{5.58896,2.46954},{5.63229,2.46954},{5.67562,2.46954},{5.71894,2.46954},{5.76227,2.46954},{5.80559,2.46954},{5.84892,2.46954},{5.89224,2.46954},{5.93557,2.44788},{5.97889,2.42622},{6.02222,2.42622},{6.06554,2.40455},{6.10887,2.38289},{6.15219,2.38289},{6.19552,2.40455},{6.23884,2.42622},{6.28217,2.42622},{6.32549,2.42622},{6.36882,2.44788},{6.41215,2.46954},{6.45547,2.46954},{6.4988,2.49121},{6.54212,2.51287},{6.58545,2.51287},{6.62877,2.53453},{6.6721,2.57786},{6.71542,2.59952},{6.75875,2.62118},{6.80207,2.66451},{6.8454,2.70783},{6.88872,2.77282},{6.93205,2.85947},{6.97537,2.96778},{7.0187,3.05443},{7.06203,3.11942},{7.10535,3.20607},{7.14868,3.29272},{7.192,3.40104},{7.23533,3.596},{7.27865,4.18089},{7.23533,4.74412},{7.192,4.93909},{7.14868,5.09072},{7.10535,5.2207},{7.06203,5.32901},{7.0187,5.43733},{6.97537,5.54564},{6.93205,5.65395},{6.88872,5.76227},{6.8454,5.87058},{6.80207,5.95723},{6.75875,6.02222},{6.71542,6.08721},{6.6721,6.15219},{6.62877,6.21718},{6.58545,6.28217},{6.54212,6.36882},{6.4988,6.45547},{6.45547,6.56378},{6.41215,6.73709},{6.36882,6.95371},{6.32549,7.21366},{6.28217,7.51694},{6.23884,7.7119},{6.19552,7.77689},{6.15219,7.82022},{6.10887,7.86354},{6.06554,7.90687},{6.02222,7.95019},{5.97889,7.97186},{5.93557,7.99352},{5.89224,8.01518},{5.84892,8.01518},{5.80559,8.03684},{5.76227,8.05851},{5.71894,8.05851},{5.67562,8.05851},{5.63229,8.08017},{5.58896,8.10183},{5.54564,8.08017},{5.50231,8.05851},{5.45899,8.05851},{5.41566,8.05851},{5.37234,8.05851},{5.32901,8.03684},{5.28569,8.01518},{5.24236,7.99352},{5.19904,7.95019},{5.15571,7.92853},{5.11239,7.88521},{5.06906,7.82022},{5.02574,7.75523},{4.98241,7.60359},{4.93909,7.21366},{4.89576,6.86706},{4.85243,6.73709},{4.80911,6.62877},{4.76578,6.54212},{4.72246,6.45547},{4.67913,6.36882},{4.63581,6.28217},{4.59248,6.19552},{4.54916,6.10887},{4.50583,6.02222},{4.46251,5.93557},{4.41918,5.84892},{4.37586,5.76227},{4.33253,5.65395},{4.28921,5.54564},{4.24588,5.43733},{4.20255,5.32901},{4.15923,5.2207},{4.1159,5.09072},{4.07258,4.93909},{4.02925,4.74412},{3.98593,4.44084}}
MoscateldeAngues[3]={{4.28921,3.72598},{4.33253,4.31087},{4.37586,4.50583},{4.41918,4.8741},{4.46251,4.85243},{4.50583,5.00407},{4.54916,5.11239},{4.59248,5.2207},{4.63581,5.32901},{4.67913,5.41566},{4.72246,5.52398},{4.76578,5.61063},{4.80911,5.65395},{4.85243,5.71894},{4.89576,5.80559},{4.93909,5.87058},{4.98241,5.93557},{5.02574,5.97889},{5.06906,6.02222},{5.11239,6.10887},{5.15571,6.17386},{5.19904,6.26051},{5.24236,6.36882},{5.28569,6.4988},{5.32901,6.91039},{5.37234,7.30031},{5.41566,7.43029},{5.45899,7.5386},{5.50231,7.60359},{5.54564,7.62525},{5.58896,7.64692},{5.63229,7.66858},{5.67562,7.66858},{5.71894,7.66858},{5.76227,7.66858},{5.80559,7.69024},{5.84892,7.7119},{5.89224,7.7119},{5.93557,7.7119},{5.97889,7.7119},{6.02222,7.7119},{6.06554,7.69024},{6.10887,7.66858},{6.15219,7.66858},{6.19552,7.66858},{6.23884,7.64692},{6.28217,7.62525},{6.32549,7.62525},{6.36882,7.60359},{6.41215,7.58193},{6.45547,7.5386},{6.4988,7.45195},{6.54212,7.34364},{6.58545,7.21366},{6.62877,7.04036},{6.6721,6.82374},{6.71542,6.58545},{6.75875,6.39048},{6.80207,6.26051},{6.8454,6.13053},{6.88872,6.02222},{6.93205,5.95723},{6.97537,5.89224},{7.0187,5.82725},{7.06203,5.78393},{7.10535,5.71894},{7.14868,5.65395},{7.192,5.58896},{7.23533,5.50231},{7.27865,5.394},{7.32198,5.30735},{7.3653,5.2207},{7.40863,5.06906},{7.45195,4.91742},{7.49528,4.76578},{7.5386,4.59248},{7.58193,4.44084},{7.62525,4.28921},{7.66858,4.07258},{7.7119,3.57434},{7.66858,3.03277},{7.62525,2.77282},{7.58193,2.62118},{7.5386,2.49121},{7.49528,2.38289},{7.45195,2.3179},{7.40863,2.27458},{7.3653,2.23125},{7.32198,2.18793},{7.27865,2.1446},{7.23533,2.10128},{7.192,2.05795},{7.14868,2.01463},{7.10535,1.9713},{7.06203,1.94964},{7.0187,1.92798},{6.97537,1.90631},{6.93205,1.90631},{6.88872,1.88465},{6.8454,1.86299},{6.80207,1.84133},{6.75875,1.81966},{6.71542,1.81966},{6.6721,1.798},{6.62877,1.77634},{6.58545,1.77634},{6.54212,1.77634},{6.4988,1.77634},{6.45547,1.798},{6.41215,1.81966},{6.36882,1.81966},{6.32549,1.84133},{6.28217,1.86299},{6.23884,1.86299},{6.19552,1.86299},{6.15219,1.86299},{6.10887,1.86299},{6.06554,1.86299},{6.02222,1.86299},{5.97889,1.86299},{5.93557,1.86299},{5.89224,1.86299},{5.84892,1.86299},{5.80559,1.86299},{5.76227,1.86299},{5.71894,1.86299},{5.67562,1.86299},{5.63229,1.86299},{5.58896,1.86299},{5.54564,1.86299},{5.50231,1.86299},{5.45899,1.86299},{5.41566,1.86299},{5.37234,1.84133},{5.32901,1.84133},{5.28569,1.86299},{5.24236,1.86299},{5.19904,1.86299},{5.15571,1.88465},{5.11239,1.90631},{5.06906,1.90631},{5.02574,1.90631},{4.98241,1.92798},{4.93909,1.94964},{4.89576,1.99296},{4.85243,2.05795},{4.80911,2.10128},{4.76578,2.12294},{4.72246,2.1446},{4.67913,2.20959},{4.63581,2.27458},{4.59248,2.33957},{4.54916,2.42622},{4.50583,2.53453},{4.46251,2.64284},{4.41918,2.79448},{4.37586,2.98945},{4.33253,3.16275}}
MoscateldeAngues[4]={{3.37937,3.89928},{3.4227,3.596},{3.46602,3.4227},{3.50935,3.27106},{3.55268,3.14108},{3.596,3.03277},{3.63933,2.94612},{3.68265,2.85947},{3.72598,2.77282},{3.7693,2.70783},{3.81263,2.64284},{3.85595,2.57786},{3.89928,2.53453},{3.9426,2.49121},{3.98593,2.46954},{4.02925,2.44788},{4.07258,2.40455},{4.1159,2.36123},{4.15923,2.33957},{4.20255,2.3179},{4.24588,2.29624},{4.28921,2.27458},{4.33253,2.25292},{4.37586,2.23125},{4.41918,2.20959},{4.46251,2.20959},{4.50583,2.20959},{4.54916,2.18793},{4.59248,2.16627},{4.63581,2.16627},{4.67913,2.16627},{4.72246,2.16627},{4.76578,2.16627},{4.80911,2.16627},{4.85243,2.16627},{4.89576,2.18793},{4.93909,2.20959},{4.98241,2.20959},{5.02574,2.20959},{5.06906,2.20959},{5.11239,2.23125},{5.15571,2.25292},{5.19904,2.25292},{5.24236,2.25292},{5.28569,2.25292},{5.32901,2.25292},{5.37234,2.25292},{5.41566,2.25292},{5.45899,2.25292},{5.50231,2.25292},{5.54564,2.25292},{5.58896,2.25292},{5.63229,2.25292},{5.67562,2.23125},{5.71894,2.20959},{5.76227,2.20959},{5.80559,2.20959},{5.84892,2.20959},{5.89224,2.20959},{5.93557,2.23125},{5.97889,2.25292},{6.02222,2.25292},{6.06554,2.27458},{6.10887,2.29624},{6.15219,2.29624},{6.19552,2.3179},{6.23884,2.33957},{6.28217,2.36123},{6.32549,2.40455},{6.36882,2.44788},{6.41215,2.49121},{6.45547,2.53453},{6.4988,2.57786},{6.54212,2.62118},{6.58545,2.66451},{6.62877,2.72949},{6.6721,2.83781},{6.71542,2.96778},{6.75875,3.11942},{6.80207,3.27106},{6.8454,3.37937},{6.88872,3.50935},{6.93205,3.74764},{6.97537,4.20255},{6.93205,4.61415},{6.88872,4.78745},{6.8454,4.89576},{6.80207,5.00407},{6.75875,5.11239},{6.71542,5.2207},{6.6721,5.35068},{6.62877,5.45899},{6.58545,5.54564},{6.54212,5.61063},{6.4988,5.67562},{6.45547,5.76227},{6.41215,5.84892},{6.36882,5.93557},{6.32549,6.00056},{6.28217,6.04388},{6.23884,6.10887},{6.19552,6.19552},{6.15219,6.26051},{6.10887,6.30383},{6.06554,6.34716},{6.02222,6.41215},{5.97889,6.47713},{5.93557,6.58545},{5.89224,6.93205},{5.84892,7.25699},{5.80559,7.47362},{5.76227,7.64692},{5.71894,7.69024},{5.67562,7.7119},{5.63229,7.73357},{5.58896,7.77689},{5.54564,7.82022},{5.50231,7.84188},{5.45899,7.84188},{5.41566,7.88521},{5.37234,7.95019},{5.32901,7.97186},{5.28569,7.97186},{5.24236,7.99352},{5.19904,8.01518},{5.15571,8.01518},{5.11239,8.01518},{5.06906,8.01518},{5.02574,8.01518},{4.98241,8.01518},{4.93909,8.01518},{4.89576,7.99352},{4.85243,7.97186},{4.80911,7.97186},{4.76578,7.95019},{4.72246,7.92853},{4.67913,7.90687},{4.63581,7.88521},{4.59248,7.86354},{4.54916,7.82022},{4.50583,7.77689},{4.46251,7.35},{4.41918,7.06203},{4.37586,6.73709},{4.33253,6.47713},{4.28921,6.36882},{4.24588,6.28217},{4.20255,6.21718},{4.15923,6.17386},{4.1159,6.10887},{4.07258,6.04388},{4.02925,6.00056},{3.98593,5.93557},{3.9426,5.84892},{3.89928,5.76227},{3.85595,5.67562},{3.81263,5.58896},{3.7693,5.50231},{3.72598,5.394},{3.68265,5.26402},{3.63933,5.13405},{3.596,4.98241},{3.55268,4.83077},{3.50935,4.67913},{3.46602,4.50583},{3.4227,4.26754}}
MoscateldeAngues[5]={{4.02925,4.20255},{4.07258,3.87761},{4.1159,3.596},{4.15923,3.44436},{4.20255,3.31439},{4.24588,3.20607},{4.28921,3.14108},{4.33253,3.0761},{4.37586,2.98945},{4.41918,2.92446},{4.46251,2.88113},{4.50583,2.81614},{4.54916,2.75116},{4.59248,2.70783},{4.63581,2.66451},{4.67913,2.64284},{4.72246,2.62118},{4.76578,2.57786},{4.80911,2.53453},{4.85243,2.51287},{4.89576,2.49121},{4.93909,2.46954},{4.98241,2.46954},{5.02574,2.44788},{5.06906,2.42622},{5.11239,2.42622},{5.15571,2.42622},{5.19904,2.42622},{5.24236,2.42622},{5.28569,2.42622},{5.32901,2.42622},{5.37234,2.42622},{5.41566,2.44788},{5.45899,2.46954},{5.50231,2.46954},{5.54564,2.46954},{5.58896,2.49121},{5.63229,2.51287},{5.67562,2.51287},{5.71894,2.51287},{5.76227,2.51287},{5.80559,2.51287},{5.84892,2.51287},{5.89224,2.51287},{5.93557,2.49121},{5.97889,2.46954},{6.02222,2.46954},{6.06554,2.46954},{6.10887,2.46954},{6.15219,2.44788},{6.19552,2.42622},{6.23884,2.42622},{6.28217,2.42622},{6.32549,2.42622},{6.36882,2.42622},{6.41215,2.42622},{6.45547,2.44788},{6.4988,2.46954},{6.54212,2.46954},{6.58545,2.49121},{6.62877,2.51287},{6.6721,2.53453},{6.71542,2.55619},{6.75875,2.57786},{6.80207,2.62118},{6.8454,2.66451},{6.88872,2.70783},{6.93205,2.75116},{6.97537,2.81614},{7.0187,2.88113},{7.06203,2.94612},{7.10535,3.03277},{7.14868,3.11942},{7.192,3.20607},{7.23533,3.27106},{7.27865,3.33605},{7.32198,3.4227},{7.3653,3.50935},{7.40863,3.596},{7.45195,3.70431},{7.49528,3.85595},{7.5386,4.28921},{7.45195,4.76578},{7.40863,4.96075},{7.3653,5.09072},{7.32198,5.19904},{7.27865,5.28569},{7.23533,5.394},{7.192,5.50231},{7.14868,5.5673},{7.10535,5.63229},{7.06203,5.71894},{7.0187,5.80559},{6.97537,5.87058},{6.93205,5.93557},{6.88872,6.00056},{6.8454,6.04388},{6.80207,6.10887},{6.75875,6.17386},{6.71542,6.21718},{6.6721,6.26051},{6.62877,6.32549},{6.58545,6.39048},{6.54212,6.45547},{6.4988,6.60711},{6.45547,7.5386},{6.41215,7.66858},{6.36882,7.73357},{6.32549,7.77689},{6.28217,7.82022},{6.23884,7.86354},{6.19552,7.90687},{6.15219,7.95019},{6.10887,7.99352},{6.06554,8.03684},{6.02222,8.05851},{5.97889,8.05851},{5.93557,8.05851},{5.89224,8.08017},{5.84892,8.1235},{5.80559,8.14516},{5.76227,8.14516},{5.71894,8.16682},{5.67562,8.18848},{5.63229,8.16682},{5.58896,8.14516},{5.54564,8.1235},{5.50231,8.10183},{5.45899,8.08017},{5.41566,8.05851},{5.37234,8.03684},{5.32901,7.99352},{5.28569,7.97186},{5.24236,7.95019},{5.19904,7.88521},{5.15571,7.7119},{5.11239,7.49528},{5.06906,7.27865},{5.02574,7.04036},{4.98241,6.75875},{4.93909,6.52046},{4.89576,6.41215},{4.85243,6.32549},{4.80911,6.23884},{4.76578,6.17386},{4.72246,6.10887},{4.67913,6.04388},{4.63581,6.00056},{4.59248,5.93557},{4.54916,5.87058},{4.50583,5.80559},{4.46251,5.71894},{4.41918,5.63229},{4.37586,5.54564},{4.33253,5.45899},{4.28921,5.35068},{4.24588,5.24236},{4.20255,5.13405},{4.15923,5.00407},{4.1159,4.8741},{4.07258,4.57082}}
MoscateldeAngues[6]={{3.7693,4.39752},{3.81263,4.50583},{3.85595,5.00407},{3.89928,5.17737},{3.9426,5.28569},{3.98593,5.41566},{4.02925,5.54564},{4.07258,5.63229},{4.1159,5.7406},{4.15923,5.87058},{4.20255,5.97889},{4.24588,6.06554},{4.28921,6.15219},{4.33253,6.23884},{4.37586,6.32549},{4.41918,6.39048},{4.46251,6.43381},{4.50583,6.4988},{4.54916,6.58545},{4.59248,6.6721},{4.63581,6.78041},{4.67913,6.93205},{4.72246,7.27865},{4.76578,7.77689},{4.80911,8.05851},{4.85243,8.1235},{4.89576,8.16682},{4.93909,8.21015},{4.98241,8.25347},{5.02574,8.27513},{5.06906,8.2968},{5.11239,8.34012},{5.15571,8.36178},{5.19904,8.36178},{5.24236,8.38345},{5.28569,8.40511},{5.32901,8.40511},{5.37234,8.42677},{5.41566,8.44843},{5.45899,8.44843},{5.50231,8.44843},{5.54564,8.44843},{5.58896,8.42677},{5.63229,8.40511},{5.67562,8.40511},{5.71894,8.38345},{5.76227,8.36178},{5.80559,8.34012},{5.84892,8.2968},{5.89224,8.25347},{5.93557,8.21015},{5.97889,8.18848},{6.02222,8.16682},{6.06554,8.1235},{6.10887,8.03684},{6.15219,7.77689},{6.19552,7.47362},{6.23884,7.25699},{6.28217,7.08369},{6.32549,6.93205},{6.36882,6.80207},{6.41215,6.69376},{6.45547,6.58545},{6.4988,6.4988},{6.54212,6.41215},{6.58545,6.34716},{6.62877,6.30383},{6.6721,6.23884},{6.71542,6.17386},{6.75875,6.10887},{6.80207,6.02222},{6.8454,5.93557},{6.88872,5.87058},{6.93205,5.80559},{6.97537,5.71894},{7.0187,5.63229},{7.06203,5.52398},{7.10535,5.41566},{7.14868,5.30735},{7.192,5.17737},{7.23533,5.00407},{7.27865,4.78745},{7.32198,4.54916},{7.3653,4.09424},{7.32198,3.61766},{7.27865,3.40104},{7.23533,3.27106},{7.192,3.16275},{7.14868,3.0761},{7.10535,2.98945},{7.06203,2.92446},{7.0187,2.88113},{6.97537,2.83781},{6.93205,2.79448},{6.88872,2.77282},{6.8454,2.75116},{6.80207,2.68617},{6.75875,2.64284},{6.71542,2.62118},{6.6721,2.57786},{6.62877,2.55619},{6.58545,2.53453},{6.54212,2.51287},{6.4988,2.51287},{6.45547,2.51287},{6.41215,2.51287},{6.36882,2.51287},{6.32549,2.51287},{6.28217,2.51287},{6.23884,2.51287},{6.19552,2.53453},{6.15219,2.55619},{6.10887,2.55619},{6.06554,2.55619},{6.02222,2.55619},{5.97889,2.55619},{5.93557,2.55619},{5.89224,2.55619},{5.84892,2.57786},{5.80559,2.59952},{5.76227,2.59952},{5.71894,2.59952},{5.67562,2.57786},{5.63229,2.55619},{5.58896,2.55619},{5.54564,2.55619},{5.50231,2.53453},{5.45899,2.51287},{5.41566,2.51287},{5.37234,2.49121},{5.32901,2.46954},{5.28569,2.46954},{5.24236,2.44788},{5.19904,2.44788},{5.15571,2.44788},{5.11239,2.42622},{5.06906,2.44788},{5.02574,2.46954},{4.98241,2.46954},{4.93909,2.46954},{4.89576,2.49121},{4.85243,2.51287},{4.80911,2.53453},{4.76578,2.55619},{4.72246,2.55619},{4.67913,2.57786},{4.63581,2.59952},{4.59248,2.59952},{4.54916,2.62118},{4.50583,2.64284},{4.46251,2.66451},{4.41918,2.70783},{4.37586,2.75116},{4.33253,2.79448},{4.28921,2.83781},{4.24588,2.88113},{4.20255,2.92446},{4.15923,2.98945},{4.1159,3.0761},{4.07258,3.16275},{4.02925,3.22774},{3.98593,3.33605},{3.9426,3.50935},{3.89928,3.70431},{3.85595,3.89928},{3.81263,4.15923}}

(*Poner aqui la familia*)
var=MoscateldeAngues;
(* el número de curvas estudiadas/semillas de la familia*)
m=6;
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,6}]];
Print["Valores medios de curvatura de cada ", var ," en [0.1,0.9]:  ", Table[vmed[j],{j,1,6}]];

dibcurbe[j],{j,1,6}