maxentfs.m

这是在网上下的一个东东

%generate the maxent regularization function figure
bookfonts;
x=0.01:.01:6;
f1=x.^2;
f2=x.*log(x);
f3=x.*log(0.2*x);
f4=x.*log(5*x);
figure(1)
bookfonts
plot(x,f1,'-k')
hold on
plot(x,f2,':k')
plot(x,f3,'--k')
plot(x,f4,'-.k')
xlim([0 6])
ylim([-2 25])
xlabel('x')
ylabel('f(x)')
xs=0.25;
plot([.05+xs .40+xs],[22,22],'-k');
H=text(.50+xs,22,'f(x)=x^2');
set(H,'FontSize',18);
plot([.05+xs .40+xs],[20,20],':k');
H=text(.50+xs,20,'f(x)=x ln(x)');
set(H,'FontSize',18);
plot([.05+xs .40+xs],[18,18],'--k');
H=text(.50+xs,18,'f(x)=x ln(x/5)');
set(H,'FontSize',18);
plot([.05+xs .40+xs],[16,16],'-.k');
H=text(.50+xs,16,'f(x)=x ln(5x)');
set(H,'FontSize',18);
hold off
%print -deps2 maxentfs.eps