计算机数学基础2-4有关实验.pptVIP

§2.4 有关实验 2.4.1 数制间相互转换 2.4.2 图形及其着色 2.4.3 几个动画实现 2.4.4 游戏设计中的 Mathematica程序 2.4.1数制间相互转换 1 八进制转换成二进制 N-S流程图2-1的Mathematica程序如下 tt={000,001,010,011,100,101,110,111}; bb={}; aa=Input[输入一个八进制数:]; gg=ToString[aa]; For[i=1,i=StringLength[gg],i++, cc=StringTake[gg,{i}]; dd=ToExpression[cc]; ee=tt[[dd+1]]; ff=ToString[ee]; bb=AppendTo[bb,ff] ] StringJoin[bb] 2 十进制整数转换成二进制数 N-S流程图2-2的Mathematica程序如下 tt={}; aa=Input[输入一个十进制整数:]; While[aa!=0, tt=Prepend[tt,ToString[Mod[aa,2]]]; aa=Floor[aa/2]] StringJoin[tt] 3 十进制小数转换成二进制小数 算法的N-S流程图从略，请读者自行给出。 以下是程