ΤϤ
Ⱦײꡩ
226ڡ 0:15:57 20622
Ϥʤ
6066ޤǤ

ͤϺϺȤʤΤ򤭤ɤǡޤä餢ȤϽ硹ˤ

ϺϺ롣60̤
ϺϺȸ壱͡61̤
ȤϤʤ󤸤ǡ
226ڡ 0:16:25 20623
ڼ
#20622
ȿײǤ
͡ 226ڡ 0:16:54 MAIL:iida@ae.keio.ac.jp 20624
ҥǡ
Ψäʤ
muramasa 226ڡ 0:17:53 MAIL:hideaki_chatani@nifty.com 20625
󤭡
ʬȤƤϷ빽᤯ȤΤ
ĴҤ˾äƽ񤭹ߤǤ

Ϻΰ֤Ȥ˹ͤƤä
ܣܣܣܣܣܣäƤޤ
߾ˤʤΤǤ줷ʤä㤦Ǥ


ѤǤ礦ȤĥäƲ
226ڡ 0:24:03 20626
CRYING DOLPHIN
**ǯ̤ˡֱסֺפϤɤä꤫Ǥ
ֻײסȿײפѤƤޤ

ơޥȥ˲򤯤ˤϤɤФΤ顣
ǯԥ奦ȡ 226ڡ 0:24:12 HomePage:θ³äƤɤΤ餤20627
󤤻Τݤݤ
äݤޤ

ϺϺΤȤΤϣ̤
ϺȬϺΤȤΤϣ̤
ϺϺΤȤΤϣ̤
ϺϻϺΤȤΤϣ̤


Ϻʤ줿ͤưʤͤ
ϺʤˤѥοΤޤ޻Ȥޤ
󤤻顡 226ڡ 0:25:02 20628
󥯥
ס˹Dz򤱤ޤ
ƿͤκ¤ǽʤϡʬκʤ鸵ΰϺʤޤ
Ȥ߹碌Ф2^6=64
ȤϡƤȤ߹碌ǽǤȤȤ򼨤Ǥ
֤äˡ֤äǤȤ褦Ĵ᤬ΤƤȤ߹碌פȽǤޤ
ʤȾϤƤޤ
ʿ硡 226ڡ 0:28:43 MAIL:4351web@yahoo.co.jp 20629
ʤ
ĤŪĴ٤Ƥޤޤ

( 1) 81234567 ( 2) 71234568 ( 3) 81234576 ( 4) 61234578
( 5) 81234657 ( 6) 71234658 ( 7) 81234675 ( 8) 51234678
( 9) 81235467 (10) 71235468 (11) 81235476 (12) 61235478
(13) 81235647 (14) 71235648 (15) 81235674 (16) 41235678
(17) 81243567 (18) 71243568 (19) 81243576 (20) 61243578
(21) 81243657 (22) 71243658 (23) 81243675 (24) 51243678
(25) 81245367 (26) 71245368 (27) 81245376 (28) 61245378
(29) 81245637 (30) 71245638 (31) 81245673 (32) 31245678
(33) 81324567 (34) 71324568 (35) 81324576 (36) 61324578
(37) 81324657 (38) 71324658 (39) 81324675 (40) 51324678
(41) 81325467 (42) 71325468 (43) 81325476 (44) 61325478
(45) 81325647 (46) 71325648 (47) 81325674 (48) 41325678
(49) 81342567 (50) 71342568 (51) 81342576 (52) 61342578
(53) 81342657 (54) 71342658 (55) 81342675 (56) 51342678
(57) 81345267 (58) 71345268 (59) 81345276 (60) 61345278
(61) 81345627 (62) 71345628 (63) 81345672 (64) 21345678
̳ƻ 226ڡ 0:29:26 MAIL:naka@sansu.org HomePage:naka's Home Page20630
DrK
ϺǯǽȤʤޤ
ϥġ󥰤򤷤ƤᡢˤϻޤǤ
θϵĤ٤äꡢ衹ϲ򤱤ʤȻפäƤƤޤޤ轵ֺȤΤǤ
ˤʤޤ
ϡѡǤ뼡Ϻܤʤ夯ܤޤ
8ܤξϡؤ1ͤʤΤǡ1̤ꡣ7ܤξϡ6C16̤ꡣ6ܤξ6C2ϺθʪӽФȤǤ뤬2򤷤ǡʤƤͤʤϡϺ7ܤˤƱȤˤʤΤ6C2=15̤ꡣʸ塢5ܡ4ܡ3ܡ2ܤȤɤäƤȡ
6C0+6C1+6C2+6C3+6C4+6C5+6C6=1+6+15+20+15+6+1=64
64̤꤬
Ǥդ򳫤Ƥߤȡ8^2=64ƱˤʤäƤޤä

ǯ126ʹߡ轵ġ󥰤˽ФƤޤ
1267ġ(롢Ĺ191
121214󥬥ݡ
1213󥬥ݡ糤1
1214ޥ(Φμ)1
122021⡢Ҷ(縩)1Į
122911硢()
110121
11718ܸ硢
117ܸ1
118
ʾǤ
226ڡ 0:29:53 MAIL:satoka@star.odn.ne.jp 20631
ʤ


ʤ꤬Ǥ
Ĥޤ꼫ž֤Υϥɥ򱦤˸ޤޤˤȲΤꡣ
̳ƻ 226ڡ 0:32:06 MAIL:naka@sansu.org HomePage:naka's Home Page20632
DrK
Ф餯ʤ֤ˡĿͥǡäƤ
Τᡢ򤷤ƤΤˡڤƤŪ˸äDΤȤȹͤΤǡDzѻ򸫤顢ĿͥǡϤΤ褦ˤʤäƤΤ餫ΤǤ礦
ϳڱफ?㤦ʡ 226ڡ 0:36:53 MAIL:satoka@star.odn.ne.jp 20633
Ϥʤ
ʤۤɡ߾ˤʤ餺ʤΤ
226ڡ 0:43:11 20634

̯ǿƤޤäơơ
226ڡ 0:43:51 20635
󤭡
­
ϺϺΰ֤˺¤Ȥ٤ϻϺϺ
⤷ϺȤ鹹ˤ٤ϻϺϺ
Ʊͤ˹ͤƤ
ޤǤɤǤޤܤǤʤȤȤˤʤޤ
ʤΤǡϤʤθȤ겿ͷǤ⣲߾ˤʤ褦Ǥ
ԡ 226ڡ 0:46:44 20636
ޥ
#20622
ȾײꢪȿײޤŦ꤬Ȥޤm(__)m
MacOS X 226ڡ 0:54:55 MAIL:masaru-y@kt.rim.or.jp HomePage:20637
Ĥ褷
ȯʤʤ٤ʤޤ

#20600
ؤĤ褷Ū䤵äΤǡǤޤ
219ڡ 16:27:31
ϡ䤬ƤΤǤϤޤ
ï̾٤äƤͤǤ͡
ʡָΰդǤϤʤä ȤϡͤʤǤ礦
ǤǤƤǤϤʤΤǡ 䤬Ͻʤ

դΤ٤ʤޤ
Ǥϡ٤ߤʤ
ܡ 226ڡ 2:25:40 20638

ܤϡǸͤǾʬ򤷤ޤ
ϺǸʤʬʤ˺¤뤫飱̤
ϺǸʤϺʲʬʡϺϣƱ飱̤
ϺǸʤϺʲʬʡϺϣƱ飱ܣᣲ̤
ϺǸʤϻϺʲʬʡϺϣƱ飱ܣܣᣴ̤
ĴҤǽ˹ͤСͿƤ⣲ܤĤˤǤ
226ڡ 2:30:04 20639

Ϥ褦ޤ
ϺȿײˣޤǤǾʬޤ
Ȥ
󤵤Ʊͤ
ᣱᣱʣˤܡˤʤޤ
ᣳǷףǤ
226ڡ 6:37:28 20640
ȥȥ
ޤ٤ޤ
򸫤ޤƿƤޤ
īƹͤľȡä򤱤ޤ
Ϳ򣱿ͤ䤷Ƶ§ͤޤ
ʼ˸лԡ 226ڡ 8:16:40 MAIL:h-sakai@zb3.so-net.ne.jp 20641
M.Hossie
Фˤ㡣Ǹˤ줬ä뤫ǾʬɤǤ礦
ȤǡؤͤƤޤ餫񲽤Ƥޤ͡ʸ裱ϤɤäƤ a = 18/5 ˤʤǡ¿ʬäƤǤ礦 (׻ˤϵǽٲžΰ켡ѴȤޤ)ޥ뤵󤴻Ŧ Hypocycloid ⡢ (x, y) žѦȤǥѥ᡼ɽơy*(dx/d)*d 0 2 ޤʬƤʤǤ礦Ƿ׻ΤޤΥꤲ㤤ޤ¿ʬܤʤ顢裱ʸ裳䡦裴򤭤äơȤʬǿӤ餹˽Фޤ120 40 椬Υ饤󤫤Ȼפ졣
˿ꡡ 226ڡ 10:53:43 20642
̾õ
ʤ夯Ϳֹ͡2ˤʡֹ1ˤĤΤȤ¤ϣ̤ꡣ
ʤοn-1ֹ3ȣ)Ǻ¤٤Ϳ
n-1ֹ͡2ˤΤȤ
¤οA(n-1)̤Ȥޤ
ʤ夯Ϳn-1ͤ飱ֹ͡n+1
ʤ⣱ġֹn+1硢
οֹͤn+1ʤ˺¤뤫αֹ棱ʤ˺¤ޤ
äơA(n)2A(n-1)
äơA(n)2^(n-1)
A(7)2^664
226ڡ 11:14:20 20643
Taro
ȬϺդ˹ͤΤΡ
ȤƤƤϤޤ͡
ǸϺ̤äƤȤ˺Ƥޤ()
Mystery 226ڡ 12:24:30 20644
Ĺ
԰ʤȡηǼġˤΡŷšϥǤ(^^;
轵ȺܤǤ

ŲϿʬȰײƤޤ
Ƥ󤷤󡡡 226ڡ 14:21:18 HomePage:åȬ20645
ܺã
ϺξϺϺΣ̤
ϺξϺϺϺϺξäͤΤǣ̤
ϺξϺϺϺϺϺȻϺξäͤΤǣ̤
ϻϺξϺϺϺϺϻϺϺȻϺȸϺξäͤΤǣ̤
ʲƱͤˤƼϺȬϺξ⣲̤ǤꡢϺξϻĤäǸΰͤˤޤ̤
äơʤ¤Ӥϡ᣶̤
226ڡ 15:12:52 20646
ϥ饮㡼ƥ
˻Ƥ褦䤯ʬʤǹͤƤޤ

ͤ˶ƤäƲޤ
̶彣 226ڡ 16:00:07 HomePage:湩ؤ˥20647
̾õ
ʼΤ󤱤󥲡Ʊˤʤޤ͡
ǽ顢ϺȻϺ󤱤󤷤ޤä֤ʤ˺¤ޤ
餱ϻ֤ʤäƻϺȤ󤱤
ä֤ʤ夭ޤ
餱ϸϺʲƱͤˤơ󤸤󤱤󤬹Ԥޤ
󤱤١̤Τǡ
Σ᣶̤ˤʤޤ
226ڡ 17:18:18 20648
̾õ
ͤ󤱤ξԤϡͤΤ˱夤ͤб
󤱤ԼԤϡͤΤDZ夤ͤбޤ顣
226ڡ 17:31:15 20649
M.Hossie
ơޥ뤵̩˴ԤƤ뺣ǯؤιɾʤɤ򡣺٤ޤDz򤤤´Ȥ˽񤤤ƤߤޤʸϤǯ¤ߤ˰פϤϣǯ³ײ˽䤬Ǥ줿ǤϤʤȤϸ1980 ǯ潪꺢ΰ۾·äȤޤǤϸʤ꽸ǸС֣Убפĥ㡼ȡ¤Υ٥ǽʬбǽǤ롣ϤȹݤΥܡ 40 ΤǤϤʤȻפ졣

[]ϤϤȤˤɮԤ P (p, p^2), Q (q, q^2) Ⱥɸꤷξ狼 p + q =2P 濴 Q /3 ž R ˤʤΤǡžΰ켡Ѵ R κɸᡢ줬 y = x^2 ˤȤĤξ狼 p, q ޤȤˤ׻ɤ a= 18/5 ߤͭˤʤäΤճǤäȤ衣
[ʸ]ǯײˡˤꡣפϷ -1 ˤʤ褦ΰΣͭ뤫̵ǾʬФΤȡ㡼ȼʤ󤫤꤬ͭǴǽꡣ
[ʸ]ʸȤˤ줬ְפꡣդ񤤤夤ƹͤ 10 ʬǴ롣ϤǤϣˤޤdzĥƤ뤬פϣļ뤿Ӥˤ줾βФƣĤβ򤬽ФΤǡ²θĿ߾Ƥ롣դįФääʤΤǡͽߤˤ虜虜Ǽˡʤ󤫻ФƾޤǤʤȻפ졣
[ʸ] (1) ϼ޽񤱤Фޤ(2) ʸϤǤϴ˸ꤷƤΤ;굤򸯤ʤƤ⤤ϤǤϼ̤ʤΤ even odd ǾʬʤȤʤΤǥޥγΨϤۤܳμ¤ȤͻˤʤΤǼɬޥƤʤФʤʤ֤ʬǤ롣
[] (1) ɮԤʿ (10p + 1)^2, (10p + 2)^2, (10p + 9)^2 ȣ̤񤭽Фơ줾ˤĤƲ¤ˤʤ뤫ˤʤ뤫Ĵ٤ޤť줬ֳμ¡(2) (1) ξΤǡ 0000 4444 Τɤ餫4444 ˤʤʤ顢ο (100p + 10q + 2)^2 (100p + 10q + 8)^2 Τɤ餫ǽ񤱤뤬ɤ⣲ܤ䣳ܤ 4 뤳Ȥʤ (¸)ޤ0000 ξ 100 Σ褬Τɬ 10000 ܿˤʤʿͭ뤳 (¸) 򼨤ƾˤޤ¿ʬäȥޡȤʾͭȻפޤΤǤ 20 ʬݤޤ
[]äΣΥʡΤޤǡƥɤȤȥɤʤɤȸ򤸤äơ֥ϥݥɡפҲ𤵤Ƥ뤫ΤޤP Ȥ޲ѿɽơy* (dx/d)*d ʬ׻ʤɡ줬ĶΤɮԤȯꤲޤФäȺǸޤǷ׻褿ۤϺޤꡣ
[]ФԤϤäΤ̣Ǥ͡(1) x μ˲žФʤɡ(2) Ϥɤ㤤Τ顩ߤʤΤ V ñĴôؿʤΤǡϰդʤǤܤ r = 1.3 餤 0.1 ߤޤ衣Ūˤ Newton ˡʤɤǶ׻󤫤͡ǯϤϤΣ֤ϥݥɤΣ֤ʤɡΤҤͤ⹩פʤ꤬ΩġԤͥڤ줫

˿ꡡ 226ڡ 20:44:02 20650
n
>M.Hossie
褯äƤޤ


226ڡ 23:40:51 20651
n
졩äΤ̾ʤ
227ʶ 1:04:48 20652
Ȥ
ʬν֤ʤʤäƽƱ֤Τ
褺3֤νï֤ǹͤʤƤϤޤ
ޤޤȤä꤬ͤǤ
ȤΤ2֤οͤΤߤ٤Ʊ¦
Ȥܤοͤ2ܤν1֤οͤνˤޤ
¦ȱ¦꺸¦ˤ֤ʤǤ
ƬܤǤǤ
05ʬ˵ΤǤ줬դ
礦ʤΤǥͥåȡե(㤦֤õࡣ)Ϥ䤯ɤʻˤŤˤʤꤿȻפκǤ
θ˭ԡ 227ʶ 11:04:25 MAIL:nm528@ybb.ne.jp 20653
takachan
褦䤯ư©ĤƤȤǤϺʤֽ֤ʬƹͤƤޤǽ飱ܣܣãܣãܡȤäƤޤ褯ͤȼʬʤƤ餤ĤǤ⼫ʬʤ˺¤Ǥ͡Ǽʬʤ˺¤äƤʤͿͤƷɣˤʤޤ
ԷǼĤ¾Υ쥬Ȥʲˡؤ٤ΤǤ줷Ǥ

227ʶ 18:08:11 20654

2/25λ24:00긫롣ŬˤĤ뢪
ƤΤǡ˵Ť硦ĥ⤷Ƥʤ
2/26̤˲ľΤ˺
2/27ΤȤΤ
2/28ߡʸΰ̣㤨Ƥʬ˱ࡦ

M.Hossie
ϡפǶηȤƤΡϤ䤦ʪ˽Ťʤä񤷤ΤǤϤʤʤäȤΤδۤǤ
Ǥ150ʬ֤θƻפäΤǤʤ60/120ߤåȤʤäȡʤȺǤϵʬ㤦Ǥ礦
ϤȤ⤢졢ǯμˤȤäƤɤ̣Ǥβ꤬褿Ȼפޤ
ʤǯε񲽤ͽۤưĥʤȹԤޤ͡
̤̪ 228ڡ 1:14:04 MAIL:kentaro@qa2.so-net.ne.jp 20655
⡼ޥ
ǽͤˤäǤ2ܤʤ23¤줺2ΤȤϼ34¤줺3ΤȤϼ24¤줺ʬꡢǴϼưŪ˰ͤ˷ޤΤǡ2^6 ʬޤƤ褫ä
228ڡ 13:18:01 MAIL:kennji72001@yahoo.co.jp 20656
M.Hossie
Ĺ󡢤ɤϤ줵ޤǤޤؤۤκݤޤ礦ޤ륱󤵤ޥ뤵ޤ

#20651 ()
ɤԤΤϡŴƻġפȡֹҶġפȡֹιġפǤ̤͡ĥ򥿤ȤҶ򥿤ȤǤϤʤǤɡ

#20655 ()
줵ޤǤޤޤͭޤΤǵȴʤǡ
ǯǤŦ̤ꡢ Hypocycloid ʪѷɮƬ˷׻겡ϽŻǡҤ᤭ؤäʤǤ͡ͻҤįƤƻפΤǤǶμˤμΥ겡׻Ǥ͡ǯμˤϣ䴰⤴褦Ǥ¦̵ǤΩΤܤȤƤϣϤߤȤǤ¿ʬ 40 椬ݤʬܤˤʤ褦˻פޤϥޤˤʤꤽʥ襫󡣤μˤʹƤߤƲ󤬻פۤɤˤФ˽ƤʤǤäơ
˿ꡡ 228ڡ 13:26:21 20657
̾õ
A(1)ᣱA(n)=A(n-1)Ǥʤ
A(0)=1,
A(n)=A(n-1)+A(n-2)++A(1)+A(0)ᦲ{k=0 to n-1}A(k)
ǤA(n)=2^(n-1ˤˤʤޤ͡
#20628󤤻Τݤݤ󤵤(¦ʥѥˤȡ
#20639󤵤ʱ¦ʥѥˤ򻲹ͤˤޤ
դޤٶˤʤޤ
228ڡ 19:36:25 20658
̾õ
#20623ϤʤΤ餷Ǥ͡
⤵ĺޤ
ϺȬϺޤǤΣͤΤʬʤ失ʤä͡ʣ0 to 6ˤϡ
ʥ롼˽ɬǯ˶ʤ
ͤƤޤ
Ĥޤꡢͤ鼫ʤ失ʤͤꤹСʤ¤Ӥ
Ū˷ޤ롼ˤʤäƤޤ
äơ6Ck ʤ失ʤͿͤȤȤ¤Ӥο
äơ¤Ӥᦲ6Ck (1+1)^664̤ˤʤޤ

֡פˤʤͳʬʤ˺¤ʤʤäϺ
줫ʤȤäǡ
줬ȵڤΤǤ
ȤСϺϻϺȬϺΣͤʤ失ʤȤϡ
ϺϺʡֹ棳ˤȤꡢ
ϺϻϺʡֹ棶ˤȤꡢ
ϻϺȬϺʡֹ棸ˤȤꡢ
ȬϺʡֹ棱ˤ夤ȤȤˤʤޤ
228ڡ 22:57:44 20659
n
>M.Hossie

꤬Ȥޤ
(;)ϥϥ׻¿ʡ
ꣵ֤ϱߤѤ٥ǰȯǤǤ
()

>̾õ夵
ǤA(n)=2^(n-1ˤǤ򤤤Ǥ͡äȹͤƤߤ衡


(;)
229 7:14:56 20660
naru
Ǥϲ򤯤ȤǤꤴCȤߤޤ.
/********************************************
˥󥸡

2004/02/26,27

64̤
Programed by Naru
*******************************************/

#include <stdio.h>

#define ON 1
#define OFF 0
#define True 1
#define Falth 0

#define LEN 11
#define Num 8
#define Rec_max 5040

int r[LEN];
int count = 0;

int perm_rec[Rec_max][Num];
int used_num[Num];

int convert_rec[Rec_max][Num];
int ccount = 0;

//Ͽ
void record(int dat[])
{
int i;
for(i = 0; i < Num; i++)
convert_rec[ccount][i] = dat[i];
ccount++;
}

//ФʤFalthʤTrue֤
int compare(int dat[])
{
int i, j, cnt = 0;
if(ccount == 0) return True;
for(j = 0; j < ccount; j++){
for(i = 0; i < Num; i++){
if(dat[i] == convert_rec[j][i]) cnt++;
}
if(cnt == Num) return Falth;
cnt = 0;
}
return True;
}

//󤫤դΤ褦¤ؤ
void convert(void)
{
int i, j, k, s;
int tmp[Num+1];
int Loop_end_flg = OFF;

count = 0;
for(i = 0; i < Rec_max; i++){
for(s = 0; s < Num; s++){
tmp[s] = Num;
used_num[s] = OFF;
}

for(j = 0; j < Num; j++){
if(j == 0){
tmp[1] = perm_rec[i][j];
used_num[1] = ON;
}

if(j > 0){
if(used_num[perm_rec[i][j]] == OFF){
tmp[perm_rec[i][j]] = perm_rec[i][j];
used_num[perm_rec[i][j]] = ON;
}
else {
k = perm_rec[i][j];
while(Loop_end_flg != ON){
k++;
if(k > 7) k = 0;
if(used_num[k] == OFF){
tmp[k] = perm_rec[i][j];
used_num[k] = ON;
Loop_end_flg = ON;
}
}
Loop_end_flg = OFF;
}
}
}

if(compare(tmp) != Falth){
record(tmp);
count++;
printf("count:%4d ",count);
for(s = 0; s < Num; s++) printf("%d,",perm_rec[i][s]);
printf(" ");
for(s = 0; s < Num; s++) printf("%d,",tmp[s]);
putchar('\n');
}
}
}

//ϺƬˤƽ
void perm(int k)
{
int i, j, tmp;

if(r[0] > 0) return;

if(k < Num){
for(i = k; i < Num; i++){
tmp = r[i];
for(j = i; j > k; j--) r[j] = r[j-1];
r[k] = tmp;
perm(k+1);
for(j = k; j < i; j++) r[j] = r[j+1];
r[i] = tmp;
}
}
else{
count++;
for(i = 0; i < Num; i++) perm_rec[count-1][i] = r[i];
}
}

int main(void)
{
int i;

for(i = 0; i < Num; i++) r[i] = i;
perm(0);
convert();

printf("%dȤ",ccount);
return 0;
}
229 11:13:52 20661
粬ҹ
ͤλ̤
ͤλ̤
ͤλ̤
ͤλ̤
狼鼫ʬʤƤϤ˺¤Τ顢ʬξʤͤϼʬκ٤ˤϤʤȤ
̤ꤹƤ

äƣʣݣˡᣲ֣ϿͿפͽۤ롣
ͤΤǡʣݣˡ᣶

äƣ̤

ʸΰ̣Ȥ˻֤Ȥޤ
229 18:14:24 MAIL:toshi009@land.hokuriku.ne.jp 20662
Toru Fukatsu
#20650 []ϥ꡼Ȥȷ׻ñˤʤޤʤxyȤǤ路Ƥ1/2(xy'-x'y)ʬФ褤
31ʷ 18:21:06 MAIL:tfukatsu@tth.japanpost.jp 20663
M.Hossie
#20663 (Ť)
Gauss-Greene ϤäλˤФƤ褦ʵͭޤŬѤƤۤȤɷ׻ΤäѤʤ褦ʡ
ߤˡߤ濴ˤơ P ǽ (10, 0) ˤäȤȡߤгѤȤȤ P κɸ (x, y)ϡ
(x, y) = (7cos + 3cos(7/3), 7sin - 3sin(7/3)) Ǥޤ (äƤ뤫ɤ) 3/5 (ߤΰʬߤ 108 ٤) 0 ޤʬǤ⤦ȤƤĤʤ׻ΥǤ
˿ꡡ 31ʷ 20:59:44 20664
Toru Fukatsu
#20664M.Hossie 褦Ǥ(x, y) = (7cos + 3cos(7/3), 7sin - 3sin(7/3)) 1/2(xy'-x'y)ºݷ׻Ƥߤ14-14cos(10/3)ȤʤäơܤʬϣǤ顢14x3/5=42/5 30Сˤ108/5ʾѡˤȳȴñ˷׻Ǥޤ
32ʲС 10:23:51 MAIL:tfukatsu@tth-japanpost.jp 20665
Toru Fukatsu
#20665 ۤɤΤɽäȺ𤷤ޤ214cos(10/3)14cos(10/3)Ʋ
32ʲС 10:41:25 MAIL:tfukatsu@tth-japanpost.jp 20666

Ϻ飸ϯޤǤδ֤ǡʬʤ失뤫Ĥʤǣ̤Ǥ򣶾褹ФǤޤ
33ʿ 9:48:54 20667
???
ꤴꥨ
Option Explicit
Sub Macro1()
Sheets("Sheet1").Select
Cells(1, 1).Value = 0
Range("A1").Select
Dim a(8) As Integer
a(1) = 1
Call saiki(2, a())
End Sub
Sub saiki(ByVal n As Integer, ByRef a() As Integer)
Dim b(8) As Integer
Dim c(8) As Integer
Dim d(8) As String
Dim kimari As Integer
Dim onaji As Integer
Dim chigau As Integer
Dim j As Integer
Dim jj As Integer
a(n) = 2
While a(n) <= 8
If dame(n, a()) = 0 Then
If n < 7 Then
Call saiki(n + 1, a())
Else
a(8) = 8
For j = 1 To 7
a(8) = a(8) + j - a(j)
Next j
'
For j = 1 To 8
b(j) = 0
Next j
b(2) = 1
c(1) = 2
For j = 2 To 8
kimari = 0
jj = a(j)
While kimari = 0
If b(jj) = 0 Then
b(jj) = 1
c(a(j)) = jj
kimari = 1
Else
jj = (jj Mod 8) + 1
End If
Wend
Next j
For j = 1 To 8
d(a(j)) = Str(a(j)) + ":" + Str(c(a(j)))
Next j
For j = 1 To 8
Cells(1, 9 + j).Value = d(j)
Next j
'
chigau = 0
j = 1
While chigau = 0 And j <= Cells(1, 1).Value
onaji = 0
For jj = 1 To 8
onaji = onaji - (d(jj) = Cells(j, jj + 1).Value)
Next jj
If onaji = 8 Then
chigau = 1
Else
j = j + 1
End If
Wend
If chigau = 0 Then
Cells(1, 1).Value = Cells(1, 1).Value + 1
For j = 1 To 8
Cells(Cells(1, 1).Value, j + 1).Value = d(j)
Next j
Else
j = j + 1
End If
End If
End If
a(n) = a(n) + 1
Wend
End Sub
Private Function dame(ByVal n As Integer, ByRef a() As Integer) As Integer
Dim j As Integer
dame = 0
j = 1
While dame = 0 And j < n
If a(j) = a(n) Then
dame = 1
Else
j = j + 1
End If
Wend
End Function
33ʿ 16:24:38 20668
M.Hossie
#20665
Ť󤴻Ŧ̤ǤΤ 1 - cos(10/3) 0 3/5 ޤǤʬˤʤޤ͡ܤ׻ߥƤޤ館餤ñʬΤäƤϤåǤ͡ȸǡGauss-Greene ɬܥƥȤϿƤޤ礦
˿ꡡ 33ʿ 20:56:46 20669

>M.Hossie
μǤɤƻʹǤ
ȥ꡼ǤȤʤ˽񤫤ʤФʤʤΤǡȤˤʬϤʤȤޤ͡
϶ľˤäƷɷ׻ְ㤨ơ꽪äƤ֤פäȵŤߤޤ
̤̪ 33ʿ 22:07:13 MAIL:kentaro@qa2.so-net.ne.jp 20670