用Wolfram Mathematica 9作如下计算并画图，得不到结果，求助Mathematica大神应如何修改。
其中a取值范围为0——1，b是a的函数，i是b的函数，pib是b和i的函数

b=1-a^5;

i=1-2.72^b -log[b/0.05];

pib=((1-0.05)*20-12)*0.5*b*10*500*i-10*0.5*12-10*5*100;

t1=Plot[ {b,i,pib},{a,0,1}]