Since June 16, 2000

STUDIO KAMADA

Japanese to English by @nifty

あいたたたぁ････以下の場合が落ちてました。
-----------------------------------------
{S,(E+V),N}≡{1,0,3} (mod 7)

(0){1,0,3}のとき
N=3　の時　R=6　になるので（＊＊）とともに考慮して
可能なSEVEN,FOURについて評価する。
　　(SEVEN,FOUR)=(10703,6116),(17073,9756)-> 解でない
--------------------------------------
{1,1,1}のときはSEVENがつくれないから
これで、パーペキ（死語）だとおもうけど・・・

12点でした… (´д｀；) 吐血

ザキさん、こんにちは。

> 12点でした… (´д｀；) 吐血

追試は明後日です。
　・
　・
　・
うそです。

読めるのに書けない漢字って多いですよね。
普段は全然困らないのですが…

題意より
139X^2+1=Y^2　（X,Y,自然数）--*
を求めてみる。
139X^2=（Y-1)(Y+1）、139は素数なので
Y=139ｋ±1　（Kは整数）と書ける
これを＊に代入して整理すると
X^2=k^2±2k　となり
　±2k=(X+k)(X-k)　となる。
ここで、両辺の偶奇性から…
K=2t（←Kは偶数）、かつ　X=2ｍ（←Xは偶数）
であることが判明する。
したがって
　±t=(ｍ+ｔ)(ｍ-ｔ)　と書けて
整理すると
　m^2=t(t±1)　---*　となる。
ここで、
Y=X^2、Y=X(X±1）のグラフを検討すると
(0,0)以外では交わらない…
よって　(t,m)=(0,0)　すなわち　X=0である
これは、題意のXは自然数であるということに反する。
以上を結論して
題意を満たすX,Yは存在しない。
　　　　　　　　　　　　　

すけさん、こんにちは。

> これを＊に代入して整理すると
> X^2=k^2±2k　となり

↑ここから違うみたいです。

題意より、
139x^2+1=y^2。

　139は奇数である。
　x^2は偶数である。
　139x偶数は偶数である。
　偶数+1は、奇数である。したがって、左辺はxがどんな自然数をとっても奇数。

　y^2は偶数である。したがって、右辺はyがどんな自然数をとっても偶数。

　ということで。解なし。

　って事で良いでしょうか?


#力業で解こうとするプログラムを書き、
#デバッグ中に気がついたっす。いけませんね。

つちやさん、こんにちは。

> 題意より、
> 139x^2+1=y^2。
>
> 　139は奇数である。
> 　x^2は偶数である。

↑ここから違うみたいです。

> つちやさん、こんにちは。
>
> > 題意より、
> > 139x^2+1=y^2。
> >
> > 　139は奇数である。
> > 　x^2は偶数である。
>
> ↑ここから違うみたいです。

　あれっ。3x3=9なんだから、違うね。ナニを呆けてたんだか。

　さて。力業で解くにしても、どうやら相当大きな
数になりそうで...。いかんなー。

つちやさん、こんにちは。

> 　さて。力業で解くにしても、どうやら相当大きな
> 数になりそうで...。いかんなー。

long longで足りますのでご安心を。

日記にかかれていたプログラムですが、
ニュートン法の while ((t = (r + n / r) >> 1) != r) の部分で、
n = 80 のとき r = 8,9,8,9,...と収束しないのでは？？

としひでさん、こんにちは。

> 日記にかかれていたプログラムですが、
> ニュートン法の while ((t = (r + n / r) >> 1) != r) の部分で、
> n = 80 のとき r = 8,9,8,9,...と収束しないのでは？？

はぅっ。
最適化したときに初歩的なミスをしてしまったようです。
ご指摘ありがとうございます。

初期値を√n以上にして、前回の値よりも小さくならなく
なったら停止、で大丈夫かな。

・xは合成数であることは背理法で
・xとyの偶奇が一致しないこと
この程度しか、まだ分かってません…
って、昨日と全然進んでないです (/д＼)
でも、やりがいがあって楽しいです

139x^2+1=y^2 をみたす自然数解…
問題みて解けそうだと思ったら難しいですね
もうちょっと考えてみます (/д＼)

ザキさん、こんにちは。

> 139x^2+1=y^2 をみたす自然数解…
> 問題みて解けそうだと思ったら難しいですね

シンプルな問題ですが、はっきり言ってかなり難しいと思います。
このパターンの問題には厳密な解法があるのですが、できれば
ノーヒントで題意を満たす自然数を1つ見つけてください。

必然な道筋を描きこんでいくと、いつの間にかほとんどの道が塞がり
結局５通りになりました ヽ(∵)ノ

ザキさん、こんにちは。

> 必然な道筋を描きこんでいくと、いつの間にかほとんどの道が塞がり
> 結局５通りになりました ヽ(∵)ノ

5通りで正解です。
解答を掲載しました。

鎌田さん　こちらでは初めまして。えふおうです。

　体調が悪いと言うことですが、大丈夫でしょうか。心配して
います。僕も２年位前から体調が不調となって、一時かなり
ヤバイ状態でしたが、最近直ってきました。けどもう無理は
しない様にしています。まだ完全ではないからです。

　一時、くる要求をなんでもこなそうとして、無理をして
しまったのが原因だったみたいです。僕の場合は鎌田さんみたいに
プログラムを才能で作っているのではなく、力技でしか作れない
という間抜けさなので悲しい時もありますが、出来る時だけでも
しようと時々はプログラムを考えたり、Ｃマガジンを購入して
分かる所だけでも見ています。

　無理をせず少しずつ行きましょう。長文失礼しました。

えふおうさん、こんにちは。

> 　体調が悪いと言うことですが、大丈夫でしょうか。心配して
> います。

ありがとうございます。
体調悪化の原因は完全に除去しましたので、何とかやってゆけると思います。
これからもよろしくお願いします。

ご無沙汰しております。
PSVです。
過去に数度書き込ませていただいた事があります。
覚えていますでしょうか？

KAMADAさんの日記ですが、毎回、楽しく読ませて頂いております。
また、私には非常に役に立っております。
日々の更新、大変でしょうね。
本当に、ご苦労様です。

体調があまり良くないようですね。
あまり無理しないようにして、ご自愛下さい。m(_ _)m
＃私も「ご自愛下さい」と何度も言われてるんですけどね・・・。
＃口で言うのは簡単なのですが、非常に難しいです。(^^;

PSVさん、こんにちは。

> KAMADAさんの日記ですが、毎回、楽しく読ませて頂いております。
> また、私には非常に役に立っております。

ありがとうございます。

> 日々の更新、大変でしょうね。
> 本当に、ご苦労様です。

いえいえ、いろいろ反響をいただけるので励みになります。
無理せず続けてゆきたいと思います。

これまた難しい数列の問題っすね。
8/16、8/24と資格試験があったので大変だったのですが
しばらくヒマ(？)になるので挑戦してみたいと思います。
ところで
「ペル方程式」なんてしりまへんでぇ…とおもったら
10年前買った「数の世界」（岩波）に…あら、でてるやん…

P.S.　某やフーのオークションでついに　OH!MZを複数（創刊号含む）　　　を手に入れました。残るは、82年10月号のみ････
　　　先は長いですね　

P.S.２　　体調には十分お気をつけください…
　　　　　とにもかくにも『健康一番』です。

すけさん、こんにちは。

> これまた難しい数列の問題っすね。

高校で習う漸化式の解き方の応用で解ける…かな。

> 「ペル方程式」なんてしりまへんでぇ…とおもったら
> 10年前買った「数の世界」（岩波）に…あら、でてるやん…

マニアックなネタですみません。
ちゃんと証明するのは結構大変なんだな、これが。

> P.S.　某やフーのオークションでついに　OH!MZを複数（創刊号含む）　　　を手に入れました。残るは、82年10月号のみ････
> 　　　先は長いですね　

Oh!Xは全部あるけど、Oh!MZは最後のほうしか持ってないっす。

> P.S.２　　体調には十分お気をつけください…
> 　　　　　とにもかくにも『健康一番』です。

気をつけます。

一般項A（n）は,n=0,1,2…として次の4式で表わされる。

Ａ(4ｎ)　＝2(1-(-1/4)^n）
Ａ(4ｎ+1)＝2+(-1/4)^n
Ａ(4ｎ+2)＝2
Ａ(4ｎ+3)＝2+(-1/2)^(2n+1)

巧く、ひとつにまとめられそうであるが････

Ａ(4ｎ+3)＝2+(-1/2)^(2n+1)
は。。。
A(4n+3)=2-(1/2)(-1/4)^n
でした････
----------------------------------
2と、(-1/4)をながめていると
『統一』できそうなきがしてきたケド…

　4005x5381=21550905 となりました。

　　　　□□□５
　　　×□□□１
　　　─────
　　　　□□□５
　　□□□□□
　□□□□□
２００２５
────────
２□□□０９０５

　神のお告げで、ここまでを速攻で決めると、
一撃で被乗数が判明し、あとは埋めてゆくだけとあいなりました。

＊解の一位が５のため、被乗数か乗数の一位のどちらかが５。
＊筆算の一行め？が、４桁のため、乗数の一位が５ではやりにくい。

　ってな具合で。小学生的アプローチでなんとか。^^;

つちやさん、こんにちは。

> 　4005x5381=21550905 となりました。

せーかいです。

> ＊解の一位が５のため、被乗数か乗数の一位のどちらかが５。
> ＊筆算の一行め？が、４桁のため、乗数の一位が５ではやりにくい。
>
> 　ってな具合で。小学生的アプローチでなんとか。^^;

清く正しい虫食い算の解き方だと思いマス。

答えは…
サッパリ分かりません (/ρ＼)

ザキさん、こんにちは。

> 答えは…
> サッパリ分かりません (/ρ＼)

ヒントを出しておきました。

花びらの向こう側に虫がいる…

ザキさん、こんにちは。

> 花びらの向こう側に虫がいる…

遅くなりましたが、正解を発表しました。
ザキさんの「花びら」と「虫」はあっていました。
虫の種類は正解者なしでした。

対消滅って、「ついしょうめつ」って読むんですね。
いままで、「たいしょうめつ」って読んでいました。
ひとつ賢くなりました。

ちなみに、「既出」、「巣窟」も２ちゃんねる見るまで、
正しく読めていなかった人です。(w

KYOSKEさん、こんにちは。

> ちなみに、「既出」、「巣窟」も２ちゃんねる見るまで、
> 正しく読めていなかった人です。(w

自分の読み方と他の人の読み方が違うときは、
どちらが正しいか辞書で調べて確認しましょう。
いつも他の人が正しいとは限りません。

既出（きしゅつ）
巣窟（そうくつ）

もう少し詳しく書いた方が良かったかな。

１．既出を「がいしゅつ」と読んでいた。
２．２ちゃんねるで「がいしゅつって、既出のことですか？」という書きこみを見る。
３．既出の読み方を調べて見る。
４．「きしゅつ」が正しい読み方だった。(ガーーーーン)

というプロセスを経ています。(w

> 自分の読み方と他の人の読み方が違うときは、
> どちらが正しいか辞書で調べて確認しましょう。
> いつも他の人が正しいとは限りません。

ええ、何事も鵜呑みにせず、自分で調べて見ることは、
大切だと思います。

はじめまして。「俺ぽーたる」経由で9月26日の日記を拝見しました。
「スタイルシートオン」のスクリプトですが、ページで代替スタイルシートを用意している場合だと、もともとdisabled=trueである代替スタイルシートまでもが有効となってしまうので、表示が崩れる場合があるようです。と念のためご報告まで。

北村さん、こんにちは。

> 「スタイルシートオン」のスクリプトですが、ページで代替スタイルシートを用意している場合だと、もともとdisabled=trueである代替スタイルシートまでもが有姑なってしまうので、表示が崩れる場合があるようです。と念のためご報告まで。

ご報告ありがとうございます。
少し改良してみました。

どうも、すけです。
ちょいと悩も事がありまして教えていただけると幸いです。
68040についてなんですが‥

FFF0001A：61　00　06　88　････
というコードで　＄06A4番地にジャンプすると思ってたら

$00007FC番地(スタック）に　$FFF0001E を書き込んで
$06A0番地に飛びたがるんでス…

$0688+$1C→$06A4 だとおもっていましたが････
こういうことってありえますか？

ハードが自作なので（って、cpu+sram+rom+μD8251　しかありませんが）・・・トンチンカンな質問かもしれませんが…
気が向いたら教えてください、
---------------------------------------------
(参考)
XC68040に4個のROMとRAMをつなげて…
RAM　$00000000〜$0001FFFF。
ROM　$FFF00000〜$FFF1FFFF。

ROM：(内容)
FFF00000:00 00 00 00 FF F0 00 08
FFF00008:20 7C 00 00 08 00 2E 48
FFF00010:70 00 4E 7B 08 01 4E 7B
FFF00018:00 02 61 00 06 88 ** **
********

（PRNファイル）
X68k High-speed Assembler v3.09+87 Copyright 1990-94/96-99 Y.Nakamura/M.Kamada
Oct/14/02 16:46:03
<68040.s>
1 00000000 ;*********** main **************
2 00000000 .CPU 68040
3 00000000 main:
4 00000000 4E71 nop
5 00000002 4E71 nop
6 00000004 4E71 nop
7 00000006 4E71 nop
8 00000008 207C00000800 move.l #$00000800,a0
9 0000000E 2E48 move.l a0,a7
10 00000010
11 00000010 7000 move.l #0,d0
12 00000012 4E7B0801 movec d0,VBR
13 00000016 4E7B0002 movec d0,CACR
14 0000001A
15 0000001A 61000688_000006A4 bsr vecinz
（以下略）

すけさん、こんにちは

> FFF0001A：61　00　06　88　････
> というコードで　＄06A4番地にジャンプすると思ってたら
>
> $00007FC番地(スタック）に　$FFF0001E を書き込んで
> $06A0番地に飛びたがるんでス…
>
> $0688+$1C→$06A4 だとおもっていましたが････
> こういうことってありえますか？

ROMの内容に間違いがなければソフトウェア的にはあり得ません。
最初のwriteの直後というのが気がかりですが、ハードウェアは
安定しているのでしょうか。

ども、すけです。

お騒がせしました…どーやら、「ハードが不安定」ということ
みたいです　:<

その先もステップ動作させてみたら

「＄FFF006A0番地のリード状態」
「＄FFF006A4番地のリード状態」
「＄FFF006A8番地のリード状態」
　…
と推移していきました…

『$FFF006A0　には、BRA命令があるんですが
BRA命令は実行されなかったものとみられます…』
「$FFF006A4　以降の内容は実行されているみたいです」
（外部回路のRS-232用クロックの分周がキチンと指定した分周比で
出力されるので…）

っで、「まあ動くからいいかぁ」と思って通常動作させてみたら…
電源オンから数秒でフリーズしました

もっともハードがめちゃ不安定ということですから…
すべては、しっかりハードが動いてから　ということですね。

う〜ん、はずかちぃ〜。　(＋o＋)

> 『$FFF006A0　には、BRA命令があるんですが
> BRA命令は実行されなかったものとみられます…』
> 「$FFF006A4　以降の内容は実行されているみたいです」

$06A0にジャンプしたのではなくてreadしただけでしたか。
ラインreadのような挙動にも見えますが、命令キャッシュが
OFFなのでそれはないはずですよね。
ジャンプ先が奇数ワードのときは1ワード手前からフェッチが
始まりますが、この場合は偶数ワードなのでその可能性もなし。
68040には分岐キャッシュはないし…

> っで、「まあ動くからいいかぁ」と思って通常動作させてみたら…
> 電源オンから数秒でフリーズしました

いきなり数秒も動くのは凄いような。
がんばってレリーズしてください。

僕がVC++6での最適化を諦めた理由
(CPU セレロン650MHz)

static int foo(char *p)
{
char *q;
q = p;
if ( *q++ != '{' ) {
return -1;
}
while ( 1 ) {
if ( *q == '\0' ) {
return -1;
}
if ( *q++ == '}' ) {
if ( *q != '}' ) {
break;
}
}
}
return q - p;
}

static int goo(char *p)
{
char *q;
q = p + 1;
while ( 1 ) {
if ( *q == '\0' ) {
return -1;
}
if ( *q++ == '}' ) {
if ( *q != '}' ) {
break;
}
}
}
return q - p;
}

int main(void)
{
int i;
char *p;
p = "{123456789012345678901234567890}";
for ( i = 0; i < 1000000; i++ ) {
foo( p );
goo( p );
}
return 0;
}

関数 ﾋｯﾄ
時間 % ｶｳﾝﾄ 関数
----------------------------------------------
396.412 29.0 1000000 _foo (tst_test.obj)
494.316 36.2 1000000 _goo (tst_test.obj)

ゆうき喬史さん、こんにちは。

> 396.412 29.0 1000000 _foo (tst_test.obj)
> 494.316 36.2 1000000 _goo (tst_test.obj)

処理が少ない関数のほうが時間がかかっているということでしょうか。
どんなコードになっているのか見てみたいです。

鎌田さん、こんにちは。

> > 396.412 29.0 1000000 _foo (tst_test.obj)
> > 494.316 36.2 1000000 _goo (tst_test.obj)
>
> 処理が少ない関数のほうが時間がかかっているということでしょうか。

そうなんです、プロファイルとって、100万回単位で呼ばれてる
処理があったので、少しでも短くしようと、if文を削除したら、
かえって遅くなってしまうという・・・

いったい俺にどうしろと。

> どんなコードになっているのか見てみたいです。

みるかぎり、おかしなことにはなってないんですが・・・
今度また該当部分のアセンブラコードをアップします。

ところで、gccでは、どんな結果になるんでしょうか。

> ところで、gccでは、どんな結果になるんでしょうか。

こうなりました。わりと普通ですね。
とりあえず、余分な分岐命令を実行する必要はなさそうです。

.align 4
.def _foo; .scl 3; .type 32; .endef
_foo:
movl 4(%esp),%ecx
leal 1(%ecx),%edx
cmpb $123,(%ecx)
je L4
movl $-1,%eax
ret
.align 4
L4:
cmpb $0,(%edx)
je L7
movb (%edx),%al
incl %edx
cmpb $125,%al
jne L4
cmpb $125,(%edx)
je L4
movl %edx,%eax
subl %ecx,%eax
ret
.align 4
L7:
movl $-1,%eax
ret
.align 4
.def _goo; .scl 3; .type 32; .endef
_goo:
movl 4(%esp),%ecx
leal 1(%ecx),%edx
.align 4
L13:
cmpb $0,(%edx)
je L16
movb (%edx),%al
incl %edx
cmpb $125,%al
jne L13
cmpb $125,(%edx)
je L13
movl %edx,%eax
subl %ecx,%eax
ret
.align 4
L16:
movl $-1,%eax
ret

こんにちは、ゆうきです。

> > ところで、gccでは、どんな結果になるんでしょうか。
>
> こうなりました。わりと普通ですね。
> とりあえず、余分な分岐命令を実行する必要はなさそうです。

わざわざ、ありがとうございます。
やっぱり、gccだと普通になるんですね。

VC++6では、この他にも、命令削って遅くなったり、速度が
変わらなかったりがあって途方にくれてしまいました。

ども、ゆうき喬史です。

> どんなコードになっているのか見てみたいです。

以下、アセンブラソースです。


_foo　　PROC NEAR
　　mov edx, DWORD PTR _p$[esp-4]
　　mov cl, BYTE PTR [edx]
　　lea eax, DWORD PTR [edx+1]
　　cmp cl, 123
　　je　SHORT $L65683
$L65720:
　　or　eax, -1
　　ret 0
$L65683:
　　mov cl, BYTE PTR [eax]
　　test　　cl, cl
　　je　SHORT $L65720
　　inc eax
　　cmp cl, 125
　　jne SHORT $L65683
　　cmp BYTE PTR [eax], 125
　　je　SHORT $L65683
　　sub eax, edx
　　ret 0
_foo　　ENDP

_goo　　PROC NEAR
　　mov edx, DWORD PTR _p$[esp-4]
　　lea eax, DWORD PTR [edx+1]
$L65694:
　　mov cl, BYTE PTR [eax]
　　test　　cl, cl
　　je　SHORT $L65727
　　inc eax
　　cmp cl, 125
　　jne SHORT $L65694
　　cmp BYTE PTR [eax], 125
　　jne SHORT $L65728
　　jmp SHORT $L65694
$L65727:
　　or　eax, -1
　　ret 0
$L65728:
　　sub eax, edx
　　ret 0
_goo　　ENDP


遅い原因わかりました。

けど、どうしようもないというのもわかりました。

>いきなり数秒も動くのは凄いような。
>がんばってレリーズしてください。

モニタソフトは　CQの「作りながら学ぶ68000」から　パックンして
RS-232は、「OH!MZ　87/5」の記事をそのままパックンして
自分で書いた回路は　アドレスデコーダと　/TA遅延くらいですから
ほんとは、即・動作！　っていきたいところですが…
しっかり、「フ」リーズ　しております。
「レ」リーズするのは…いつになることやら…

シャープがガラス基板の上にＺ８０を作ったそうです。
http://pcweb.mycom.co.jp/news/2002/10/22/09.html

はんかつさん、こんにちは。

> シャープがガラス基板の上にＺ８０を作ったそうです。
> http://pcweb.mycom.co.jp/news/2002/10/22/09.html

あちこちで話題になっていますね。
本当に動いているのだということを示すためにMZ-80Cを実際に
動かして見せたというところが素晴らしいと思います。
見た目はレトロでも中身は最先端。
ふと、大学の学園祭を思い出してしまいました。

> シャープがガラス基板の上にＺ８０を作ったそうです。
なんというか、ロマンのようなものを感じます。いい話だぁ〜。

> 本当に動いているのだということを示すためにMZ-80Cを実際に
> 動かして見せたというところが素晴らしいと思います。
確かに。ただ展示するだけじゃなくて、そこでゲーム動かしてみせるってのはステキですね。

たしかに酷いっす。＞ＪＡＶＡスクリプト
基本的に全角アルファベットはあんまり好みじゃないです。まあ好みの問題ですが。

ちなみにJavaScriptは「Javaが由来のスクリプト言語」ではなかったはずです。
C++を参考に作ったスクリプト言語で、最初の名前はLiveScriptだったと聞いたことがあります。
そんでJavaが世の中に出るのと同じ頃だったのと、C++を参考にしている点でJavaと一緒なので(?)、
便乗してJavaScriptという名前を付けたんだったような。
正確かどうかあやしいですが、大筋はあってるはずです。

Fukaiさん、こんにちは。

> ちなみにJavaScriptは「Javaが由来のスクリプト言語」ではなかったはずです。

あぅ、一語抜けていました。
「一応Javaが名前の由来のスクリプト言語」です。
ご指摘ありがとうございます。

http://e-words.jp/w/JavaScript.html
ここの「Java言語をベースに…」という記述もどうかと…。