第39回 時計の針

上の黄色の所（時分秒）がランダムに変わります      
0:00:00 ～ 11:59:59 まで 43200 パターン出現？ 
黄色の時,分、秒の時間になるように図の針の位置を      
調整したときに・・・・・      
針の先端が（赤く点をつけた所）どうなっているかの問題です      
      
赤い点を3つ結んだときに      
その中に時計の中心が      
 あったら、緑のセルに　　〇　を     
 無かったら、緑のセルに　×　を表示してほしい     
      
火～木  関数を何種何個使ったかのみ、    
金  文字数発表　も　ＯＫ    
      
きっといろいろな手があると思います      
その発掘のためにも文字数は金まで控えます      
文字数より手法がより興味深いから・・・特にこの問題      

　　　　　　　　　　　　　　　　　　　　　　　　　　　　（ジョー3さん）

★sakudaさん提供

解答用参考ファイル： 20180321VBA_V3をダウンロード　（3/27更新）

ファイルの拡張子zipをxlsmにしてお使いください。 

 

解答用参考ファイル： 20180321をダウンロード

答用参考ファイルの拡張子zipをxlsxにしてお使いください。 

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

解答発表は03/31（土）の２０：００です。それまでは直接数式を

書き込むこと・ポイントとなる関数名を書き込むことはご遠慮ください。

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

 

Comments

[投稿情報: くまぷー]

1日、出題が遅れてしまいました。
申し訳ありません。m(__)m

では、よろしくお願いします。

[投稿情報: y sakuda]

中心点が線上に乗った時どちらと判定すればよいのでしょうか？

[投稿情報: jyo3]

>中心点が線上に乗った時どちらと判定すればよいのでしょうか？

言い忘れました。さすがですね、、、、
どちらの判定でも良いです。
6:00:00.00
の、場合がぴったりですね
ですから、
どちらでも、いいです

10:21:49とかは、厳密に計算すると
10:21:49.09
になるので
判定に迷わないと思います。

[投稿情報: jyo3]

わたしは、
スッキリ、、の案はまだ、
出来そうにありません。

無理やりやれば、、、、

以前の、、、飛角図式・・・
の問題位の文字数と同じようになりそうで、、、

・・・・・・・・・
そのような回答は、、、なるべく
回答例としたくない。

[投稿情報: y sakuda]

また質問です。
針の動きはアナログですかデジタルですか？
例えば、０時０分３０秒の時、長針、短針は０の所にいるのか、３０秒分動いているのかと言う意味です。

[投稿情報: jyo3]

＞例えば、０時０分３０秒の時、長針、短針は０の所にいるのか、３０秒分動いているのかと言う意味です。

有難うございます。
30秒分動きます。
（理想の時計ですね・・・！・・・？）
そんな時計はないでしょうが、

・・・・・・・・・・・
秒針が1秒動くと、
それに応じて・・・分針もその分動いて、時針までもが、
微妙にその分動くという、、、理想の時計、、、としたいです。

[投稿情報: y sakuda]

話は分かったけど、どうやるかな。
それに、数字だけだと、思い込みがあると正誤判定ミスりそう。
プログラムでも判定の勘違いありそうだから、図がほしいけど、プログラムで図を操るのはあんまりやってないので、すぐできるかどうか分からないし・・・・
そんなことやってると、回答考える時間なさそうｗ

[投稿情報: jyo3]

今
4種
8関数で
長い文字数で

やりかけたら

理屈はあってると思うが
結果がおかしい時がある

[投稿情報: maron]

◆とりあえず作ってみました、4種4関数。
◆でも確認が大変です。

◆また、確認プログラムを作ってほしいなぁ～

[投稿情報: maron]

◆確認したら、早速間違っていました。（ごめんなさい）

[投稿情報: y sakuda]

この判定、かなり難しいです。
式をどうこうというより、三角の線がどこを通るか計算する整理してるだけで、ちょっと勘違いしてたところもあるんですが、結果がおかしくなり数時間かかりました。
私の頭の中がこのレベルだと、良いと思った判定基準自体が正しいかどうか疑わしくなる。
そうすると、やはり図示しないと危ないけど、これちょっと厄介。
基本的に、今週時間がたりないので、答え合わせが今週だと私はリタイアです。

[投稿情報: ni]

図にするなら散布図を使えば簡単ですよ。

[投稿情報: y sakuda]

>図にするなら散布図を使えば簡単ですよ。
グラフは苦手ｗ
大体、円と計算した直線３本を重ねて中心点も表示しないとダメだから散布図ではどうだろ？

[投稿情報: jyo3]

＞基本的に、今週時間がたりないので、答え合わせが今週だと私はリタイアです。
宜しければ、、、
私も忙しいので・・・・来週でも・・・・

＞図にするなら散布図を使えば簡単ですよ。
実はこの問題・・・
ni　さんに、、、　期待！！
なぜかなーーー・・・・
いつかの問題で・・・・なんかがあったような記憶。

[投稿情報: maron]

◆確認するのが一苦労。
◆作ってみたものの、これでいいのかわからない。

[投稿情報: jyo3]

>◆作ってみたものの、これでいいのかわからない。
提案：その1が、、、あります。
１：３８：１１　は、○ですよね・・・・とか、
不安なところを、、、書き込めば、、、、！？

答え合わせが出来て、、、良いと思います

[投稿情報: jyo3]

＞答え合わせが出来て、、、良いと思います
４，５人・・・式が、、出来たらだけどね、、、、

[投稿情報: くまぷー]

＞基本的に、今週時間がたりないので、答え合わせが今週だと私はリタイアです。

>私も忙しいので・・・・来週でも・・・・

確かに今回のは今までの問題とは
ちょっと違うと思うので解答期間を
伸ばした方がいいと思います。

で、とりあえず一週間延長という事で・・・

[投稿情報: からくち]

＞１：３８：１１　は、○ですよね
これは×では、、、

全体を反対回しに戻し１１秒を０の位置にしますと
３８分は２７．１８３３３分の位置になります
後は１時の針が３０分以上５７，１８３３分以下の位置なら◯ですが
５７．３５分の位置になりますので×と思いますが、、、

＞火～木 関数を何種何個使ったかのみ
文字数が関係ないので、、、１種１個では
流石出題の神様ジョー３さんならではの問題ですね
わたしの嫌いな算数の問題、、、
故に関数は要らないのでは

[投稿情報: jyo3]

>文字数が関係ないので、、、１種１個では

すげーーーー
そんな答えが、、、欲しかった。

きっと、、、
からくちさんは、、、
あとは、、、
何も言わないで、、、、
・・・・・・・・・・・・・・
寝てるだけで、、、良いと思います。

ってことで、、、
・・・・・・・
からくちさんが、今、、、言ったら（文字数とか）
みんな、、、、がっくりですかもね、、、

楽しいです。こんな進展、、、（半分期待）

[投稿情報: y sakuda]

これ、確かに人間が絵を見れば明らかだけど、数字で判定するとなると、判定方法考えるだけでも結構厄介です。
確かな判定方法が分かって、それから関数でどうやったらできるかって話ですもんね。
まして、ジョー３の要望で、秒針に伴い、長針も短針も微妙に動いてるってことですから、手作業で絵にするのは難しい。
今週纏まって時間取れそうなのが、今日と金曜日だけ（因みに日曜もダメ）なんで、週が明けても整理できてるかどうか怪しいです。
まあ、簡易的に見えるようにするのは、niさんがおっしゃるように散布図工夫するのかな
式でやる場合、針が重なったところなんかが絶対にエラーになりそうでそう言う意味でも厄介（秒単位だと０:０:０以外に本当に重なるかどうか検証してませんけど）

[投稿情報: jyo3]

0:0:0
6:0:0

あと、おもしろいのは？？？

さてさて、、、

[投稿情報: y sakuda]

＞6:0:0
こういうのは、中心点が線上に乗ってるのはアウトにしちゃえばエラーが出た時×で良くなっちゃう＾＾
多分・・・・

[投稿情報: くまぷー]

ユーザーフォームにLineメソッドで直線を描画して
アナログ時計を作ろうと思ったけどLineメソッドって
無いんだね・・・

[投稿情報: からくち]

ジョー３さんはこの問題何故いま作ったのかな、、、と考えていた

＞0:00:00 ～ 11:59:59 まで 43200 パターン出現
～43199秒
～43199日
～2018/4/9、、、やはり今ですね、、、
流石ジョー３さん
こんな問題、、、作ってみたい

[投稿情報: y sakuda]

>アナログ時計を作ろうと思ったけどLineメソッドって
VBだと時計あるんですけど、VBAではないんです。
ユーザーフォームにしろ、シート上のシェイプにしろ、位置を細かく計算してやらないとできないはずです。
そうすると円と、中心点と直線は何とかなりますけど、時計の目盛までやりだすと、多分調整でものすごい時間がかかる。
今は、判定ロジック（式一本ではなく、ワークセル沢山使った実験）の参考資料はniさんお勧めのとおり散布図使ってます。
ただ、これだと線がないので、微妙なところが分からないです。
判定ロジックにしても今試してるのが正しいとしても、式一本でやるのは地獄だと・・・・

[投稿情報: y sakuda]

>流石ジョー３さん
本当にそうですねーー
時計の針みても、こんなの思いつかない＾＾

[投稿情報: くまぷー]

>位置を細かく計算してやらないとできないはずです。
確かに。

＞時計の目盛までやりだすと
それも大変だし、時計の針を3本動かして、針の頂点を結ぶ三角形の
各辺も動かすとなるとチラツキを処理するのも大変そう・・・

[投稿情報: ｎｉ]

メモリは面倒ですが、針は0,0から針の先端までの線を3系列作成します。

作業セルをいっぱい使う方法はできたのですが、これを一つの式にすると
同じ計算がいっぱい出てきてしまって美しくない・・・

[投稿情報: jyo3]

ちょっと、休むつもりが、、、
寝てしまっていた。

＞時計の針みても、こんなの思いつかない
ふっと、、、思ってしまっただけ、、、何の意味もなく・・・だから、、

＞～43199日
＞～2018/4/9、、、やはり今ですね、、、
へーーーぜんぜん、、、意識にない・・・
すごいなーーー

＞作業セルをいっぱい使う方法はできたのですが、これを一つの式にすると
ほーーー
＞同じ計算がいっぱい出てきてしまって美しくない・
なんかいぐらい？

[投稿情報: y sakuda]

問題解く方そっちのけで、見える化してます。
夕べと言うか、今朝、なんとか、時計風の図にする目途がついた^^;
多分、表示されてる図に一切手を触れるな（つまり拡大縮小なんかすると崩れる）って代物になりそうですけどｗ
そこに組み込もうとしてる計算方法は、まとめて一つの式にする気も起きないｗｗｗ

ＶＢＡ公開できるの多分日曜日くらい。（早ければ金曜日夜）

[投稿情報: jyo3]

>問題解く方そっちのけで、見える化してます。
>そこに組み込もうとしてる計算方法は、まとめて一つの式にする気も起きないｗｗｗ
凄い執念だなー

[投稿情報: y sakuda]

今朝出かけなきゃいけないんだけど、早く起き過ぎたんで、そのまま粘ってた。
図に3角形でたけど・・・・
上下反対になってる・・・・なんでだ！！！！
睡眠不足もあってよー分からんし、病院の予約におくれそうなので出かけます^^;

[投稿情報: jyo3]

作業セル使った回答と
長い式を使った回答を

条件付き書式でチェックしてみました

[投稿情報: y sakuda]

一応、VBAは出来たみたい。
後は、変更した時にリアルタイムで絵と判定が変わるようにして、しばらくチェックですかね。（自信がないのは判定機能の方）

あっ、しまった。0:0:0等エラーが発生するところの処理忘れてた。
多分0:0:0と6:0:0しかエラーにならないとは思うけどどう判定するかな・・・・

[投稿情報: jyo3]

>一応、VBAは出来たみたい。
うわーーー・・・すごいですねーーー

[投稿情報: jyo3]

一応、4種８関数で、
やりました。

最初のは、計算式の中の・・・数値が、
間違った入力があって、、、変な判定が、時々出ました。

[投稿情報: くまぷー]

>>一応、VBAは出来たみたい。
>うわーーー・・・すごいですねーーー ×2

[投稿情報: y sakuda]

明日の夜までに整理して送ります。
ただ、○×判定については自信ありません。

[投稿情報: ｎｉ]

無駄が多いけれど、なんとかできた。
関数2種7個です。
セル参照が8個もある。

でも最初の構想ではセル参照が36個もあったからずいぶん整理できたと思います。
(最初の構想は、途中でイヤになってしまったので完成させていません)

[投稿情報: y sakuda]

文字盤イメージの入ったファイル送りました。くまぷーさんよろしく＾＾
時計の針もあった方がリアリティがあるかもなんてこともチラッと思いましたが、それだと中心部が見えにくくなるのでやめました。
ですから円に内接する三角形が、F9の度に変わるだけです。

[投稿情報: y sakuda]

判定プログラムも一応作ったわけですから、判定方法についても考えたわけなんですが、これは算数からアプローチの正攻法。
こんなもの式に纏める気もしないです。
別の方法のアイデア出ないと式の方はリタイアになっちゃいますねーー

[投稿情報: y sakuda]

判定法もう一つ思いついたけど、これも一本にまとめると思うと気力がでない
もっとすっきりしたのないものかしら？

[投稿情報: jyo3]

>もっとすっきりしたのないものかしら？
そうです、そうです、、わたしも、、、
判定法・・・２つ思いついたけど、、、
・・・・・・・・
あ、、、金曜ですね、、一応文字数言いますね、、、
そうすると、皆さんは、きっと元気が出るでしょう。

さいしょのは、、、２００を、、越えてます。
・・・・・・元気が出たでしょう!!

さて、別方法をやってみるかも、、、、

[投稿情報: jyo3]

あ、、、そういえば、、、
1種1関数って・・・・・
言っておられた方が・・・・

こわーーーーーー、、、

それこそ、、、
もう気力が出なくなるかもです

[投稿情報: からくち]

＞２００を、、越えてます
当然と思います、、、
最初は表示用の関数１個のみで、、、余りに長い
少し短くと関数２種で、、、２０４とまだまだ長い

[投稿情報: y sakuda]

200って・・・・
そのくらいならやる気力起きるけど、今の私の手持ちのはどのくらいになるか見当もつかないからやってないです^^;

[投稿情報: jyo3]

>２０４とまだまだ長い
>200って・・・・
>そのくらいならやる気力起きるけど

うわーーー、、、少し安心。

私の想定・・・予想は、、、
８０～１２０
どなたかが、、、閃いて・・・・どひゃーーー

この問題は、、、
技術より・・・・

妙手！！・・・
今回の出発点の藤井君・・・に負けない、妙手・・・

どなたかが（Aさん）、１００手以内を発見したら、、、、
私は、、、（Aさんに）、参りました。・・・となります。

その後、、、技術で・・・
１００が、、、80になっても、、、

妙手発見の１００が、、、勝ちですね。、、、と思います。

しかし、、、
怪物君に勝った藤井君は、、、、すげーーーなーーー

[投稿情報: jyo3]

所で、皆さん、、、、
どっちでもよいことですが、、、

６：０：０
０：３０：０
１：３０：０

は、、
○ですか×ですか？？

まあ、どっちでも良いってことになってますが、、、、
ちょっと気になっただけ、、、

[投稿情報: くまぷー]

>文字盤イメージの入ったファイル送りました。くまぷーさんよろしく＾＾

頂きました。有り難うございます。

おっしゃる通り、針はない方が見やすいと思います。
sakudaさんは何でも作っちゃいますね~
凄いです。

[投稿情報: からくち]

６：０：０、、、✕
線のみで面が無い

０：３０：０、、、◯
時針は分針で言う２分３０秒の位置
故に面で左線が中心を通っている

１：３０：０、、、◯
時針は分針で言う７分３０秒の位置
故に面で左線が中心を通っている

式はこの様な判定を行っているようです

[投稿情報: ni]

今出先ですが、確か121文字でした

[投稿情報: jyo3]

>式はこの様な判定を行っているようです
へーーーー、、、説得力ある。

＞今出先ですが、確か121文字でした
うひゃーーー
・・・・・・・・・・・・・・

[投稿情報: jyo3]

sakudaさん、、、

面白いです。

正解
って、言ってくれて、気持ちいいです。
１０００回ぐらい
気持ちよかったです。

[投稿情報: jyo3]

再
＞私の想定・・・予想は、、、
＞８０～１２０

再
＞今出先ですが、確か121文字でした

ほぼ、、、あたった。

解ってるわけでないけど・・・・

気力をなくする・・・ぎりぎりのせんだにゃー

[投稿情報: y sakuda]

晩飯食いに出かけたんですが、歩いてる内に常識の範囲で出来そうなアイデア。
物になればですけど・・・・
これからチャレンジ^^

[投稿情報: y sakuda]

アイデアはうまく行く見たい^^
特殊例へ対応する必要がありそうだから、それ加えてから字数を。
ただ、これやってる時、なんてことない時間でVBAと意見の相違。
ダメなのかと思ったら、明らかに〇をVBAが×と言ってる^^;

VBAまだ確認できてませんが、後で調べて再アップします。
（今晩遅れなければ、明日は朝から出てるので明日の晩か日曜の朝）
あと、ループチェックの機能も入れた方が良いかも。

[投稿情報: jyo3]

>アイデアはうまく行く見たい^^
おーーー
ni対sakuda図式も、、、、ありそう、、、

niさん、、、どっかで、、、3角関数・・・

得意な、、、、・・・・

・・・・・
きのせいだかなーーー

[投稿情報: y sakuda]

アイデアものになりました。
生のままだと100ちょっとだったんですが、やはり0:0:0を○に出すエラーがでたので
対応して117でした。

>式はこの様な判定を行っているようです
これはからくちさんの式の話でしょうか？

[投稿情報: y sakuda]

VBAのバグ分かりました。
修正版は今晩中にくまぷーさんに送れると思いますが、ジョー3の質問への対応どうしましょうか？
私は一貫して、中心点を線が通っているのは×にしてます。

>これはからくちさんの式の話でしょうか？
済みませんこの時点ではジョー3の質問見逃してて何の話かわかりませんでした。

[投稿情報: y sakuda]

>VBAのバグ分かりました
どういうときにおかしいかと言うと、秒針が0秒か30秒の時エラー判定します。
すみませんでした。

[投稿情報: jyo3]

>ジョー3の質問見逃してて何の話かわかりませんでした。
どっちでもいい、、、という、、、やつなら、
気にしなくっていいでしょうから、、、、

・・・・・・・・・・・・・・
？？？

ちがうか？？

[投稿情報: からくち]

＞これはからくちさんの式の話でしょうか
です

＞確か121文字でした
＞対応して117でした
今回もわたしは閲覧（批評）か

この文字数で可能なのか、、、
例えば、、、
0：45：33、、、◯
0：45：34、、、✕

0：15：31、、、✕
0：15：32、、、◯
こんな秒単位の判定を僅か１００文字程度でしてしまうとは、、、
ここの人達は、、、恐ろしい、、、

[投稿情報: y sakuda]

>0：45：33、、、◯
>0：45：34、、、✕
>0：15：31、、、✕
>0：15：32、、、◯
私の117は全部こうなりました。

[投稿情報: からくち]

例の追加
0：11：31、、、◯
0：12：31、、、✕

早く式を見たいけど、、、
＞解答発表は03/31（土）の２０：００です
まだまだ先か、、、

[投稿情報: jyo3]

>こんな秒単位の判定を僅か１００文字程度でしてしまうとは、、、
ん。、、どうかなーーー・・・
あ、あ、あ、、、、
合ってる、、、
よかったーーー

でも、、わたしは、、、
２００以上だなーーー

[投稿情報: jyo3]

＞0：11：31、、、◯
＞0：12：31、、、✕
これもいいけど・・・・・・・
・・・・・・・・・・・・
200越えで威張れない。

[投稿情報: y sakuda]

>例の追加
OKです
しかし、さっき歩きながら思い付いたフトしたアイデア結構行けてるみたい。
0:0:0が〇になるのを避けない生の式は104です。
他の例外が見つかったらもっと伸びるでしょうけどね。
ぶん回してチェックするにしても、VBAで使える判定法はいずれにしろ私のだからどうですかね。

[投稿情報: jyo3]

＞１：３８：１１　は、○ですよね・・・・とか、

再掲
これ、、、・・・・どうでしょ、、、

私のは〇だけど、、、、

根本的に、、、失敗（見落とし）かなーーー

[投稿情報: からくち]

＞１：３８：１１　は、○ですよね
今のわたしに式も◯になります

[投稿情報: からくち]

因みに、、、
1：38：10では、、、✕でした

[投稿情報: jyo3]

＞2:43:38　×
＞3:49:05　〇
＞4:54:33　〇

で、良いんでしょうか？

・・・・・・・・・・・・
私、、、挫折かもーーーー

[投稿情報: jyo3]

＞今のわたしに式も◯になります
＞1：38：10では、、、✕でした
おおおーーーよかった。

[投稿情報: y sakuda]

＞１：３８：１１　は、○ですよね
〇です。図の表示だとモロに線に乗ってるように見えますけど、わずかに内側にはいっているようです。

[投稿情報: y sakuda]

>わずかに内側にはいっているようです
因みに私の判定処理だと、10万分の5程度判定境界を下回って〇になってます^^
目検じゃ絶対に分からないｗ

[投稿情報: からくち]

＞2:43:38　×
＞3:49:05　〇
＞4:54:33　〇
同じです
因みに、、、
2：43：39、、、◯
3：49：06、、、✕
4：54：32、、、✕
になりました

[投稿情報: jyo3]

＞同じです
＞因みに、、、
全く同じ・・・
よかったー・・・
でもなーーー

200越えを、、、、

あの手で、、、４０％の文字数に・・・・
でもなーーー・・・・

危険そうだなーーー

[投稿情報: からくち]

2：44：38、、、◯
3：50：05、、、✕
4：53：33、、、✕
になりました

[投稿情報: jyo3]

＞になりました

です、です、、、

[投稿情報: y sakuda]

＞2:43:38　×
＞3:49:05　〇
＞4:54:33　〇
＞2：44：38、、、◯
＞3：50：05、、、✕
>4：53：33、、、✕
私のもこれと一致します。

[投稿情報: jyo3]

>私のもこれと一致します。
良かったーーー

でも、、、、
でも、でも、、、

[投稿情報: jyo3]

でも、、、式の、文字数が・・・多すぎ・・・

また、あした。

[投稿情報: y sakuda]

からくちさんとジョー3の出されたサンプルチェックしたりしてる内に、カミさんと娘からいろいろ頼まれて、ループチェックのVBAテストしてる暇なくなっちゃいました。
申しわけないですが、くまぷーさんに修正版送るの明日以降になっちゃいました。

[投稿情報: くまぷー]

>くまぷーさんに修正版送るの明日以降になっちゃいました。

了解しました。よろしくお願いします。m(__)m

[投稿情報: ｎｉ]

>0：45：33、、、◯
>0：45：34、、、✕
>0：15：31、、、✕
>0：15：32、、、◯
＞0：11：31、、、◯
＞0：12：31、、、✕
＞１：３８：10,,,×
＞１：３８：11,,,〇
＞2:43:38　×
＞3:49:05　〇
＞4:54:33　〇
＞2：44：38、、、◯
＞3：50：05、、、✕
>4：53：33、、、✕

121文字も皆さんの結果と同じっぽいです。
　

[投稿情報: くまぷー]

sakudaさんのファイルを更新しました。
よろしくお願いします。m(__)m

[投稿情報: jyo3]

117
121

短いですね、、、
良かったですね、、、

[投稿情報: maron]

◆とりあえず皆さんと同じ結果の式が出来ました。
◆200越えどころか、300近くなので、これから短縮作業に入ります。

[投稿情報: ｎｉ]

ちょこっとダイエットして、111になりました

[投稿情報: y sakuda]

>ちょこっとダイエットして、111になりました
どんどんくるな^^;

[投稿情報: maron]

◆やっと、200を切りました。
◆引き続き短縮作業中。

[投稿情報: maron]

◆かなり頑張って、115。
◆y sakudaさんのチェックマクロでチェックしました。

[投稿情報: maron]

◆あれ、94できちゃった。
◆でもいいのかな？？？

[投稿情報: maron]

◆ちょっと式を変更して、92。

[投稿情報: ｎｉ]

＞◆ちょっと式を変更して、92。
どひゃぁ

別の方法を試して122(4種5関数)

[投稿情報: maron]

◆92は、3種5関数です。

[投稿情報: maron]

◆91で、2種4関数です。

[投稿情報: maron]

◆でも、ジョー3さん こんな問題をよく思いつきますね。

[投稿情報: くまぷー]

>◆91で、2種4関数です。

maronさん、凄すぎ！

[投稿情報: y sakuda]

二桁？？
凄すぎ^^