poly=1/24x^3+37/480x^4+5/48x^5+73/384x^6+319/1920x^7+39/256x^8+547/3840x^9+251/3840x^10+31/768x^11+13/640x^12;(*Getcoefficientsofeachterm*)coefficients=CoefficientList[poly,x];proportions=coefficients[[4;;]]labels={"x^3","x^4","x^5","x^6","x^7","x^8","x^9","x^10","x^ll","x^12"};PieChart[proportions,ChartLabels->labels,ChartLegends->dat]
Out[]=
,,,,,,,,,
1
24
37
480
5
48
73
384
319
1920
39
256
547
3840
251
3840
31
768
13
640
Out[]=
