過去ログ

「数学」小旅行
Risa/Asir　で次のようにしました。

0 0 1 0 0 0
0 0 0 1 0 0
1 0 0 0 0 0
0 1 0 0 0 0 　　のような６×６行列のうち、６乗して単位行列になるもの
0 0 0 0 0 1　　　を数え上げます。
0 0 0 0 1 0

M=0;
A=newmat(6,6);
E=newmat(6,6);

for(I=0;I<=5;I++){E[I][I]=1;}

for(I0=0;I0<=5;I0++){
for(I1=0;I1<=5;I1++){
for(I2=0;I2<=5;I2++){
for(I3=0;I3<=5;I3++){
for(I4=0;I4<=5;I4++){
for(I5=0;I5<=5;I5++){

A=newmat(6,6);

A[0][I0]=1;A[1][I1]=1;A[2][I2]=1;
A[3][I3]=1;A[4][I4]=1;A[5][I5]=1;

if(A^6==E){M++;}

}}}}}}
return M;

あきらかに不適当なものについても６乗して調べるようになってしまい
ましたが、プログラムが簡単なので、（＾＾；
　　 12月21日（日） 0:45:24　　 　　33482

過去問題一覧へ戻る