表計算一筆書き・・・コスモス【回答】

【´･ω･`】:今回の「コスモス」はジョー３さんの出題でした。

　　　　　　ジョー３さん、有り難うございました。

　　　　　　ここで少し「コスモス」に関する裏話をさせていただきたいと思います。

　　　　　　実はジョー３さんがはじめに考えていた問題は「コスモス」ではなく、

　　　　　　「星のまたたき」というものでした。

　　　　　　ジョー３さんによると・・・

　　　　　　**********************************

　　　　　　こんな問題はどうでしょう？？


　　　　　　星のまたたき・・・

　　　　　　ｆ９（再計算で）
　　　　　　１１×１１の中に
　　　　　　星を光らせる。・・・・ってやつ。

　　　　　　小さな菱形（中央）と

　　　　　　大きな8角形を、交互に表示するというものです。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ジョー３さん談）

　　　　　　**********************************
【´･ω･`】:再計算を使って表示を切り替えるのは、常連さん以外の

　　　　　　一般回答者には、厳しいのでは？というくまぷーの

　　　　　　お願いで・・・

　　　　　**********************************
　　　　　凝りすぎですよね、

　　　　　１１＊１１内の円（実は8角形）
　　　　　の作成だけでも良いのかなーーー、

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ジョー３さん談）

　　　　　**********************************

【´･ω･`】:・・・ということで「星のまたたき」から「コスモス」が生まれました。

　　　　　

　　　　　*

　　　　　*

　　　　　さてジョー３さんから、下のような

　　　　　メッセージを頂いております・・・

　　　　　ジョー３さんにはオリジナルの問題を快く変更していただき

　　　　　有り難く思うと同時に申し訳なく思っております。

　　　　　ジョー３さん、今回は本当にどうも有り難うございました。m(__)m

＊

　　　　問題はこちらを参照。

　　　　*********************************

　　　　先回の悪児さんの問題は、皆さん、力が入りましたね。

　　　　と言うことで、今回は、皆さんが楽を出来るように、

　　　　と言うことで、円の式をそのまま、部品として、

　　　　あとは、チョット工夫すれば・・・

　　　　と、考えました。でも、

　　　　みなさんの多くが考えついた点に、

　　　　私は気づきませんでした。

　　　　まあ、いずれにしても、

　　　　今回は、一休みできたようで、良かったですね、

　　　　【エクセル・・・回答】

　　　　=LEFT("●",INT(((ROW()-6)^2+(COLUMN()-6)^2)/5)=5)

　　　　*********************************

【´･ω･`】:実はジョー３さんから、「星のまたたき」の回答も頂いて

　　　　いるのですが、それはここでは公開せずに

　　　　表計算一筆書きの第９問目として使わせて頂こうと思っています。

　　　　「星のまたたき」は「コスモス」の関連問題なので、

　　　　公開は日曜か月曜の夕方・・・、そして回答の数式、コメント即OKという形に

　　　　しようと思っていますが如何でしょうか？

Comments

[投稿情報: y sakuda]

今回は48から動きませんでした^^
完敗です。
=LEFT("●",MOD((COLUMN()-6)^2+(ROW()-6)^2,30)＞20)

[投稿情報: くまぷー]

=LEFT("*",INT(SUMSQ(COLUMN()-6,ROW()-6)/5)=5)

これが４５です。

[投稿情報: ジョー3]

y sakuda さん、どうもですーーー
=LEFT("●",INT(((ROW()-6)^2+(COLUMN()-6)^2)/5)=5)
が、最初の式で、
短くしようとしたら、
y sakuda さんの式と同じのが出来ました。
あと、１，２、悪あがきしましたが、
駄目でした、わたしも、４５，４４は気づきませんでした。

[投稿情報: y sakuda]

SumSQか全く思いつかなかった・・・

[投稿情報: ジョー3]

SumSQか全く思いつかなかった・・・×２
へーーー使った関数が、1個多いのに、
文字数は、少ないのね・・・・へーーーー

[投稿情報: くまぷー]

=If(Ip(SumSq(Row(A1)-6,Col(A1)-6)/5)=5,"*")

=If(SumSq(Row(A1)-6,Col(A1)-6) DIV 5=5,"*")

三四郎４３、２本です。

風呂が沸いたので
ちょっと失礼します。

[投稿情報: きっちー]

＞SumSQか全く思いつかなかった・・・

じつは、前回の解答のコメントの最後にヒント出ていたんですよ。

前回の問題の解答がこれで、
=If((SumSq(Cols(A1:$F6)-3,Rows(A1:F$6)-3)-6)^2<5,"*")

これを使った今回の解答がこれ。
=If((SumSq(Cols(A1:$F6),Rows(A1:F$6))-41)^2<17,"*")

さらにスリム化して、４３字。

=If(SumSq(Col(A1)-6,Row(A1)-6) DIV 5=5,"＊")
=If(SumSq(Col(A1)-6,Row(A1)-6) DIV 6=4,"＊")
=If(SumSq(Col(A1)-6,Row(A1)-6) DIV 8=3,"＊")

遊んでいて、図形が４つに分裂してしまったのがこれ。

=If((SumSq(Col(A1)-6,Row(A1)-6) MOD 5-3)^2=1,"*")

[投稿情報: minmax]

私はあえてLENを使って４５にしました。
基本的な考え方は同じです。
数式は済みませんちょっと待ってください。

[投稿情報: えくせるバカ]

みんなと同じ４５文字ができたとき
これ以上は減らせないと思い放って置いたのですが
土曜日、仕事も午後から暇になりズルでも考えようと再開して、
例えばＭ1：Ｍ10まで空白文字を入れ
Ｍ6に「*」を入れ
Ａ1：Ｋ1に
　=OFFSET($M$1,SUMSQ(COLUMN()-6,ROW()-6)/5,)
で４２文字でできるけど・・・。
　配列定数でＩＮＤＥＸ使えるかなぁ～。いや、長くなるし。
それならば文字から切り出すＭＩＤはどうだろう・・・。
　割る５では大きいからもう少し小さく・・・割る８が限界か。
・・・で　=MID(" *",SUMSQ(COLUMN()-6,ROW()-6)/8,1)
の41文字だが中央部にＥＲＲ・・くそっ！
・・・そしてようやく
　=MID(" *",SUMSQ(COLUMN()-6,ROW()-6)/8+1,1)
の44文字となりました。

その他
　48文字=REPT("*",FLOOR(SUMSQ(COLUMN()-6,ROW()-6),5)=25)
　51文字=REPT("*",OR(SUMSQ(COLUMN()-6,ROW()-6)={25,26,29}))
　54文字=LOOKUP(SUMSQ(COLUMN()-6,ROW()-6),{0,"";24,"*";30,""})
　配列式60文字　=REPT("*",{6,3,2,1,1,1,1,1,2,3,6}*{6;3;2;1;1;1;1;1;2;3;6}=6)
etc・・・

[投稿情報: かず]

まったく問題外で…

=IF(--LEFT((6-COLUMN())^2+(6-ROW())^2+8,1)=3,"*","")

の５２文字でした。

[投稿情報: minmax]

LENを使った私の回答です。
=MID("●",LEN(SUMSQ(6-ROW(),6-COLUMN())-21),1)

=SUMSQ(6-ROW(),6-COLUMN())の結果から
21もしくは22を引くと
外側は10以上、内側はマイナスの数値となり文字数は２以上になり
表示したいセルは１桁ですので文字数１になります。

もっと短くしたかったなあ。

[投稿情報: ジョー3]

MIDで
（”　　　＊”）
　　↑　スペースが3個ですね、
私も似たことやってはいました。

[投稿情報: minmax]

midの中を整数にこだわっていました。
そういえば整数にこだわる必要なかったですね。
すっかり忘れていました。

[投稿情報: ジョー3]

かずさん、凄いです。
－－LEFT　　・・・・不思議な式です。

minmax さんも、すごいですーーー
LEN　・・・・・思いつかなかったです。

[投稿情報: くまぷー]

sakudaさん、ジョー３さん・・・

＞SumSQか全く思いつかなかった・・・
＞SumSQか全く思いつかなかった・・・×２

たぶん、そうだろうと思っていました(^^ゞ

きっちーさんの・・・

=If(SumSq(Col(A1)-6,Row(A1)-6) DIV 5=5,"＊")

・・・と同じでした。

えくせるバカさん・・・

＞Ｍ6に「*」を入れ
Ａ1：Ｋ1に
　=OFFSET($M$1,SUMSQ(COLUMN()-6,ROW()-6)/5,)
で４２文字でできるけど・・・。

よく、こいうこと、思いつきますね～
凄い！！

ところで、肝心の
=MID(" *",SUMSQ(COLUMN()-6,ROW()-6)/8+1,1)

なんですが、図形が２回りほど小さくなってしまうんですが・・・

[投稿情報: くまぷー]

＞MIDで
（”　　　＊”）
　　↑　スペースが3個ですね、

あ、そうだったのか！！
えくせるバカさん、できました！！
流石ですねえ！！

式をそのままコピペしたら変な図形になったもので・・・(^^ゞ

[投稿情報: えくせるバカ]

ジョー３さんの
＞（”　　　＊”）
＞　↑　スペースが3個ですね、
指摘の通りでスペースが３個で４文字目に「*」が入ります。
Ｅｘｃｅｌの式をそのままここに貼り付けしたら、スペースが１個減ったようです。

[投稿情報: ジョー3]

＞なんですが、図形が２回りほど小さくなってしまうんですが・・・
スペースが、１つでなく３っつのようですね、
全角でうったら（ここの掲示板だけ）
”　　　＊”
半角だと、
" *"
　↑３個うったが・・・・

[投稿情報: ぷりたま]

アレレ!?(・_・;?
全然違って４５文字なんですが・・・

質問のコメントに

ひ、ヒ、日　と隠しワードをいれました。

ＤＡＹ関数を使いました。
ＤＡＹ関数は３１までで繰り返されますから、４隅が５０でも１９にしかならず、
結果２４よりも大きいものだけ、表示させ
れば完成です。

=LEFT("●",DAY((6-COLUMN())^2+(6-ROW())^2)>24)

[投稿情報: くまぷー]

かずさん、どうも。(^｡^)

よく・・・

(6-COLUMN())^2+(6-ROW())^2

・・・に

８を足せば、アスタリスクを表示させるセルの１０の位が３になることをみつけましたねぇ。
面白い！！(^｡^)

[投稿情報: ジョー3]

あっ・・・遅かった。

[投稿情報: えくせるバカ]

一歩返答がおくれた。
＞ 2007年10月27日 (土) 午後 09時33分
内容が殆ど同じで笑えます！

[投稿情報: ジョー3]

おーーーーー
ぷりたま　さんーーー
良い隠し味です。うれしいなーーー

[投稿情報: えくせるバカ]

minmaxさんの
＞LENを使った私の回答です。
=MID("●",LEN(SUMSQ(6-ROW(),6-COLUMN())-21),1)

ぷりたまさんの
＞ＤＡＹ関数は３１までで繰り返されますから、４隅が５０でも１９にしかならず

使えるな
メモっとこ・・・

[投稿情報: くまぷー]

minmaxさん、参加いただき有り難うございます。

Lenを使っての４５文字。
こういうアプローチもあったんですねぇ・・・。

これからも宜しくお願いします。m(__)m

[投稿情報: ぷりたま]

それでもって

=LEFT("*",DAY(SUMSQ(6-ROW(),6-COLUMN()))>24)
すれば４４文字ですね＾＾　はいσ(^◇^;)

[投稿情報: ジョー3]

＞=LEFT("*",DAY(SUMSQ(6-ROW(),6-＞COLUMN()))>24)
＞すれば４４文字ですね＾＾　はいσ(^◇^;)

もう少し、頑張るべきだったのーーー
残念のぷりたまさん！！

[投稿情報: くまぷー]

ぷりたまさんのDay（）は新しい視点だ！！
頂き！！
これにSumSqで４４文字！！

[投稿情報: くまぷー]

あ、もう言われている・・・

[投稿情報: minmax]

ぷりたまさんこんばんは

日付関数については、日が最大３１なので何かあると検討しましたが
結論に至りませんでした。
さすがです。

[投稿情報: ぷりたま]

そなのσ(^◇^;)

((6-COLUMN())^2+(6-ROW())^2)　　で２８文字

(SUMSQ(6-ROW(),6-COLUMN()))　で２７文字　なんだなぁ　これが・・・

（━━┳━━　━━┳━━）しくしく

[投稿情報: きっと、みんなだ、ジョー]

（━━┳━━　━━┳━━）しくしく

よしよし・・・・・

[投稿情報: y sakuda]

えくせるバカさんのMid・・・
Mid使うと長くなるという先入観があった^^;
かずさん、minimaxさん、ぷりたまさんの3種のは全く発想の埒外でしたね。
本当に面白いですねーー^^

[投稿情報:]

>・・・全く発想の埒外でしたね。
>本当に面白いですねーー^^

みんな、らくらくで、４８って、
思いこんだ、私って、甘かった。
今回も十分、苦しんじゃいました。ぐたっ。

[投稿情報: y sakuda]

>>SumSQか全く思いつかなかった・・・
>じつは、前回の解答のコメントの最後にヒント出ていたんですよ。

三四郎の回答はちゃんと見てないということなんでしょうね・・・・
まるで頭にのこってなかった^^;

[投稿情報: sako]

気になって気になって、早々（？）と帰ってきました。

悪児さんの回答を見てきました。

> =LEFT("*",INT(SUMSQ(6-ROW(),6-COLUMN())/5)=5)

SUMSQなんて知らなかったし、探したのですが見逃しました。
VARなんてのは見たのですが・・・。

ちなみに私のExcel 46 は以下ですがスマートではないですね。

=MID("●",LEN((ROW()-6)^2+(COLUMN()-6)^2-21),1)

でも４４文字も出現ですか・・・。
やはりレベルが高いですね。
かなり酔いが回っているので解析不能です。
明日も朝６時から神社の祭りの用意でアクセスできそうにありません。

-----------------------------
このコメント問題の方にアップしていました。酔っぱらいの間違いと大目に見て下さい・・・・・・・・。
風呂上がりに、くまぷー さんの指摘で間違いに気がつきました。

[投稿情報: minmax]

質問の掲示板に行ってきました。
sakoさんも私と同じくLENを使った回答でした。
おもったとおり、同じ事を考える人はいました。

[投稿情報: ジョー3]

＞ちなみに私のExcel 46 は以下ですが＞スマートではないですね。

いえ、いえ、ばっちり、スマートです。

[投稿情報: minmax]

よく考えたらsakoさんも私と同じ新入生ではありませんか。
新入生同士同じ観点での回答でしたね。

ちなみに私は、一時退学になるかと思ったこともある新入生ですが（笑）

[投稿情報: きっちー]

エクセル関数を三四郎で使おうとしたら・・・

数値変換がアレなんで、
excel
　　LEFT("abc",2.5)　→　ab
　　DAY(1) → 1
　　DAY(2) → 2
三四郎
　　LEFT("abc",2.5)　→　abc
　　DAY(1) → 31
　　DAY(2) → 1
・・・だめだー、つかえませ～ん・・・

[投稿情報: くまぷー]

>・・・だめだー、つかえませ～ん・・・

そうなんですよ。
で、そのうち二つのソフトの同名関数の
微妙な動作の差が大きく響く問題を
出そうと思っています(^｡^)

[投稿情報: 悪児]

先ほど帰ってきました。

祝４４文字＞えくせるバカさん　(^_^)(^_^)/~

Midは、「手裏剣」の黒魔術で使ったけど、
今回は、sumsqで綺麗にできたので、
それで、やめちゃいました。(^^)ゞ

他にも、いろいろ面白いのが、
ありますね。(^_^)(^_^)/~

[投稿情報: ジョー３]

>そのうち二つのソフトの同名関数の
>微妙な動作の差が大きく響く問題を
>出そうと思っています(^｡^)
両方分かるってすごいことだ。
ロータスの方は、おられないんでしょうかね、・・・・
一応、３種の表計算を入れてありますが、
エクセル：９５％
ロータス：３％
三四郎：２％
の、さわっている％です。

[投稿情報:]

>ロータスの方は、おられないんでしょうかね、・・・・

「表計算」一筆書きですから、ロータスでの
参加もいいと思います（＾＾）

＞一応、３種の表計算を入れてありますが、

ではジョー３さんがロータス部門の
総監督ということで・・・（＾＾）

[投稿情報: ジョー３]

うぐっ・・・・
ロータス部門の・・・・・
も、もう忘れたです。・・・・

ところで、ここの、アクセスランキングは???

[投稿情報:]

>ところで、ここの、アクセスランキングは???

今のところ2位です。
明日、新しいランキングが発表されます。

http://www.justblog.jp/home/hiroba.html