n=60;     % estimate of number of participants
ns=30;    % number of speakers
%% cost per person
buffet=20.95; %buffet banquet per person
banquet=n*buffet;
setupcost=65;
banquet=banquet+setupcost;
nametags=.5*n;

accom=46.20*4*ns;
accom=accom+.07*accom;

travelf=14000;
travels=4000;

lunch=12.50*n*3;


breakf=9.*n*3;

coffee=2.55*n*3;

receprefresh=5.65*n;

publ=1000;
video=1000;   % streaming video record

total=nametags + coffee + travelf+travels+accom+banquet+breakf+lunch+receprefresh + publ+video;


fid=fopen('budget.txt','w');
!chmod a+r budget.txt
fprintf(fid,'The estimates are for %3g',ns);
fprintf(fid,' speakers while total participants number %4.1f \n',n);
fprintf(fid,'------------------------------------- \n');
fprintf(fid,'Foreign speakers travel costs (14-16): $%7.2f\n',travelf);
fprintf(fid,'Student participants travel costs (14-16): $%7.2f \n',travels);
fprintf(fid,'Accomodations for speakers for 4 nights at 46.20 per plus taxes: $%7.2f \n',accom);
fprintf(fid,'Reception at $5.65 per  $%6.2f \n',receprefresh);
fprintf(fid,'Coffee at $2.55 per  $%5.2f \n',coffee);
fprintf(fid,'Breakfast at $9.00 per $%6.2f \n',breakf);
fprintf(fid,'Lunch at $12.50 per $%6.2f \n',lunch);
fprintf(fid,'Banquet at $20.95 per plus $65 setup cost $%7.2f \n',banquet);
fprintf(fid,'incidentals (publishing, tags, etc..): $%6.2f \n',(publ+nametags));
fprintf(fid,'streaming video record: $%6.2f \n',video);
fprintf(fid,'------------------------------------- \n');
fprintf(fid,'Total costs $%8.2f \n',total);

