powerlaw.m 400 B

12345678910111213141516
  1. % Setting up data;
  2. Y = hist(degMat,4);
  3. X = 1:length(Y);
  4. % Plotting the data
  5. plot(X,Y,'+r'), hold on
  6. % Polynomial curve fitting of log values so that we have a linear equation
  7. % Simplifying, log(Y) = log(a*X.^k) = log(X)*k + log(a)
  8. p = polyfit(log(X),log(Y),1);
  9. % Evaluating Coefficients
  10. k = p(1);
  11. % Accounting for the log transformation
  12. a = exp(p(2));
  13. % Final plot
  14. fplot(@(X) a*X.^k,[X(1) X(end)])