１３マクロ館＋日光・自然＆フィギュアスケート 大好き！！

アシュリー・ワグナーSPバーチャルベスト(四大陸選手権に向けて）フィギュアスケートプロトコル分析

フィギュアスケートプロトコル分析topは　→　こちら 

フィギュアスケート2011グランプリシリーズ目次は　→　こちら

フィギュアスケートISU選手権目次は　→　こちら

女子有力選手プロトコル分析目次は　→　こちら

アシュリー・ワグナーSP_VB(四大陸選手権に向けて)

今季グランプリシリーズ各大会の要素毎に良いところ取りをしたバーチャルベスト(VB)。

（得点　獲得基礎点　GOE　(大会)　要素
１　8.50　 7.90　0.60 (JPN)　3F+2T+2T
２　5.10　 4.60　0.50 (JPN)　2A+2T
３　5.50　 6.00 -0.50 (CAN)　3Lz
４　3.64　 3.00　0.64 (CAN)　FSSp4
５　3.40　 2.00　1.40 (CAN)　ChSp1
６　3.70　 2.70　1.00 (CAN)　LSp4
７　7.54　 7.04　0.50 (JPN)　3Lo+2T
８　5.02　 4.62　0.40 (CAN)　3S
９　6.31　 5.61　0.70 (CAN)　3Lo
10　6.93　 5.83　1.10 (CAN)　3F
11　3.87　 3.30　0.57 (CAN)　SlSt3
12　4.00　 3.50　0.50 (CAN)　CCoSp4
計　63.51 [ 56.10　 7.41]　55.48 (CAN)　118.99　176.84
計（TES　[獲得基礎点　GOE]　PCS （大会） TSS）

　GOEマイナスはルッツだけで（エッジエラー）他はほとんど0.50以上のGOEとパーフェクトに近い演技になっている。ただ、２番目の2A+2Tは全米では2A+3Tを成功させていて、これが入ると180越えになり、２位に大きく近づく。さらに190を越えるにはPCSの大幅なアップが必要だろう。

四大陸選手権出場予定選手11-12FSシーズンベスト
１．125.77 (JPN) Mao ASADA
２．110.98 (USA) Ashley WAGNER
３．105.54 (JPN) Kanako MURAKAMI
４．100.47 (CHN) Kexin ZHANG
５． 99.56 (JPN) Haruka IMAI
６． 97.85 (CAN) Amelie LACOSTE
７． 95.57 (USA) Agnes ZAWADZKI
８． 92.00 (CAN) Cynthia PHANEUF
９． 89.48 (CHN) Bingwa GENG
10． 85.65 (USA) Caroline ZHANG
11． 73.29 (CHN) Qiuying ZHU

四大陸選手権出場予定選手11-12総合シーズンベスト
１．184.19 (JPN) Mao ASADA
２．165.65 (USA) Ashley WAGNER
３．161.31 (JPN) Kanako MURAKAMI
４．154.76 (JPN) Haruka IMAI
５．153.32 (CHN) Kexin ZHANG
６．149.38 (USA) Agnes ZAWADZKI
７．148.48 (CAN) Amelie LACOSTE
８．142.09 (CHN) Bingwa GENG
９．140.70 (CAN) Cynthia PHANEUF
９．140.70 (USA) Caroline ZHANG
11．108.57 (CHN) Qiuying ZHU

小塚崇彦SPバーチャルベスト(全日本選手権に向けて）フィギュアスケートプロトコル分析

 フィギュアスケートプロトコル分析topは　→　こちら 

フィギュアスケート2011グランプリシリーズ目次は　→　こちら

全日本フィギュアスケート選手権目次は　→　こちら

小塚崇彦SP_VB(全日本選手権に向けて)

今季グランプリシリーズ各大会の要素毎に良いところ取りをしたバーチャルベスト(VB)。

（得点　獲得基礎点　GOE　(大会)　要素
１　5.30　 5.30　0.00 (JPN)　3F
２　9.07　 8.50　0.57 (JPN)　3A
３　3.93　 3.00　0.93 (JPN)　FSSp4
４ 10.90　10.10　0.80 (JPN)　3Lz+3T
５　3.27　 3.20　0.07 (USA)　CCSp4
６　4.09　 3.30　0.79 (JPN)　SlSt3
７　4.36　 3.50　0.86 (JPN)　CCoSp4
計　40.92 [ 36.90　 4.02]　38.89 (JPN)　79.81
計（TES　[獲得基礎点　GOE]　PCS （大会） TSS）

アメリカ大会では4Tに挑戦しているが、失敗してNHK杯の3Fより低得点。成功すれば基礎点だけで、10.30なので、+5.00。84.81になりパーソナルベストを越える。優勝するにはやはり4Tが必要だろう。もちろん４回転をクリーンに決めればさらにGOE+2.00が見込めるし、日本選手権ということでPCSの上昇も期待できるので、90点越えも視野に入ってくる。

2011西日本フィギュアスケートジュニア選手権大会女子エントリー＆10-12悪児式レイティング

 フィギュアスケートプロトコル分析topは　→　こちら 

 フィギュアスケート2011グランプリシリーズ目次は　→　こちら

2011フィギュアスケート国内大会目次は　→　こちら

2011西日本ジュニア選手権大会女子エントリー＆10-12悪児式レイティング

　優勝争いは大激戦。知子ちゃん、雅ちゃん、佳子ちゃん、未生ちゃん、亮子ちゃんの５名の誰が優勝してもおかしくない。
　予選通過はシード２名（雅ちゃん、佳子ちゃん）を除いて12名。シードの２人は10位以内はほぼ確実なので、14位まで。130以上のハイレベルな争いを期待したい。伸び盛りのジュニアのこと、力を出し切れればベストスコアより20以上高い得点を出すことも十分可能で、出場選手ほぼ全員に予選通過の可能性がありそう。

10-12悪児式レイティング(10-12ベスト/10-12ベスト4平均(回数)/10-12全平均(回数))
１．153.64 (１．162.20 / ２．145.08(4) / １．145.08( 4)) 宮原知子
２．148.20 (２．150.47 / １．145.92(4) / ２．137.47( 8)) 大庭雅
３．144.84 (３．147.28 / ３．142.41(4) / ３．136.95( 9)) 友滝佳子
４．139.32 (５．141.52 / ４．137.13(4) / ４．131.30( 6)) 佐藤未生
５．136.27 (６．137.98 / ５．134.57(4) / ５．130.62( 6)) 藤沢亮子
６．133.69 (７．136.75 / ６．130.63(4) / ８．126.23( 6)) 上野沙耶
７．132.77 (４．142.49 / 12．123.05(4) / 11．123.05( 4)) 本郷理華
８．132.51 (８．136.21 / ７．128.82(4) / ９．124.57( 5)) 安原綾菜
９．131.13 (９．135.93 / ９．126.32(4) / ７．126.32( 4)) 森衣吹
10．129.43 (11．131.61 / ８．127.25(2) / ６．127.25( 2)) 新田谷凛
11．128.63 (10．132.16 / 10．125.09(4) / 12．122.33( 5)) 中塩美悠
12．125.83 (14．127.81 / 11．123.84(4) / 10．123.84( 4)) 鈴木沙耶
13．125.67 (12．131.40 / 14．119.93(3) / 14．119.93( 3)) 酒井春香
14．123.72 (13．128.28 / 16．119.17(2) / 16．119.17( 2)) 磯邉ひな乃
15．122.83 (15．125.17 / 13．120.48(3) / 13．120.48( 3)) 加藤利緒菜
16．121.96 (16．124.58 / 15．119.34(2) / 15．119.34( 2)) 片桐明里
17．118.72 (17．123.64 / 21．113.79(3) / 21．113.79( 3)) 寺尾麻菜
18．118.30 (18．122.05 / 20．114.54(3) / 20．114.54( 3)) 空川亜彩妃
19．116.12 (20．116.12 / 17．116.12(1) / 17．116.12( 1)) 髙木優衣
20．116.01 (21．116.01 / 18．116.01(1) / 18．116.01( 1)) 渡辺里依
21．114.92 (19．119.80 / 24．110.04(4) / 24．110.04( 4)) 山田さくら
22．114.73 (23．114.73 / 19．114.73(1) / 19．114.73( 1)) 津内胡菜
23．112.82 (25．112.82 / 22．112.82(1) / 22．112.82( 1)) 小槙香穂
24．112.37 (24．114.66 / 23．110.07(2) / 23．110.07( 2)) 渡辺真央
25．111.40 (22．116.00 / 25．106.80(3) / 25．106.80( 3)) 岡本万柚子
26．108.80 (26．111.27 / 27．106.32(2) / 27．106.32( 2)) 春田沙樹
27．106.93 (27．108.46 / 28．105.41(2) / 28．105.41( 2)) 藤原未幸
28．106.33 (28．106.33 / 26．106.33(1) / 26．106.33( 1)) 川上紗季
29．104.39 (30．104.39 / 29．104.39(1) / 29．104.39( 1)) 山口朋子
30．103.21 (29．105.06 / 30．101.36(2) / 30．101.36( 2)) 岩田さほ
31．102.05 (31．104.04 / 31．100.06(2) / 31．100.06( 2)) 小山渚紗
32．100.51 (32．102.93 / 32． 98.09(2) / 32． 98.09( 2)) 牧田沙也加

世界フィギュアスケート選手権中止(延期？)の意味

世界フィギュアスケート選手権中止(延期？)の意味

　ISU（国際スケート連盟）は３／２１から東京で開催される予定だった世界フィギュアスケート選手権の中止を決定した。そのステートメントの冒頭は、

「Taking into account the continued critical developments in Japan,」
「日本において継続している危機の進行を考慮して、」

となっている。
「継続中の危機の進行」
もちろん、原発のことだ。
それが参加者、観客、関係者の安全を脅かしているので中止せざるを得ないという結論になっている。

それ（世界フィギュア中止決定）以前に諸外国では日本への渡航を回避するよう勧告しているし、在日米軍も支援のため派遣した空母を原発から離れた位置まで後退させている。福島原発がチェルノブイリのような大惨事を引き起こす可能性をゼロとは見ていないのだ。

（言い換えれば、福島原発問題が解決すれば世界フィギュアの延期開催も見えてくるだろう）

ところが、日本のスケ連の発表では、他の点（余震や電力不足による会場維持の困難性）に埋没させて（「また福島第一原子力発電所の状況が思わしくなく」とのみ指摘して）明示していない。政府の意向を受けたものかどうかはわからないが、福島原発の危険性を軽視しようとしていることは確かだ。

もちろん、今、東電をはじめとして関係者は全力を挙げて大惨事を回避すべく努力しているはずだ。破局に至る可能性はきわめて低いと信じたい。また、日本への渡航を避ければよい諸外国と違って日本人は簡単には逃げ出せないのだから必要以上に危機感をあおり立てたくないという政府の意向も理解できる。しかし、大惨事の可能性ゼロではないだろう。とすれば、その可能性が本当に現時点でどれくらいなのか、今後どういう状況になればどの程度可能性が増大し、また減少するのか、詳細に説明するべきだろう。そして、どの時点でどういう対策をとるのかもはっきりと表明するべきだろう。さらに、現在行っている作業とその結果、その成否、その理由、これらももっと国民みんなに分かるように説明するべきだ。

計画停電でもミスを重ねているように、東電は非常に危機的な立場にある。ただ、東電も地震の被害者なのだ。そのことは忘れてはならない。一方的に東電を非難しても何も始まらない。

政府は速やかに東電、および大口電力消費者との協議で「計画停電」をせずにすむよう、各事業者の事業計画を調整するべきだ。自動車会社は軒並み操業停止しているし、他にも一時停止に応じる事業は非常に多いだろう。東電の最後の切り札というべき計画停電だが、鉄道や交通信号が止まるというような計画停電はとても容認できない。東電に最後の切り札を切らせてしまう政府の無能無策を露呈するだけだ。

１から１００まで_その３（悪児解答）

４を４つで、１－１００　悪児の解答です。

       1 =4/4*4/4
       2 =4/4+4/4
       3 =(4+4+4)/4
       4 =(4-4)*4+4
       5 =(4*4+4)/4
       6 =4+(4+4)/4
       7 =4+4-4/4
       8 =4+4+4-4
       9 =4+4+4/4
      10 =((4 & 4)-4)/4
      11 =4+4+4-SIGN(4)
      12 =4+4+4+MINUTE(4)
      13 =4+4+4+SIGN(4)
      14 =4+4+4+SQRT(4)
      15 =4*4-4/4
      16 =4*4+4-4
      17 =4*4+4/4
      18 =4*4+4-SQRT(4)
      19 =4*4+4-SIGN(4)
      20 =4*4+4-MINUTE(4)
      21 =4*4+4+SIGN(4)
      22 =4*4+4+SQRT(4)
      23 =FACT(4)-4^(4-4)
      24 =FACT(4)+4*(4-4)
      25 =FACT(4)+4^(4-4)
      26 =FACT(4)+(4+4)/4
      27 =FACT(4)+4-4/4
      28 =FACT(4)+4-4+4
      29 =FACT(4)+4+4/4
      30 =(4+4)*4-SQRT(4)
      31 =(4+4)*4-SIGN(4)
      32 =(4+4)*4-MINUTE(4)
      33 =(4+4)*4+SIGN(4)
      34 =(4+4)*4+SQRT(4)
      35 =FACT(4)+(4 & 4)/4
      36 =(4+4)*4+4
      37 =(4+4)*4+ODD(4)
      38 =(4 & 4)-4-SQRT(4)
      39 =(4 & 4)-4-SIGN(4)
      40 =(4 & 4)-4-MINUTE(4)
      41 =(4 & 4)-4+SIGN(4)
      42 =(4 & 4)-4+SQRT(4)
      43 =(4 & 4)-4/4
      44 =(4 & 4)+4-4
      45 =(4 & 4)+4/4
      46 =(4 & 4)+4-SQRT(4)
      47 =(4 & 4)+4-SIGN(4)
      48 =(4 & 4)+4-MINUTE(4)
      49 =(4 & 4)+4+SIGN(4)
      50 =(4 & 4)+4+SQRT(4)
      51 =(4 & 4)+WEEKDAY(4-4)
      52 =(4 & 4)+4+4
      53 =(4 & 4)+4+ODD(4)
      54 =(ODD(4) & 4)+4-4
      55 =(ODD(4) & 4)+4/4
      56 =(4+4)*4+FACT(4)
      57 =MINUTE(4%+4+4+4)
      58 =MINUTE(4%+4)+4/4
      59 =4^4/4-ODD(4)
      60 =4^4/4-4
      61 =MINUTE(4%+4+4)+4
      62 =4^4/4-SQRT(4)
      63 =4^4/4-SIGN(4)
      64 =4^4/4+MINUTE(4)
      65 =4^4/4+SIGN(4)
      66 =4^4/4+SQRT(4)
      67 =HOUR(4-4%)+(4 & 4)
      68 =4^4/4+4
      69 =4^4/4+ODD(4)
      70 =MINUTE((4^4)%)+(4 & 4)
      71 =MINUTE(4%+4%)+4*4
      72 =FACT(4)*(4-4/4)
      73 =MINUTE(4%+4)+4*4
      74 =(4&4)+4/AVERAGEA(4,,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
      75 =(4+4*4)/AVERAGEA(4,,,,,,,,,,,,,,)
      76 =SUMSQ(4,4+4)-4
      77 =MINUTE(4%)+4*4+4
      78 =(4+4+4)/AVERAGEA(4,,,,,,,,,,,,,,,,,,,,,,,,,)
      79 =(4+4 & 4)-ODD(4)
      80 =(4+4 & 4)-4
      81 =--(4+4 & 4/4)
      82 =(4+4 & 4)-SQRT(4)
      83 =(4+4 & 4)-SIGN(4)
      84 =(4+4 & 4)+MINUTE(4)
      85 =(4+4 & 4)+SIGN(4)
      86 =(4+4 & 4)+SQRT(4)
      87 =(4+4+4)/AVERAGEA(4,,,,,,,,,,,,,,,,,,,,,,,,,,,,)
      88 =(4+4 & 4)+4
      89 =(4+4 & 4)+ODD(4)
      90 =(ODD(4)+4 & 4)-4
      91 =--(ODD(4+4) & 4/4)
      92 =CODE(4-4)+(4 & 4)
      93 =CODE(4/4)+(4 & 4)
      94 =MINUTE(4%*4)+(4 & 4)
      95 =FACT(4)*4-4/4
      96 =FACT(4)*4*4/4
      97 =FACT(4)*4+4/4
      98 =(ODD(4)+4 & 4)+4
      99 =MINUTE(4%+4%)+(4 & 4)
     100 =(4+4 & 4)+SUMSQ(4)

あとで、もっと簡単なものに気付いたのもありますが、ほとんど最初に見つけたものにしてあります。ほとんど、というのは、例えば、

92=(4+4 & 4)+factdouble(4)

などというのがあって、これは、factdouble()を使えるようにしておかないとエラーになるので、差し替えました。三四郎では普通にできるので、最初は多用したのですが・・・(^^)ゞ

１から１００まで_その２

どうしても最後までできなかったのは、93

実は、三四郎ではできるのだけれどExcelでは、エラーになってしまう。
でも、他のメンバーからの

>９１、９３はあることに気が付くとバカみたいに簡単

という発言を頼りに「あること」に気付きました。
悪児の気がついた「あること」と、他のメンバーの「あること」が同じかどうかはまだ分かりませんが、これは、できないんじゃないか？　という疑心暗鬼にかられているのと、解答はある、と分かっているのでは、大違いですね。(^^)(^^)

で、昨晩未明(21日12:15)に93ができたのですが、めでたく、トップゴール。＼(^o^)／

久し振りに、好い気分です。(^_^)(^_^)/~

１から１００まで

久し振りに、くまぷーさんのところで、遊んでいる。

問題
　４を４つ使って、１から百までの数字を答えとする数式を作る。
　使えるのは、４を４つ（必ず４つ使わなくてはならない）とExcelの演算子、そして関数だが、関数は、１つの式に１つだけしか使えない。また４以外の数字や文字は使えない。

例えば、
1=(4+4)/(4+4)
2=4/4+4/4
という具合だ。

昨日の昼過ぎに見つけて、暇を見て作っていたら、９９個できた。でも９０台の１つだけがどうにもできない。締め切りは２２日夜８時だが、明日明後日は、忙しくてとてもできそうにない。今日も・・・他にやることが一杯あるなぁ・・・・(^^)ゞ

「カリフォルニア・ポピー」悪児解答

黒魔術です。(^^)ゞ

　

三四郎55
=Mid("** *",(Rows(A1:A$6)+3)*(Cols(A1:$F1)+3) MOD 13,1)
Excel55
=MID("** *",MOD((ROWS(1:$6)+3)*(COLUMNS(A:$F)+3),13),1)

「皇帝」への道

三角関数版　三四郎50への道

はじめは、

=If(Atan2(6-Row(A1),6-Col(A1)) MOD (Pi()/2)<=Pi()/4,"*")

で行くかな、と思ったんです。
一周２πですから、９０°（π／２）ごとに区切って、
そのさらに半分の４５°（π／４）以下を選択すれば･･･

ところが、やってみると、負の部分は上手くいかない。

三四郎のmodは、負数だと、負数が返るんですね。
Excelは負数でも正数が返るので、中央のエラーを除けば

=LEFT("*",(MOD(ATAN2(ROW()-6,COLUMN()-6),PI()/2)<=PI()/4))

で、できてしまいます。

そこで、負数を正数にするべく、あらかじめ全体にπを足すようにしました。

=If((Atan2(6-Row(M4),6-Col(M4))+Pi()) MOD (Pi()/2)<=Pi()/4,"*")

これが、初期作(63文字)で、この時点で、
95未満達成＆最短予測52文字をアップしました。
あとは減量です。PI()を使うと長いので、近似値で誤魔化す。
その結果、55文字になりました。

=If((Atan2(6-Row(A1),6-Col(A1))+Pi()) MOD 1.57<0.8,"*")

さらなる減量のターゲットは、Pi()と0.8です。
どちらも整数にできれば、５文字減らせます。
ここで、MOD 1.57後の数値を見ると、
空白部分の最小値が0.90、＊部分の最大値が0.79
ということは、0.1以上0.2以下の数を全体に足すと
0.8を1にすることができる。
そこで、πを約0.16プラスの3.3にして、

=If((Atan2(6-Row(A1),6-Col(A1))+3.3) MOD 1.57<1,"*")

52文字到達。ここで、さらに、3.3を整数にするべく、
1.57の整数倍を表示させて、1.57×５＝7.85より、8を発見して、
最終形(50文字)

=If((Atan2(6-Row(A1),6-Col(A1))+8) MOD 1.57<1,"*")

ができました。

sinは、その時点までは、考えていませんでした。
家に帰って覗いてみると、もう、ネタばれ状態で・・・

「皇帝」悪児解答

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　問題はこちら

今回は、３つ。

自慢は、三四郎＆Excel69
でも、同じ発想の方居そうですね。(^_^)(^_^)/~

三角関数使用

三四郎50
=If((Atan2(6-Row(A1),6-Col(A1))+8) MOD 1.57<1,"*")
Excel56
=LEFT("*",((MOD(ATAN2(6-ROW(),6.1-COLUMN())+8,1.57)))<1

非三角関数

三四郎81
=If((Max((Row(A1)-6)/(Col(A1)-6.1),(Col(A1)-6)/(6.1-Row(A1)))*10+7) DIV 8=1,,"*")
Excel84
=IF(INT((MAX((ROW()-6)/(COLUMN()-6.1),(COLUMN()-6)/(6.1-ROW()))+0.8)/0.81)=1,"","*")

三四郎69
=If((Rows(A1:A$6)/Cols(A1:$F1))^Sign((Row(A1)-6)*(Col(A1)-6))>=1,"*")
Excel69
=LEFT("*",(ROWS(1:$6)/COLUMNS(A:$F))^SIGN((ROW()-6)*(COLUMN()-6))>=1)

三四郎とExcelが同じ文字数になるのも、珍しい。(^^)(^^)

「中」への道05

　何度も考えたこと、Col()の引数に、A0とか、A-1とかが使えたら・・・。何度目かにまた同じことを考えたところで、気づきました。マイナスでも良いんだ。ということは、MODが省略できるので、大幅に減らせるはず・・・。Ｆ列を0にするのだから、Col(A1)-6でＯＫ。やってみると・・・

=If((2^(3-Rows(A1:A$6))-1)*(Col(A1)-6) MOD 5,,"*")

　見事、一気に５文字減で、三四郎50の完成。＼(^O^)／
  しかしまた電車が停止。今度は、現場検証だそうです。三鷹駅で止まったまま動きません。とりあえず、三四郎50になったので、一筆書きは一旦終わりにして、仕事を始めました。電車がとまると、いつもならＪＲ東日本の対応に腹が立ってしかたがないのだけど（なんで、三鷹折り返しで運転しないの？とか）、今日に限っては、お陰で、三四郎50ができたので、腹立ちも中くらい。(^^)ﾍﾞ　結局、１時間弱遅刻。約束には間に合った。しかし、土曜は、インターネットへの接続がままならない。とりあえず、三四郎50宣言をアップ。話しが終わって、ちょっとだけ暇ができた。７時２０分になったら、もう仕事以外何もできない。さて、50を切れるか・・・。
　ＲとＣどっちが縮められるか。Ｒはもう無理そう（実は無理じゃなく、きっしーさんはちゃんと縮めていたのだった）。Ｃにターゲットを絞る。また、F1にCol(A0)が入れば･･･。が頭に浮かぶ。浮かぶ。浮かぶ。ちょっと待てよ・・・待てよ・・・。0じゃなくても、分母を消せれば・・・。１行目の分母は、2^(-3)=1/8。ということは、Ｆ列を40にすると、Ａ列は35、Ｋ列は45、できるジャン。＼(^O^)／ 35ということは、35-26=9で、アルファベットの9番目は、abcdefghiで、「i」。ということは、引数をAI1にすればＯＫ。(^^)(^^)

=If(Fp((2^(3-Rows(A1:A$6))-1)*Col(AI1)/5),,"*")

　できた、三四郎47だ。やったぁ～～＼(^O^)／

－－－－－－－－－－－－－－－－－－－－－－－－－－

≪「中」への道04≫

「中」への道04

　電車はなかなか動きません。悪児の頭もなかなか動かず、進展しません。「救出作業は終わったが、車両に異常があるようで、現在点検中。さらに時間がかかる」というアナウンス。定刻から１時間半後に、人と会う約束があるので、それまでには行かなくてはならないのですが、車両故障まで発生したとなると・・・。それ以上遅れる可能性が出たかな、と思いましたが、もう腹をくくったのです。そのまま、一筆書きを考え続けました。と、そうか、2.5でも良いんだ、と思いつきました。2.5でも整数までなら、５で割るとあまりがでるんだ。早速、5^()の5を2に代えてみました。
　
=If(2^(2-Abs(Row(A1)-6))*(Col(E1) MOD 10) MOD 5,,"*")

　これで、１＆１１列はＯＫです。あとは、４行目と８行目を0にする。
  こっちは、直ぐに思いつきました。０乗して１になっているので、それから、１を引けばよい。他の行は、１を引いても、整数は整数、小数は小数のままだから、影響ない。そう思ってやってみると、

=If((2^(2-Abs(Row(A1)-6))-1)*(Col(E1) MOD 10) MOD 5,,"*")

　できました。できました。(^^)(^^)　三四郎57文字。
　まだ、57文字ですが、いかにも無駄が多そうな式で、まだまだ削れそうです。電車はまだ動きません。ということは、まだまだ時間があります。まずは、Ｒの方。これは、いつものパターンで、Abs()を使うのであれば、Rows()を使った方が、短くなることが多い。早速書き換えです。

=If((2^(3-Rows(A1:A$6))-1)*(Col(E1) MOD 10) MOD 5,,"*")

　三四郎55。２文字短縮です。次は、Ｃの方。現在は、A1セルのColの引数に「E1」を入れ、それを10で割った余りを求めることによって、Ａ列Ｋ列は５、Ｆ列は０が返るようになっています。考えているうちに、やっと電車が動き始めました。これで、最低約束の時間には間に合いそうです。しかし、着くまでにあと５文字、何とか、縮めたい・・・

－－－－－－－－－－－－－－－－－－－－－－－－－－

≪「中」への道03≫　　　　　　≪「中」への道05≫　　　　　　

「中」への道03

　一段階での解法ですが、もちろん、出かける前にも少し考えていました。まずやってみたのは、mid()と黒魔術による方法。

=Mid("* *",(((6-Row(A1))^4-16)*(Cols(A1:$F6)-1)+200) DIV 65,1)

　できたことはできたのですが、62文字。
　まだまだ削れそうですがそれでも、50字にはとても届きそうにない。
　あとは、やはり、５の倍数化しかないか・・・そう思いながら家を出たのでした。
　電車に座って、ＰＣを取り出し開きながら考えました。まず、Ｃ方向の４行目と８行目および、Ｒ方向の６列目を０にする、これは間違いない。すると、１列目と１１列目は５の倍数になり、他は５の倍数ではなくなるので、あとは四隅の１２点を何とか５の倍数ではなくすればよい・・・、そう整理したところで、閃きました。１－３（９－１１）行の分母に５を入れてやれば良い・・・。早速作ってみました。

=If(5^(2-Abs(Row(A1)-6))*(Col(E1) MOD 10) MOD 5,,"*")

　しかし、結果は・・・。
　Ａ．５^0は0ではなく1になるので、４行目８行目が"*"にならない。
　Ｂ．内側の行は、５の倍数になってしまうので、すべて"*"になってしまう。

　ダメか、と思ったところで、乗り換えでした。
　乗り換えたのは中央快速線。座れたので、ＰＣを取り出しました。しかし、なかなか電車が動かない。変だ、と思ったところで、アナウンスがありました。「人身事故のため、運転を見合わせます。現在、救出中。運転再開の見込みは立ってません」今日はいつもよりも家を出るのが遅れて（もちろん一筆書きのせい）、結構ぎりぎりです。他に迂回路もないので、遅刻はもう確実。ただ、緩行線に乗り換えて、三鷹まで行っていれば少しは早く着けるんだけど、それをやると、ずっと立ち通しになる可能性が大。座っていれば、仕事もできるし、「一筆書き」もできる(^^)(^^)。ということで、腹を据えて、そのまま座っていることにしました。もちろん、仕事より、一筆書き優先。(^^;(^^;)

－－－－－－－－－－－－－－－－－－－－－－－－－－

≪「中」への道02≫　　　　　　≪「中」への道04≫

「中」への道02

　「中級？初級？」であって、「初級？中級？」ではないのには、理由が２つありました。
  １つは、問題が「中」だから、「中」で始めた。
　もう１つは、一見中級、でも、ホントは（長方形が書ければ）初級では？ということ。
　つまり、「長方形を見つけて５６文字」が最終解答だから、それなら、結構簡単に解けるのでは、と思っていたのです。従って、金曜昼の時点で、01の文を書くと共に、もうひとつ、こんなことを画策していたのでした。(^^)ゞ
　「明日昼辺り、発展問題を追加したいと思っていますが、如何でしょう？」
　出題した「中」より難しい関連問題を土曜昼に日曜２０時までの発展問題として追加出題しようと考え、それをくまぷーさんに提案していたのです。
　この日はその後出勤し、２３時過ぎ帰宅するまでインターネットには接続しませんでした。で、帰宅してパソコンを立ち上げると・・・。
　くまぷーさんから、三四郎５５文字。minmaxさんから、四捨五入で５０文字、という宣言が上がっていたのです。びっくりしました。まさか、５６文字が破られるとは・・・。もちろん、発展問題は、中止。出題者悪児は失脚して、解答者悪児の出番です。とはいえ週末は忙しい。それに、あれだけ時間があって、もうこれ以上はできない、と判断したのに・・・。結局、金曜は、寝る前、しばらく５６文字の減量を中心に考えましたが、むろん、進展のないままでした。
　そして翌朝、さらに衝撃的な宣言が・・・(^^;)(^^;)
　minmaxさんから、Excel、三四郎５０文字の宣言。そして、きっちーさんからも、三四郎５０文字の宣言です。５５や、５４位なら、二段階でも、と思っていましたが、５０文字となると、もう、一段階に違いない。根本的に考え直さなくてはならない、ということです。しかし、土曜はずっと仕事。インターネットを覗くこと自体がほとんどできない、果たして間に合うか・・・。そう思いながら、「出題者悪児の解答」をくまぷーさんにメールで送ってから、家を出ました。（続く）

－－－－－－－－－－－－－－－－－－－－－－－－－－

≪「中」への道01≫　　　　　　≪「中」への道03≫

「中」への道01

　「田」に触発されて思いついた「中」ですが、思いついた当初は、当然、「田」より断然難しそうに思えました。
　縦３本と横２本を書くのは簡単ですが、その縦３本のうち、両側の２本だけ、上下をカットして、真ん中はそのまま残す。それが難しそうに思えたわけです。
　まず浮かんだのが、「円」でした。消さねばならない四隅の「A1:A3」は、すべて、F6を中心としてA4を通る円の外側にあり、表示しなければならない「中」は円の内側にありますから、縦３本横２本を書いて、円の外側を消すというものでした。

三四郎69
=If(Fp(Row(A1)/4)*Fp(Col(E1)/5)+(SumSq(6-Row(A1),6-Col(A1))>30),,"*")
Excel75
=IF(MOD(ROW(),4)*(MOD(COLUMN(E1),5))+(SUMSQ(6-ROW(),6-COLUMN())>30),"","*")

　もちろん、思いついた当時はまだSUMSQを見つけていませんでしたから、もっと文字数は多かったのですが。(^^)ﾍﾞ

　しかし、その後直ぐに、思いつきました。正方形が書けるなら、長方形も書けるだろう、ということです。「中」の長方形部分は、縦棒がF6から5の距離。横棒がF6から2の距離ですから、横棒の方の距離を2.5倍してやれば、F6から5の距離の正方形と同じように描くことができます。それが、これですね。

三四郎
=If(Max(Abs((6-Row(A1))*2.5),Abs(6-Col(A1)))=5,"*")
Excel
=IF(MAX(ABS((6-ROW())*2.5),ABS(6-COLUMN()))=5,"*","")

　というわけで、「長方形を書く」というのがこの問題のテーマになりました。真ん中の縦棒は、「おまけ」というか、むしろ「長方形」を隠すための「フェイント」みたいなものになりました。これまで含めて１段階で書ければもっと文字数を減らせると思いますが、それはちょっと無理なようです。で、あとは無駄を省いて、

三四郎56
=If(Max(Rows(A1:A$6)*2,Cols(A1:$F1))=6 OR Col(A1)=6,"*")
Excel59
'=LEFT("*",(MAX(ROWS(1:$6)*2,COLUMNS(A:$F))=6)+(COLUMN()=6))
=LEFT("*",OR(MAX(ROWS(1:$6)*2,COLUMNS(A:$F))=6,COLUMN()=6))

になりました。

－－－－－－－－－－－－－－－－－－－－－

と、以上の文を書いたのは、９日（金）のお昼過ぎでした。
その時点では、三四郎は悪児の５６文字（きっちーさんも５６文字）、
Excelは悪児とminmaxさんの５９文字が最短でした。

ところが、その後、思いもかけなかった展開に・・・（続く）

－－－－－－－－－－－－－－－－－－－－－－－－－－

　　　　　　　　　　　　≪「中」への道02≫

「女王陛下の旗」への道

表計算一筆書き、「女王陛下への道」

http://kumapooh.justblog.jp/blog/2007/11/post_39db.html#comment-2456489

を見て、最初に思いついたのは、中心を起点として考えると、十字部分は、ＲＣどちらかが、0。バッテン部分は、ＲＣの絶対値が同じ。ということ。

つまり、ＲＣの積が十字部分が0で、バッテン部分が平方数になる。ということは、0も平方数だから、何だ、簡単じゃん、ということで、作ったのが、

=If(Fp(Sqrt(Abs((6-Row(A1))*(6-Col(A1))))),,"*")

同じようなものを作った方、多かったでしょうね。(^^)(^^)

ところが、これだと、E2など、中心から、(1,4)の位置にある、余計な８点も「*」になってしまう・・・。

ここで、一旦止まっちゃいました。
余計な８点を削除する方法が見つからない・・・
しばらく、他の方法で、三四郎57を作って、これで終わりかなぁ、などと思っていました。

しかし、そこで、閃きました。(^^)(^^)
バッテン部分は、ＲＣ同じだから、ＲＣＣにしても、ＲＲＣにしても、Ｒ（Ｃ）の３乗になる。

十字部分は、ＲＣＣにしても、ＲＲＣにしても、0、つまり、0の３乗になる。
一方、お邪魔虫部分(E2等)は、ＲＣＣにしても、ＲＲＣにしても、Ｒ（Ｃ）の３乗にはならない。
これで、できた＼(^o^)／　という感じでした。
作ったのは、三四郎50

=If(Fp(Abs((6-Row(A1))*(6-Col(A1))^2)^(1/3)),,"*")

あとは、減量です。負数の平方根はエラーになりますから、absを付けましたが、負数の立方根は存在するので、absは外せる　(^^)(^^)、そう思って作った

=If(Fp(((6-Row(A1))*(6-Col(A1))^2)^(1/3)),,"*")

は、しかし、なぜかエラーになってしまうのです。(-_-;)(-_-;)
調べてみると、三四郎では、負数の立方根を求めると、エラーになっちゃうんですね。(-_-;)(-_-;)　Excelでは、もちろんＯＫですから、これはバグでしょう・・・(;_;)(;_;)

で、縮められたのは、absを^2にすることで1文字だけ。

=If(Fp(((6-Row(A1))*(6-Col(A1))^2)^2^(1/3)),,"*")

このよけいな、「^2」を除けばとても綺麗な式で、数値も試行錯誤の必要がないもので、非常に気に入り、これで満足してしまいました。

しかし、答え合わせ後、minmaxさんの手法を頂くと、さらに2文字減らせることが分かりました。

=If(Fp(((6-Row(A1))^4*(6-Col(A1))^6)^0.1),,"*")
=If(Fp(((6-Row(A1))*(6-Col(A1))^4)^2^0.2),,"*")

特に後者は、負数の立方根が求められるのであれば（三四郎のバグがなければ）、45文字になって、きっちーさんの三角関数46文字を抜けたので、ますます、三四郎のバグが情けない・・・(^^;)(^^;)

この、三四郎49ができて、もう、縮められないと判断して、着手したのが、三角関数版です。
くまぷーさんから、変化球宣言が出ていましたが、Excelはできたけど、三四郎は短くならない、というコメントが出たので、くまぷーさんは、三角関数じゃないだろうな、と思いましたが、きっちーさんは、
多分三角関数だろう、と思いました。
そこで、今回初めて、三角関数に挑戦しました。Atan2の存在を知らなかったので、AtanやAngleで、中心がエラーになるのに悩みましたが、Atan2を見つけてからは、結構簡単でした。できたのは、

=If(Len(Atan2(Row(A1)-6,Col(A1)-6)/Pi())<6,"*")

など、三四郎47三種類。
エンジン部分は同じで、その記号化の手法が違いますが、三四郎の場合、文字数は変わらないことがほとんどのようですね。

その後、きっちーさんの三四郎46宣言を受けて、sinやcosも試したのですが、0<>0が5=5になる、というのには、全く気付かず、完敗でした。(^^)ゞ

でも、悪児的には、三四郎49

=If(Fp(((6-Row(A1))*(6-Col(A1))^2)^2^(1/3)),,"*")

が、今でも、一番気に入っています。(^^)(^^)

「女王陛下の旗」悪児解答

１．今回の自慢解答。(^^)ゞ
　基本の「お決まり」の関数のみ。

三四郎49
=If(Fp(((6-Row(A1))*(6-Col(A1))^2)^2^(1/3)),,"*")
Excel 50
=LEFT("*",LEN(((6-ROW())*(6-COLUMN())^2)^(1/3))<3)
=MID("**",LEN(((6-ROW())*(6-COLUMN())^2)^(1/3)),1)

２．悪児最短
　３種類あるけど、みんな、長さも、基本も同じ。(^^;)(^^;)

三四郎47
=If(Atan2(Row(A1)-6,Col(A1)-6)*4 MOD Pi(),,"*")
=If(Fp(Atan2(Row(A1)-6,Col(A1)-6)*4/Pi()),,"*")
=If(Len(Atan2(Row(A1)-6,Col(A1)-6)/Pi())<6,"*")

　Excelでは、エラーになってしまう・・・(-_-;)(-_-;)
　（まぁ、三四郎47がExcelでは、48に当たることの証明、ということで）
Excel48（ちょいズル）
=LEFT("#",LEN(ATAN2(ROW()-6,COLUMN()-6)/PI())<6)

３．最初の60切り

三四郎56
=If(Fp((Abs(Rows(A1:A$6)^2-Cols(A1:$F1)^2)+1)^0.5),,"*")
Excel58
=MID("*",LEN(SQRT(ABS(ROWS(1:$6)^2-COLUMNS(A:$F)^2)+1)),1)

４．基本的な方法
三四郎60
=If((Row(A1)=6)+(Col(A1)=6)+(Rows(A1:A$6)=Cols(A1:$F1)),"*")
Excel60
=LEFT("*",(ROW()=6)+(COLUMN()=6)+(ROWS(1:$6)=COLUMNS(A:$F)))

「星のまたたき」悪児解答

表計算一筆書き「星のまたたき」

http://kumapooh.justblog.jp/blog/2007/10/post_f659.html

悪児解答

三四郎ズル３つ＆Excelズル無し＆お遊び

（ろくなものないです。(^^;)(^^;)）

三四郎

１．循環＆カスタマイズ

=If($F$6=1,--(SumSq(Row(A1)-6,Col(A1)-6) DIV 5=5),--(Rows(A1:A$6)+Cols(A1:$F6)<=5))

（ズル：F6の表示形式を　[E;=1]"";[E;=0]"*"　にカスタマイズ）

２．循環＆作業セル

=If(If($L$1,SumSq(Row(A1)-6,Col(A1)-6) DIV 5=5,Rows(A1:A$6)+Cols(A1:$F6)<=5),"*")

（ズル：L1に　=L2 MOD 2　L2に　=L1+1）

３．Now利用：必ず変わるわけではない

=If(If(IsOdd(Second(Now())),SumSq(Row(A1)-6,Col(A1)-6) DIV 5=5,Rows(A1:A$6)+Cols(A1:$F6)<=5),"*")

Excel

１．ズル無し（循環小数）

=IF(IF($H$11="",INT(SUMSQ(ROW()-6,COLUMN()-6)/5)=5,ROWS(A1:A$6)+COLUMNS(A1:$F6)<=5),IF(INT(RAND()*2),"★","☆"),"")

２．お遊び（F9を押し続けると、瞬きます：Now利用：形不正確）

=MID("　★☆ ☆ ★☆     ",(MID(NOW()&REPT("0",15),13,1)+SUMSQ(ROW()-6,COLUMN()-6))/4+1,1)

コスモス悪児解答（三43Ex45

表計算一筆書き、

「コスモス」

http://kumapooh.justblog.jp/blog/2007/10/post_6d9a.html#comments

の悪児解答です。

皆さんと同じだと思いますが・・・(^^)(^^)

三四郎43

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

Excel45

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

「小田代湖]悪児解答（三四郎62）

悪児の三四郎62文字です。(^^)(^^)

基本は、二段階で変わりませんが、
外枠の取得を大いに短縮できました。＼(^o^)／

=If(Find(5,Row(E5) & Col(E5))+Lcm(Row(C3),Col(C3)) MOD 4,,"*")

ExcelではFind()で検索文字が見つからないと、
エラーになるので使えません。(-_-;)(-_-;)
お節介Excelめ ！！

小田代湖

表計算一筆書きの、今週の問題は、

悪児が出題した、「小田代湖」

別に、小田代湖とは何の関係もなく、

前回のくまぷーさん出題の「田」（タイトルは「交響曲第６番」）より、

　

　

　一回り「小さい田」を書け、というもの。

結構難しいだろうと思ったが、

問題作成時に用意していた、三四郎71文字、Excel77文字の解答が、

ジョー３のExcel  62文字に、あっさりと破られてしまった。

出題者としては、完敗である。(^^;)(^^;)

あわてて、解答者悪児として、三四郎62文字を作ったが、

Excelは、75文字から、進まない。Excel 62文字、

早く見てみたいものだ。(^^)ゞ

なお、問題作成者としては、予想以上に奥深い問題で、

満足しています。(^^)(^^)

表計算一筆書き：田園_悪児解答

くまぷーさんの、表計算一筆書き、「交響曲第６番田園」

http://kumapooh.justblog.jp/blog/2007/10/post_71d8.html

の、悪児の解答です。

三四郎（３１文字）

=If(Row(E5)*Col(E5) MOD 5,,"*")

Excel（３７文字）

=IF(MOD(ROW(E5)*COLUMN(E5),5),"","*")

みなさんと、同じでしょう。(^^)(^^)

表計算一筆書き

くまぷーさんが、
出題していた三四郎＆Excelの問題、
「ピラミッドを書こう」
などを、

表計算一筆書き

と命名した。

まだまだ、続くようだ。(^^)(^^)

また初心者向け解説も始まったので、
まだチャレンジしていない方は、
ぜひ読んでみましょう。(^_^)(^_^)/~

http://kumapooh.justblog.jp/blog/2007/10/post_a74f.html

ダイアモンド解答

くまぷーさんの、ピラミッドダイアモンド問題（↓）の悪児解答です。

http://kumapooh.justblog.jp/blog/2007/10/post_aa2e.html

新味は、全く、ありません。(^^)ゞ

三四郎（40文字：多分、くまぷーさんと全く同じ）

=If(Abs(6-Row(F6))+Abs(6-Col(F6))<6,"◆")

　

　

Excel（41文字：多分、くまぷーさんと全く同じ）

=LEFT("◆",ABS(6-ROW())+ABS(6-COLUMN())<6)

 

三四郎（32文字：もちろん、アレです。(^^)(^^)）

=Repeat("◆",11-Abs(6-Row(F6))*2)

　

　

Excel（28文字：これも、アレです。(^^)(^^)）

=REPT("◆",11-ABS(6-ROW())*2)

手裏剣への道03（了）

７．切り捨てではなく、切り上げ。
　0と1の間に仕切を入れるには、どうすればよいか？
DIVのやることは、切り捨てだけど、これを切り上げにすれば、0と1は区別される、
ということに気付くまで、ちょっとかかってしまった。で気付いて作ったのが、次の式。

=Mid(" *  * *       *",RoundUp(((Row(F6)-6)^4+(Col(F6)-6)^4)/96+1),1)

69文字。
これで、見事、70文字を切って、手裏剣が完成。＼(^o^)／
（第３のハードルクリア(^^)(^^)）

ここまで、約２５分ほど。
ここで、70文字を切った、というコメントを出したのだった。(^^)(^^)

８．文字数の削減。
　あとは、更なる文字数の削減。RoundUp()は普段多用しているけど、切り上げに使える別な関数があったはず・・・。そんな記憶があったので、調べて、Ceilを見つけ、交換して、66文字。切り捨ては、Ipというもっと短いのがあったので、96で割ったときに、商を切り捨てて、0は1にし、1は2にするには、96*2-1の191を加えておけばよい、ということで、Ip版を作ったが、これも66文字。では、DIVを使ったら、と試したが、こちらも、66文字。
Excelでも、66文字が最短だった。

三四郎の３種の中では、

=Mid(" *  * *       *",Ceil(((Row(F6)-6)^4+(Col(F6)-6)^4)/96+1),1)

が、一番綺麗かな？
また、見慣れない関数は使っていない、という点では、

=Mid(" *  * *       *",((Row(F6)-6)^4+(Col(F6)-6)^4+191) DIV 96,1)

が、ベストかも。(^^)(^^)

手裏剣への道02

５．If()じゃ、ダメ。
　さて、「カスタマイズ」の式をif関数を使ってセルに書き込むことはできるけど、それではもちろんとんでもない長さになってしまう。ifが使えるのは、２択かせいぜい３択まで。ここは、最低６択になるのだから、ifではダメ。ではどうすれば良いか。

６．Mid()による条件分岐。
　はるか昔、N88DISKBasicというのを使っていた頃・・・。長いプログラムを書く場合、メモリの関係で、できるだけ文字数を少なくしたかった。そこで多用したのが、Mid関数による条件分岐。フラッグが１なら、ｙを、２なら、ｎを、３なら、ｆを表示させたい場合に、
%sel = Mid("ynf",%flag,1)とやるわけである。ここも、数値をいくつかに区切って、それに対応させて★の表示非表示をさせれば良いのだ。もちろん、いくつずつに区切ったら良いのか、それは試行錯誤するしかないなぁ、と思って次の式を作った。

=((Row(E6)-6)^4+(Col(E6)-6)^4) DIV $M$1

これで、M1に、色んな数字を入れていけば・・・。で、最初の数字は・・・。
(1) できるだけ大きな数字が良い。
(2) 0は、非表示で、1は★、次の非表示は97。
ということは、当然、96ですね。
で、96を入れてみたら・・・。

　　

　　

　　

なんと、★とするセルは、0,3,5,13となり、
真ん中を除いて、非表示のセルとの重複はないではないか。＼(^o^)／
まだ、真ん中が、★になっているけど、これを使って式にすると、

=Mid("*  * *       *",((Row(F6)-6)^4+(Col(F6)-6)^4) DIV 96+1,1)

これで、中心が★になってしまうことを除けば、手裏剣が書けたのだ。
文字数は、63。あとは、中心をどうするかだけど・・・

これで、第２のハードルクリア(^^)(^^)

手裏剣への道01

＞悪児さんはどのような発想から
＞このような式を思いつくのか？？？

というご質問を頂きましたので、お答えします。(^^)ゞ

０．特殊関数は捨てる。
　HarMean()のような、得体の知れない関数（(^^;)(^^;)）を使うという可能性は当然考えた。しかし、図形から浮かんでくるものはないし、片端から調べるのは趣味ではないので、この路線は捨てることにした。

１．点対称にこだわる。
　形は点対称。ということは、Row(A1)-6とCol(A1)-6を使うことは必須。これを使って７０字未満ということは、両者とも、１度しか使えない筈。で、これを使って各セルを数値化する式を考える。

２．まず２乗。
　まず考えたのは、多分皆さん考えたと思うけれど、２乗の和。

=(Row(F6)-6)^2+(Col(F6)-6)^2

　これを使えば、真ん中の円の部分は簡単に取れる。でも、羽の部分と中心を見て、これでは不可能ということが判明する：この式をA1:K11にコピペすると、次のような数値になる。

 

　

　

　

　　

　　

これでは、★を表示させるB3と表示させないA6が同じ25になってしまうのだ。

３．次いで、４乗。
　次に考えたのは、当然、４乗の和。

=(Row(F6)-6)^4+(Col(F6)-6)^4

すると、数値の重複が（ほとんど？）なくなるのだ。

　　

　　

　　

　　

　　

　　

４．まず、ズル。
　これで、三四郎の場合、「ズル」を使うとできてしまう。(^^)(^^)
　「ズル」とは、Excelの「セル書式」の「ユーザー定義」に当たる、「表示形式」の「カスタマイズ」。ここに、

[E;>1200]"*";[E;>=600]"";[E;>=300]"*";[E;>=90]"";[E;>0]"*";[E;=0]""

を指定すると、手裏剣が表示されるのだ。(^^)(^^)
Excelでは、４種類しか指定できないが、三四郎では、制限がないので、６種類くらいは楽勝なのだ。＼(^o^)／

これで、第１のハードルクリア。(^^)(^^)　(続く）

手裏剣解答

三四郎（66文字）

全部、66文字。変わらなかった・・・(^^;)(^^;)

１．
=Mid(" *  * *       *",((Row(F6)-6)^4+(Col(F6)-6)^4+189) DIV 95,1)
２．
=Mid(" *  * *       *",Ip(((Row(F6)-6)^4+(Col(F6)-6)^4+191)/96),1)
３．
=Mid(" *  * *       *",Ceil(((Row(F6)-6)^4+(Col(F6)-6)^4)/96+1),1)

ズルを使うと、(28文字)
=(Row(F6)-6)^4+(Col(F6)-6)^4

Excel（66文字）

Excelでも、66文字でした。

=MID(" *  * *       *",INT(((ROW()-6)^4+(COLUMN()-6)^4+189)/95),1)

ストライク＆手裏剣

くまぷーさんの、三四郎（＆Excel）図形シリーズ、

第３弾は、「ストライク」

http://kumapooh.justblog.jp/blog/2007/09/post_49a6.html

第四弾は、「手裏剣」

http://kumapooh.justblog.jp/blog/2007/09/post_428e.html

だった。

　「ストライク」は、正直、ちょっとやさし過ぎて（＆工夫の余地もほとんどなく）、あまり面白くなかったが、「手裏剣」は、結構難問。ハードルが３つあるんだけど、その第１がなかなか気付きにくい。言い換えれば、気付けば、そんなことか、ってことなんだけど。

　ハードルの２・３は、if文より効率の良い条件分けの手法。これは、if嫌いの悪児の場合、以前（N88DISKBASICの時から）から使っていたもので簡単なのだけど、ifを常用している人には難しいかも。(^^)ゞ。でも、くまぷーさんは、if使いな筈だから、悪児とは、違う方法かしら？(^^)(^^)。

　答え合わせが、楽しみ。(^_^)(^_^)/~

三四郎vsExcel_02（三四郎でピラミッドより）

三四郎でピラミッド
（詳しくは、↓
http://kumapooh.justblog.jp/blog/2007/09/post_0a86.html
　　　　　　　　　　　　　　　　　　　　　　　　　）

を、

１．他の機能を使って、数式だけより短い式で。

解く解答だが、これもExcel組はほとんどの人が気がついたようだ。

一般解答
[三四郎]
=If(Abs(6-Col(A1))-Row(A1)＜0,"*")

[Excel]
=IF(ABS(6-COLUMN())-ROW()＜0,"*","")

から、数値を文字列に変換する部分を省いて、

[三四郎]
=Abs(6-Col(A1))-Row(A1)

[Excel]
=ABS(6-COLUMN())-ROW()

を入力する。
あとは、この結果が、
負になる場合に"*"、それ以外は""を表示させるよう、
セルの表示形式を書式文字を使って設定する。

その方法は、
[三四郎]
「書式」－「表示形式」で右下の「カスタマイズ」をクリックして、
下の、表示書式に、
[E;<0][C;黒]"*";" "
と入力すると、負の場合、黒文字で、"*"を表示し、
それ以外は、何も表示しない、という指定ができる。

[Excel]
「書式」－「セル」－「ユーザー定義」で、
;"*";;
と入力すると、負の場合"*"を表示し、それ以外は何も表示しない、
という指定ができる。

一見、Excelの方が、簡単そうに見えるが、
それは、Excelが最大４種の設定までしかできないからで、
三四郎の方が、遙かに細かく書式設定をすることができる。

三四郎でぐるぐる渦巻き_悪児解答６

最後に、もうひとつお遊び。
左上１／４だと、行列の小さい方の奇数偶数で、*の有無を判定できるので、
左上はそれで判定し、残りはそのミラー表示。
ミラー表示が、思ったより遙かに面倒だった。(^^;)(^^;)

三四郎（129文字）
=If(Row(A1)＞6,Index(A$1:A$6,1,12-Row(A1)) & "",If(Col(A1)＞6,Index($A1:$E1,12-Col(A1),1) & "",If(Min(Row(A1),Col(A1)) MOD 2,"*")))

Excel（111文字）
=IF(ROW()＞6,OFFSET(A$6,6-ROW(),0),IF(COLUMN()＞6,OFFSET($F1,0,6-COLUMN()),LEFT("*",MOD(MIN(ROW(),COLUMN()),2))))

offsetが使える分、Excelの方が、簡単。

三四郎でぐるぐる渦巻き_悪児解答５

そして、エンジンの短縮を思いついて、悪児最少文字数版

三四郎（47文字）
=If(Max((Row(A1)-6)^2,(Col(A1)-6)^2) MOD 2,"*")

Excel（49文字）
=LEFT("*",MOD(MAX((ROW()-6)^2,(COLUMN()-6)^2),2))

三四郎でぐるぐる渦巻き_悪児解答４

この単純版をもっと圧縮できないか、
というので作ったのが、単純四分割ミラー版

三四郎（106文字）
=Mid("*******     * ***** *   * * *** * * ",Abs(Row(A1)-1-10*(Row(A1)＞6))*6+Abs(Col(A1)-12*(Col(A1)＞6)),1)

Excel（145文字）
=LEFT("*",INDEX({1,1,1,1,1,1;1,0,0,0,0,0;1,0,1,1,1,1;1,0,1,0,0,0;1,0,1,0,1,1;1,0,1,0,1,0},ABS(ROW()-12*(ROW()＞6)),ABS(COLUMN()-12*(COLUMN()＞6))))

三四郎でぐるぐる渦巻き_悪児解答３

これでやめようと思ったけど、
馬鹿馬鹿しいのを思いついたので。(^^;)(^^;)

三四郎（154文字）
=Mid("************         ** ******* ** *     * ** * *** * ** * * * * ** * *** * ** *     * ** ******* **         ************",(Row(A1)-1)*11+Col(A1),1)

Excel（275文字）
=LEFT("*",INDEX({1,1,1,1,1,1,1,1,1,1,1;1,0,0,0,0,0,0,0,0,0,1;1,0,1,1,1,1,1,1,1,0,1;1,0,1,0,0,0,0,0,1,0,1;1,0,1,0,1,1,1,0,1,0,1;1,0,1,0,1,0,1,0,1,0,1;1,0,1,0,1,1,1,0,1,0,1;1,0,1,0,0,0,0,0,1,0,1;1,0,1,1,1,1,1,1,1,0,1;1,0,0,0,0,0,0,0,0,0,1;1,1,1,1,1,1,1,1,1,1,1},ROW(),COLUMN()))

Excelも、midを使えばもっと短くなるけど、
これが一番単純、ってことで。(^^)ゞ

三四郎でぐるぐる渦巻き_悪児解答２

で、三四郎では、ifの方が短くなるかな、ということで、
ifにすると、

三四郎（49文字）
=If(Max(Abs(Row(A1)-6),Abs(Col(A1)-6)) MOD 2,"*")

Excel（52文字）
=IF(MOD(MAX(ABS(ROW()-6),ABS(COLUMN()-6)),2),"*","")

で、三四郎は、Leftyoより、短くなりました。
ExcelはLeftの方が短いですね。

三四郎でぐるぐる渦巻き_悪児解答１

最初に作ったのは、

三四郎（51文字）
=Left("*",Max(Abs(Row(A1)-6),Abs(Col(A1)-6)) MOD 2)

Excel（51文字）
=LEFT("*",MOD(MAX(ABS(ROW()-6),ABS(COLUMN()-6)),2))

で、「*」の表示法ではなく、エンジンそのものは、これで決まり！
と思ってました。(^^)ゞ

今度は、三四郎でグルグル渦巻き、だって

もう、次のお題が出た。

三四郎でぐるぐる渦巻き、だそうだ。

詳しくは、↓こちら。

http://kumapooh.justblog.jp/blog/2007/09/post_21f4.html

風呂に入って考えていたら、

解法が閃いた。直ぐ閃いたので、皆さん直ぐに気付くかな？

と思ったら、結構そうでもないらしい。

今のところ、三四郎派の悪児ときっちーさんが、気付いているようだ。

Excel組に、勝てるかな？　(^^)(^^)

三四郎vsExcel_01（三四郎でピラミッドより）

三四郎でピラミッド
（詳しくは、↓
http://kumapooh.justblog.jp/blog/2007/09/post_0a86.html
　　　　　　　　　　　　　　　　　　　　　　　　　）

に寄せられた解答で、一番オーソドックスなのは、
ABS()関数と、If関数を使ったもの。

三四郎では、31文字で

=If(Abs(6-Col(A1))＜Row(A1),"*")

Excelでは、33文字で

=IF(ABS(6-COLUMN())＜ROW(),"*","")

となる。
増減の収支は、
col関数とCOLUMN関数という関数名の差で、三四郎が－３
Row等の引数省略の可否で、Excelが－４
If関数の第２引数省略時の動作の差で、三四郎が－３
で、都合、三四郎の－２となる。

関数名の長さの差は、あまり意味がない。
（文字数の少なさを競う遊び以外ほとんど長さは関係ない）
Row等の引数省略は、三四郎でも可能であって欲しかった。
これは、Excelの勝ち。
If関数の第２引数省略時の動作。
Excelの方が詳細な設定ができるということで、
Excelの方が高機能といえるが、反面、
三四郎の「いい加減さ」も「融通が利く」ともいえて、
どちらがまさっているともいえない。

では、総合は？

皆さん、どう思います？

三四郎でピラミッド解答

三四郎とExcelの解答を↓にアップします。

ダウンロードして、ご覧下さい。

http://members2.jcom.home.ne.jp/r_watanabe/tmp/pyramide.lzh

三四郎でピラミッド・・・だと？

くまぷーさんが、

三四郎でセルを使って、ピラミッドを作る

という問題を出題された。(^^)(^^)

http://kumapooh.justblog.jp/blog/2007/09/post_0a86.html

A1の数式を対象範囲にコピーするだけで作る、

というのが、くまぷー問題の「お約束」だけど、

悪児としては、数式だけではなく、他の機能も使ったり

数式も１種類でなくとも良い、というように、

もうちょっと柔軟に考えた方が面白いと思うので、

こっちで、そういうものを考えようと思う。

いままで、考えたのは、

１．他の機能を使って、数式だけより短い式で。

２．１行目は、Ｆ列に、「*」を文字列として入力。

　　そして、２行目以下は、A2の式をコピペ

いかがでしょう？　どちらも、解答は、

くまぷーさん同様、9/10　午後6時までご遠慮を。(^^)ゞ

ごじら＆こ゛し゛ら03

次は、

A1に全角カタカナの「ゴジラ」をバラバラにして逆さまにして欲しい。

だそうだ。

http://kumapooh.justblog.jp/blog/2007/04/4_476a.html

やってみました。

三四郎じゃあんまり簡単なので、Excelでも。(^^)ゞ