matlab反省(1)---回文数和二进制、八进制的问题

前些时候做了一部分题目，感觉收获颇丰。
其中有一个题目是计算1-20000的回文数，
代码如下：

function Palindromes_several %11.回文数就是数字的平方从左到右和从右到左读完全一样 clc;clear all; p=0; for x=1:200000 n=x^2; if fix(n/10000)>=1 j=5; elseif fix(n/1000)>=1 j=4; elseif fix(n/100)>=1 j=3; elseif fix(n/10)>=1 j=2; elseif n>=1 j=1; end bases=0; for i=j:-1:1 base=10^(i-1); bases=cat(2,bases,base); end bases(:,1)=[]; var=bases; if fix(n/10000)>=1 a(1)=fix(n/var(1)); a(2)=fix((n-a(1)*var(1))/var(2)); a(3)=fix((n-a(1)*var(1)-a(2)*var(2))/var(3)); a(4)=fix((n-a(1)*var(1)-a(2)*var(2)-a(3)*var(3))/var(4)); a(5)=n-a(1)*var(1)-a(2)*var(2)-a(3)*var(3)-a(4)*var(4); right=a*sort(var',1); elseif fix(n/1000)>=1 a(1)=fix(n/var(1)); a(2)=fix((n-a(1)*var(1))/var(2)); a(3)=fix((n-a(1)*var(1)-a(2)*var(2))/var(3)); a(4)=n-a(1)*var(1)-a(2)*var(2)-a(3)*var(3); right=a*sort(var',1); elseif fix(n/100)>=1 a(1)=fix(n/var(1)); a(2)=fix((n-a(1)*var(1))/var(2)); a(3)=n-a(1)*var(1)-a(2)*var(2); right=a*sort(var',1); elseif fix(n/10)>=1 a(1)=fix(n/var(1)); a(2)=n-a(1)*var(1); right=a*sort(var',1); elseif n>=1 a(1)=n; right=a*sort(var',1); end if right==n p=cat(2,p,x); end end p(:,1)=[] length(p) %200000以内的回文数一共十三个 % p =1 2 3 11 22 26 101 111 121 202 212 264 307 % ans =13

在编程中需要将一个数字倒序输出，我用的基本是编C++的办法，浏matlab论坛发现很简单的方法，可以将数字倒序输出，需要调用fliplr函数，可以将一个行向量转180度，flipud函数是将一个列向量旋转一百八十度。
可以参考：http://www.ilovematlab.cn/viewthread.php?tid=60683

 

其中还有一个题目是，输入一个整数，然后输出该数字的二进制数和八进制数；
代码如下：

%整數轉化為二進制和八進制 %y＝dec2bin(23,7)-48;十进制转化二进制的语句，0的AIISC码为48； clc;clear all; b=zeros(1); a=input('请输入要转化整数a：'); for i=1:a if a-fix(a/2)*2==1 c=1; elseif a-fix(a/2)*2==0 c=0; end if a==1 c=1;break; end b=cat(2,b,c); a=fix(a/2); end b=cat(2,b,c); b(:,1)=[] bases1=0; for i=1:length(b) base1=10^(i-1); bases1=cat(2,bases1,base1); end bases1(:,1)=[] disp('整数a的二进制为') disp(bases1*b') if length(b)-fix(length(b)/3)*3==1 b=cat(2,b,zeros(2)) elseif length(b)-fix(length(b)/3)*3==2 b=cat(2,b,zeros(1)) end bases2=0; for i=1:length(b)/3 c(i)=b(3*i)*100+b(3*i-1)*10+b(3*i-2); if c(i)==000 c(i)=0; elseif c(i)==001 c(i)=1; elseif c(i)==010 c(i)=2; elseif c(i)==011 c(i)=3; elseif c(i)==100 c(i)=4; elseif c(i)==101 c(i)=5; elseif c(i)==110 c(i)=6; elseif c(i)==111 c(i)=7; end base2=10^(i-1); bases2=cat(2,bases2,base2); end bases2(:,1)=[] c disp('整数a的八进制为') disp(bases2*c')

过了几天，又发现，有matlab里面一个函数就是专门输出二进制数的，我还傻了吧唧的费好多时间编程，郁闷中---
终于发现自己远远没有掌握matlab的精髓，学无止境，学的越多发现自己和文盲一样呀，继续努力！