HSP¥Ý¡¼¥¿¥ë
¥µ¥¤¥È¥Þ¥Ã¥× ¤ªÌ䤤¹ç¤ï¤»


HSPTV!·Ç¼¨ÈÄ


̤²ò·è ²ò·è Ää»ß ºï½üÍ×ÀÁ

2007
0404
ƿ̾´õ˾ÇüÂç¤Ê¾¯¿ô¤Î°·¤¤9²ò·è


ƿ̾´õ˾

¥ê¥ó¥¯

2007/4/4(Wed) 23:05:14|NO.6982

¤Þ¤¿¤â¤ä¼ºÎé¡£
º£ÅÙ¤Ï super ¦Ð ¤Î¤è¤¦¤Ê±ß¼þΨ¤òµá¤á¤ë¥½¥Õ¥È¤ò
ºîÀ®¤·¤è¤¦¤È»×¤Ã¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢ÇüÂç¤Ê·å¿ô¤Î
¾¯¿ô¤òÊݴɤǤ­¤ëÊýË¡¤¬¤ï¤«¤ê¤Þ¤»¤ó¡£
¤è¤Ã¤Æ¡¢¤³¤³¤Ë¼ÁÌ䤵¤»¤Æ¤¤¤¿¤À¤­¤Þ¤¹¡£



¤³¤Îµ­»ö¤ËÊÖ¿®¤¹¤ë


ƿ̾´õ˾

¥ê¥ó¥¯

2007/4/4(Wed) 23:08:29|NO.6983

ÄÉ¿­¡¢

°·¤¦·å¿ô¤Ï¾¯¤Ê¤¯¤Æ¤â70000·å°Ê¾å¡¢
½Û´Ä¤·¤Ê¤¤¾¯¿ô¤Ç¤ª´ê¤¤¤·¤Þ¤¹¡£
¿Þ¡¹¤·¤¤¤è¤¦¤Ç¤¹¤¬¡¢¤è¤í¤·¤¯¤ª´ê¤¤¤¤¤¿¤·¤Þ¤¹¡£



GENKI

¥ê¥ó¥¯

2007/4/4(Wed) 23:20:39|NO.6984

¡Ä°Ê²¼¡¢»×¤¤ÉÕ¤­¤Ç¸À¤Ã¤Æ¤¤¤ë¤À¤±¤Ê¤Î¤Ç·Ú¤¯Î®¤·¤Æ¤¯¤À¤µ¤¤¡£orz
¥Æ¥­¥¹¥È¥Ç¡¼¥¿¤È¤·¤Æsdim¤Ç¡Ä¡¡¤Ê¤ó¤Æ¡¢¤ä¤Ã¤Ñ¤ê¤À¤á¤Ç¤¹¤«¡©(^ ^;
¿ôÃͤȤ·¤ÆÊÝ»ý¤¹¤ë¤Ê¤é¤¢¤ëÈϰϤη头¤È¤Ëʬ¤±¤ÆÊ£¿ô¤ÎÊÑ¿ô¤ËÊÝ»ý¤¹¤ë¤È¤«¤Ç¤·¤ç¤¦¤«¡Ä¡©
ÉáÄ̤Ϥɤ¦¤ä¤Ã¤Æ¤ë¤ó¤Ç¤·¤ç¤¦¤Í¡£



93

¥ê¥ó¥¯

2007/4/5(Thu) 03:09:19|NO.6986

¤ª¤â¤·¤í¤½¤¦¤À¤Ã¤¿¤Î¤Çºî¤ê¤Þ¤·¤¿¡£
»ÅÍͤǾ®¿ôÅÀ¤Ï¤Þ¤ÀÆþ¤ì¤Æ¤Þ¤»¤ó¡£
¤¢¤È¡¢¾®¤µ¤ÊÃÍ(º¹)Ʊ»Î¤Ç¤Ê¤¤¥Ð¥°¤ë¾õÂ֤ʤΤǤ½¤³¤Î²þÁ±¤ò¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£

·ë¹½¤Ï¤Þ¤Ã¤Æ¹Í¤¨¤Æ¤Þ¤·¤¿¡£¤ª¤â¤·¤í¤¤¤Ã¤¹¡£


#module // // ·å¤òÊݸ¤¹¤ëµ¼»÷ÊÑ¿ô // // p1 = ·×»»¤¹¤ë¿ô(ʸ»úÎó) // p2 = ·×»»¤¹¤ë¿ô(ʸ»úÎó) // p3 = ·å¿ô // #deffunc ExpCacle str p1, str p2, int p3 // ʸ»úÎó¤ò¼Â¿ô¤È¤·¤Æ¹Í¤¨¤ë sdim vtr, 64, 2 vtr(0) = p1 vtr(1) = p2 dim ptr, 2 // .(¾®¿ôÅÀ)¤Î°ÌÃÖ¤ò¸å¤í¤«¤é¿ô¤¨¤Æ repeat 2 ptr(cnt) = instr(vtr(cnt), 0, ".") : ptr(cnt) = (strlen(vtr(cnt))-ptr(cnt)) loop // ¤È¤ê¤¢¤¨¤º.(¾®¿ôÅÀ)¤ò¾Ã¤¹ repeat 2 // 25.020¤À¤Ã¤¿¤é 25¤ò¼èÆÀ front = strmid(vtr(cnt), 0, strlen(vtr(cnt))-ptr(cnt)) // 25.020¤À¤Ã¤¿¤é 020¤ò¼èÆÀ back = strmid(vtr(cnt), strlen(vtr(cnt))-ptr(cnt)+1, strlen(vtr(cnt))) // ¤¢¤ï¤»¤ë 25020 vtr(cnt) = front+back loop // ±ó¤¤Êý¤Î²ó¿ô¤òÊݸ if (ptr(0) > ptr(1)) { ev = ptr(0) } else { ev = ptr(1) } // ʸ»úÎó¤Î¤ò¼Â¿ô¤Ë¤Ê¤ª¤·¤Æ(²ó¿ôʬ-1)¤Î10¤ò³Ý¤±¤ë repeat 2 : i = cnt repeat ev-ptr(i) vtr(i) = vtr(i)+"0" loop loop // ·å¿ôʬ¤Î¿ôÃͤòͽÌó sdim exp, 2*p3 // ¿ô¤ÎͽÌó dim ptr, 2 dim ans, 2 // ¿ô¤òÂåÆþ(str¤«¤éint) repeat 2 ptr(cnt) = int(vtr(cnt)) loop // ·«¤êÊÖ¤·¡¢³ä¤Ã¤¿¿ô¤Î;¤ê¤ò·×»» repeat p3 : n = cnt // ÇÜ¿ô ans(0) = ptr(0)/ptr(1) // ;¤ê ans(1) = ptr(0)\ptr(1) // ·ån = v1 poke exp, n, str(ans(0)) // ·å¤ÎȽÃÇ if (ans(0) == 0)|(ans(1) < ptr(0)) { // ¤â¤·ÇÜ¿ô¤¬ 0 ¤«¡¢Í¾¤ê¤¬Á°¤è¤ê¾®¤µ¤¤¤Ê¤é¼¡¤Ë»ý¤Á±Û¤¹ ptr(0) = int(""+ans(1)+"0") } else { // ¤â¤·ÇÜ¿ô¤¬ 0 °Ê³°¤Ê¤é½ª¤ï¤ê break } loop // ¾®¿ôÅÀ¤ò¤¤¤ì¤ë // ..¹Í¤¨Ãæ return // // µ¼»÷ÊÑ¿ô¤«¤é·å¤ò¼èÆÀ // // p1 = ¤Ï¤¸¤á¤Î·å // p2 = ¼èÆÀ¤¹¤ë·å¿ô // #defcfunc Expinfo int p1, int p2 // ·å¿ôʬ¤Îʸ»úÎó¤òͽÌó sdim p, p2-p1 // ·å¤ò¼èÆÀ if (p1 == 0)&(p2 == 0) { p = strmid(exp, 0, strlen(exp)) } else { p = strmid(exp, p1, p2) } return p #global // ¤³¤³¤Ï´Ø·¸¤Ê¤· sdim buf, 70000, 2 pos 0, 0 : mesbox buf(0), ginfo(12), 200 pos 0, 220 : mesbox buf(1), ginfo(12), 200 // ¤³¤³¤«¤é dialog "7Ëü·å¤Î·×»»¤ò¤·¤Þ¤¹¡£10É䯤餤¤Þ¤Æ¡ª" // ·×»»¤¬exp·¿¤Ë¤Ï¤¤¤ë ExpCacle str(55.1), str(8.0116), 70000 // exp·¿¤ÎÃæ¿È¤òÌ䤤¹ç¤ï¤»¤ë objprm 0, Expinfo() // objprm 1, (55.1/8.0116)



93

¥ê¥ó¥¯

2007/4/5(Thu) 03:34:16|NO.6987

DOUBLE·¿¤ÈºÇ¸å¤Î·å¤¬°ã¤¦¤Î¤Ï»Í¼Î¸ÞÆþ¤µ¤ì¤Æ¤ë¤«¤é¤Ç¤¹¡£¡Ê¿ʬ

¤¢¤È70000·å¤Î·×»»ÃÙ¤¤¤è¤¦¤Ë´¶¤¸¤Þ¤¹¤¬Ž¥Ž¥Ž¥objprm¤¬ÃÙ¤¤¤À¤±¤Ç¤¹¡£
mes¤ËÃÖ¤­´¹¤¨¤¿¤é0.5¡Á1ÉÃÄøÅ٤ǽª¤ï¤ê¤Þ¤¹¡£

PC¤âÁ᤯¤Ê¤Ã¤¿¤â¤ó¤À¡£



¤ê¤µ

¥ê¥ó¥¯

2007/4/5(Thu) 21:22:02|NO.7015

¤³¤ó¤Ë¤Á¤ï¡£

>±ß¼þΨ¤òµá¤á¤ë¥½¥Õ¥È¤òºîÀ®¤·¤è¤¦¤È»×¤Ã¤Æ¤¤¤ë¤Î¤Ç¤¹¤¬¡¢
>ÇüÂç¤Ê·å¿ô¤Î¾¯¿ô¤òÊݴɤǤ­¤ëÊýË¡¤¬¤ï¤«¤ê¤Þ¤»¤ó¡£

GENKI¤µ¤ó¤¬¶Ä¤ë¤è¤¦¤Ë¡¢dim ¤Þ¤¿¤Ï sdim ¤ò»ÈÍѤ¹¤ë¤Î¤¬Îɤ¤¤«¤È»×¤¤¤Þ¤¹¡£

¶ñÂÎŪ¤ÊÊýË¡¤Ï¡¢±ß¼þΨ¤òµá¤á¤ëÊýË¡¤Ë¤è¤Ã¤ÆÊѤï¤Ã¤Æ¤¯¤ë¤Î¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡£
¤¿¤À¡¢¥¢¡¼¥¯¥¿¥ó¥¸¥§¥ó¥ÈË¡¤Ë¤·¤í¡¢»»½Ñ´ö²¿Ê¿¶ÑË¡¤Ë¤·¤í¡¢
̵¸Â¤Ë³¤¯±ß¼þΨ¤òµá¤á¤ë¤Î¤Ï£È£Ó£Ð¤Ë¤Ï¸þ¤«¤Ê¤¤¤«¤È»×¤¤¤Þ¤¹¡£

¤·¤«¤·¡¢¤â¤·¤½¤Î¥¢¥ë¥´¥ê¥º¥à¤òÍý²ò¤Ê¤µ¤Ã¤Æ¤¤¤Æ¡¢
±ß¼þΨ¤Î¶á»÷Ãͤòµá¤á¤ë¤Î¤¬ÌÜŪ¤Ç¤Ê¤¤¤Î¤Ç¤¢¤ì¤Ð¡¢¶á¤¤¤³¤È¤Ï¤Ç¤­¤½¤¦¤Ç¤¹¡£


°ìÈÖ´Êñ¤ÊÊýË¡¤òÎã¤Ëµó¤²¤Þ¤¹¡£

HSP¤Ï¡¢É¸½à¤Ç¤Ï double·¿¤¬¸Â³¦¤Ç¡¢±ß¼þΨ¤Î¶á»÷Ãͤò sin´Ø¿ô¤Çµá¤á¤ë¤È¡¢


mes " PI = 3.14159265\n" repeat 5 x = 3. repeat ( cnt ) x += sin( x ) loop mes str( cnt + 1 ) + "²óÌÜ : " + x loop stop

£³²óÌܤǸ³¦¤Ë㤷¤Þ¤¹¡£
¤³¤ì¤Ï sin(x) ¤Ë¤â double·¿ ¤Ë¤â¸¶°ø¤¬¤¢¤ë¤¿¤á¤Ç¤¹¡£

sin´Ø¿ô¤Ï½éÅù´Ø¿ô¤Ê¤Î¤Ç¡¢¼Â¼Á¾å¤Ï̵¸Â²óϢ³Èùʬ¤¬²Äǽ¤Ê¤Ï¤º¤Ç¤¹¡£
¤½¤³¤Ç¡¢sin´Ø¿ô¤òTaylorŸ³«¤Ë¤è¤Ã¤Æ¡¢ÃÖ¤­´¹¤¨¤Æ¤ß¤Þ¤¹¡£

sin(x) = ... + { ( -1 )~( n - 1 ) } * { ( x~( 2n - 1 ) )/( ( 2n - 1 )! ) } + ...

¡Ê ¥Á¥ë¥À(~) ¤ÏÎß¾è¤ò°ÕÌ£¤·¡¢{ } ¤ÏÂç³ç¸Ì¤ò°ÕÌ£¤·¤Þ¤¹¡Ë

¤½¤¦¤¹¤ë¤È¡¢
[A] = ( -1 )~( n - 1 )
[B] = ( x~( 2n - 1 ) )
[C] = ( ( 2n - 1 )! )

¤Ëʬ²ò¤Ç¤­¤ë¤Î¤Ç¡¢¤½¤ì¤¾¤ì¤ò·×»»¤·¤Þ¤¹¡£

n (int·¿¡¦Àµ¤ÎÀ°¿ô)¤òµá¤á¤ë¹à¿ô¡¢t (double·¿)¤ò¹ç·×¤È¤¹¤ë¤È¡¢

repeat ( n ) _cnt = cnt + 1 lp = ( 2*_cnt - 1 ) // [A] sign = ( _cnt\2 )*2 - 1 // [B] vp = 1.0 repeat ( lp ) vp *= x loop // [C] vw = 0 repeat ( lp ) vw += lp lp -- loop // sin(x) t += ( vp / vw * sign ) loop

¤Çµá¤Þ¤ë¤Ï¤º¤Ç¤¹¡£

¤³¤ì¤ò¸«¤ë¤È¡¢¼ÂºÝ¤Ë̵¸ÂÂç¤Î¼Â¿ô¤¬É¬ÍפʤΤϡ¢
vp *= x¡¡¤Ç¡È¼Â¿ô¤ÈÀ°¿ô¤Î¾è»»¡É
t += ( vp / vw * sign )¡¡¤Ç¡È¼Â¿ô¤ÈÀ°¿ô¤Î½ü»»¡É¤È¡È¼Â¿ô¤È¼Â¿ô¤Î²Ã¸º»»¡É
¤Î£´ÅÀ¤À¤±¤ÇºÑ¤à¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£

ÌÞÏÀ¡¢¤³¤ÎÊýË¡¤Ç¤â double·¿¤Î¸Â³¦¤¬¤¢¤ê¤Þ¤¹¡£
¤Ê¤Î¤Ç¡¢double·¿¤âsdim·¿(str)¤ËÃÖ¤­´¹¤¨¤Æ¤ß¤Þ¤¹¡£

̵¸ÂŤη¿¤Ï¡¢sdimÌ¿Îá¤Ç¼Â¸½¤·¤Þ¤¹¡£
¤³¤ì¤ò¡ÖXLong·¿¡×¤È¤·¤Þ¤¹¡£

°Ê²¼¤Ï¡¢
vp *= x¡¡¤Ç»È¤¦¤¿¤á¤Î¡¢XLong ¡ß Int ¤Î¥µ¥ó¥×¥ë¥â¥¸¥å¡¼¥ë¤Ç¤¹¡£


#define ctype XLongOut( %1, %2 ) ( %1 + "." + %2 ) #module XLONG_ // ¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£/* by Lisa*/¢£ // ¢£ ̵¸ÂĹ XLong·¿ ¤Î¥µ¥ó¥×¥ë // ¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£¢£ #deffunc XLongDeclare var p1, var p2, str p3, str p4 sdim p1, strlen( p3 ) sdim p2, strlen( p4 ) p1 = p3 p2 = p4 return #deffunc XLongMultipleXI var p1, var p2, int p3 cry = 0 // ·«¾å¤²ÍÑÊÑ¿ô repeat 2 if ( cnt ) { // ·×»»ºÑ¤ß¤Î¾®¿ôÉô¤ò¡¢¸µ¤Î¾®¿ôÉôÊÑ¿ô¤ËÌ᤹ sdim p2, strlen( val ) p2 = val // ¼õ¤±¼è¤Ã¤¿À°¿ôÉôÊÑ¿ô¤ò¥³¥Ô¡¼ len = strlen( p1 ) sdim val, len val = p1 } else { // ¼õ¤±¼è¤Ã¤¿¾®¿ôÉôÊÑ¿ô¤ò¥³¥Ô¡¼ len = strlen( p2 ) sdim val, len val = p2 } // ¾è»»¤Î¥ë¡¼¥× repeat ( len ) // ¸åÈø¤«¤éÀèƬ¤Ø¥¤¥ó¥Ç¥Ã¥¯¥¹¤ò°ÜÆ°¤¹¤ë idx = len - cnt - 1 // Æɤ߽Ф·¡¢¿ôÃͤËÃÖ¤­´¹¤¨¡¢¾è»»¤ò¤·¤Æ¡¢·«¤ê¾å¤¬¤ê¤ò­¤¹ num = ( peek( val, idx ) - '0' ) * p3 + cry // °ì·åÌܤòʸ»ú¥³¡¼¥É¤ËÌᤷ¤Æ¡¢½ñ¤­´¹¤¨¤ë poke val, idx, ( ( num \ 10 ) + '0' ) // Æó·åÌܤò·«¤ê¾å¤²ÊÑ¿ô¤ØÊݸ¤¹¤ë cry = int( num / 10 ) loop loop // À°¿ôÉô¤Ç¤Î·«¤ê¾å¤¬¤ê¤¬¤¢¤ë¤« if ( cry ) :inc = str( cry ) :else :inc = "" // ·×»»ºÑ¤ß¤ÎÀ°¿ôÉô¤ò¡¢¸µ¤ÎÀ°¿ôÉôÊÑ¿ô¤ËÌ᤹ sdim p1, ( strlen( val ) + strlen( inc ) ) p1 = inc + val return #global /*// XLong·¿¤ò»ÈÍѤ·¤Æ¤ß¤ë //*/ // 321.823546879012345678900001 ¤ò XLong·¿¤ËÂåÆþ XLongDeclare i, d, "821", "323546879012345678900001" mes mes "¸µ¤Ë¤Ê¤ëÃÍ\n" + XLongOut( i, d ) // XLongÊÑ¿ô¤Ë 2 ¤ò³Ý¤±¤ë XLongMultipleXI i, d, 2 mes mes "·×»»¤·¤¿ÃÍ\n" + XLongOut( i, d ) stop

¤·¤«¤·¡¢¤´Â¸ÃΤ«¤È»×¤¤¤Þ¤¹¤¬¡¢±ß¼þΨ¤ÎÀ¤³¦¤Ç¤Ï
¤³¤Î¤è¤¦¤ËÉ®»»¥¢¥ë¥´¥ê¥º¥à¤Ç½èÍý¤¹¤ëÊýË¡¤Ï¥¿¥Ö¡¼¤È¤µ¤ì¤Æ¤¤¤Þ¤¹¡£
¡Ê½èÍý¤¬·å¿ô¤ÎÆó¾è¤Ë¤Ê¤ê¤Þ¤¹¤Î¤Ç¡Ë

¤³¤ì°Ê¾å¾Ü¤·¤¯¤Ï¡¢Ä´¤Ù¤Æ¤ß¤Ê¤¤¤Èʬ¤«¤ê¤Þ¤»¤ó¤¬¡¢
¤³¤Î¥µ¥ó¥×¥ë¤¬²¿¤«¤Î¥Ò¥ó¥È¤Ë¤Ê¤ì¤Ð¤È»×¤¤¡¢Ä¹¡¹¤È½ñ¤«¤»¤ÆÌ㤤¤Þ¤·¤¿¡£

Ĺʸ¡¦Íðʸ¡¢ËÜÅö¤Ë¿½¤·Ìõ¤¢¤ê¤Þ¤»¤ó¡£



¤ê¤µ

¥ê¥ó¥¯

2007/4/5(Thu) 21:31:19|NO.7016

´Ö°ã¤Ã¤Æ¤¿¤é¡¢¤´¤á¤ó¤Ê¤µ¤¤¤Ã¡Ê¡ä¡ã¡¨



ƿ̾´õ˾

¥ê¥ó¥¯

2007/4/6(Fri) 19:24:59|NO.7065

³§¤µ¤ó¡¢²óÅú¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
¤ê¤µ¤µ¤ó¡¢¥¢¥ë¥´¥ê¥º¥à¤Ï¡¡¥¬¥¦¥¹¡¦¥ë¥¸¥ã¥ó¥É¥ë£´¼¡¤Î¼ý«¤ò»ÈÍѤ·¤Þ¤¹¡£
¥½¡¼¥¹¥³¡¼¥É¤Þ¤Ç½ñ¤¤¤Æ¤¤¤¿¤À¤¤¤¿¤ª¤«¤²¤Ç²ò·è¤·¤¿¤Î¤Ç¡¢²ò·è¤Î¤·¤ë¤·¤òÆþ¤ì¤Æ¤ª¤­¤Þ¤¹¡£
¤³¤Î¼ÁÌä¤Ë²óÅú¤·¤Æ¤¯¤À¤µ¤Ã¤¿Êý¤¹¤Ù¤Æ¤Ë¤ªÎ鿽¤·¾å¤²¤Þ¤¹¡£



ƿ̾´õ˾

¥ê¥ó¥¯

2007/4/6(Fri) 19:32:21|NO.7066

ÄÉ¿­

¤ê¤µ¤µ¤ó¤¬HSP¤Ë¸þ¤«¤Ê¤¤¤È¿½¤·¤Æ¤ª¤ê¤Þ¤·¤¿¤¬¡¢¤½¤Î¤È¤¦¤ê¤À¤È»×¤¤¤Þ¤¹¡£
¤·¤«¤·¡¢HSP¤ÇÀ½ºî¤¹¤ë»ö¤Ç¡¢HSP¤Î²ÄǽÀ­¤ò¼¨¤½¤¦¤È¹Í¤¨¤¿¤«¤éÀ½ºî¤ËÁö¤Ã¤¿¤Î¤Ç¤¹¡£
HSP¤Ç¤Ç¤­¤Ê¤¤»ö¤Ï¤Ê¤¤¤Î¤Ç¤¹¡£»ä¤â¤½¤¦»×¤Ã¤Æ¤ª¤ê¤Þ¤¹¡£
³§¤µ¤óËÜÅö¤Ë¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£



314

¥ê¥ó¥¯

2007/5/14(Mon) 21:56:29|NO.8255

¥¢¥ë¥´¥ê¥º¥à¤Ë¤â¤è¤ê¤Þ¤¹¤¬£·Ëü·å¤Î¤è¤¦¤Ê¾¯¤Ê¤¤·å¿ô¤Î¾ì¹ç¡¢
»»½Ñ´ö²¿Ê¿¶Ñ¤ÎÊýË¡¤Ç±ß¼þΨ¤ò»»½Ð¤¹¤ë¤è¤ê¥¢¡¼¥¯¥¿¥ó¥¸¥§¥ó¥ÈË¡¤ÎÊý¤¬
Á᤯µá¤Þ¤ë²ÄǽÀ­¤¬¤¢¤ê¤Þ¤¹¡£

ÉáÄÌ¡¢¾è»»¤ä³«Ê¿¤Î±é»»»þ´Ö¤Ï·å¿ô¤Î£²¾è¤ËÈæÎ㤷¤ÆŤ¯¤Ê¤ë¤Î¤Ç¤¹¤¬¡¢
£Á£Ç£Í¤ä£Æ£Æ£Ô¡Ê¹â®¥Õ¡¼¥ê¥¨ÊÑ´¹¡Ë¤È¤¤¤Ã¤¿¥¢¥ë¥´¥ê¥º¥à¤ò»È¤¦¤³¤È¤Ç±é»»»þ´Ö¤òû½Ì¤·
·×»»¥¹¥Ô¡¼¥É¤òÁ᤯¤µ¤»¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¡Ê»»½Ñ´ö²¿Ê¿¶Ñ¤Î¾ì¹ç¤Î¤ß¡Ë
¤¹¤Ê¤ï¤Á¡¢¥®¥Í¥¹¤ËÄ©À魯¤ë¤Û¤É¤Î¿ĹÇܤηå¿ô¤òµá¤á¤¿¤¤¤Ê¤é£Æ£Æ£Ô¤Ë¤è¤ë¥¢¥ë¥´¥ê¥º¥à¤Î±Æ¶Á¤¬
Â礭¤¯¡¢¥¢¡¼¥¯¥¿¥ó¥¸¥§¥ó¥ÈË¡¤è¤ê¤è¤Ã¤Ý¤ÉÁ᤯µá¤Þ¤ë¤Î¤Ç¤¹¤¬
£·Ëü·åÄøÅ٤ʤ饢¡¼¥¯¥¿¥ó¥¸¥§¥ó¥ÈË¡¤Ç¤âÌäÂê¤Ê¤¤¤«¤È»×¤ï¤ì¤Þ¤¹¡£

¤³¤Î¥¹¥¯¥ê¥×¥È¤ÏÉâÆ°¾®¿ô¤ÎÇÛÎóÊÑ¿ô¤ò»È¤Ã¤Æ±ß¼þΨ¦Ð¤òǤ°Õ¤Î·å¿ô¤â¤È¤á¤ë¥×¥í¥°¥é¥à¤Ç¤¹¡£
»²¹ÍÄøÅ٤ˤ·¤Æ¤¯¤À¤µ¤¤¡¦¡¦¡¦¡Ê¤à¤Ã¤Á¤ã¸«¤Ë¤¯¤¤¤±¤É¡Ë

screen 0,200,100
kt=100
mes "²¿·åµá¤á¤ë¡©"
input kt,50,20,6
button goto "£Ï£ËËҾ졪",*bokujo
stop
;¤³¤³¤Ç·å¿ôÆþÎÏ
*bokujo
clrobj
await 1
color 0,0,0:boxf
kt=(kt+1)/9+1
ktt=kt*30.11-29
e=0.0:zxx=1
qa=0.0
;²¿²ó¥ë¡¼¥×¤¹¤ë¤«¤ò»»½Ð
dimtype a,vartype("double"),kt
a=1.0
repeat ktt
vo=cnt
c=1.0*ktt-cnt
dc=c*2+1.0
e=0.0
repeat kt
a.cnt=a.cnt*c
e+=a.cnt
qa=int(e/dc)
a.cnt=1.0*qa
e=e-dc*qa
e=e*1000000000.0
loop
a+=1.0
loop
;¥°¥ì¥´¥ê¡¼µé¿ô¤Î¥ª¥¤¥é¡¼ÊÑ´¹¤Ë¤è¤ë¥¢¡¼¥¯¥¿¥ó¥¸¥§¥ó¥ÈË¡¤ÇǤ°Õ¤Î·å¿ô¤Î¦Ð¤ò·×»»
c=0:qa=0
repeat kt
c=kt-cnt
a.c=a.c*2+qa
qa=int(a.c/1000000000):a.c-=1000000000.0*qa
loop
;·«¤ê¾å¤¬¤ê
a+=2.0
sdim e,9,kt
repeat kt
if a.cnt<100000000:e.cnt+="0":if a.cnt<10000000:e.cnt+="0":if a.cnt<1000000:e.cnt+="0":if a.cnt<100000:e.cnt+="0":if a.cnt<10000:e.cnt+="0":if a.cnt<1000:e.cnt+="0":if a.cnt<100:e.cnt+="0":if a.cnt<10:e.cnt+="0"
e.cnt+=str(int (a.cnt))
loop
;ʸ»úÎó¤ËÊÑ´¹
dim ktt,1:ktt=5
sdim aa,(kt-1)*9.5+10
aa="¦Ð=3."
repeat kt-1,1
if cnt\10=1:aa+="\n":ktt+=2
if cnt<kt-1:aa+=e.cnt:ktt+=9
if cnt=kt-1:aa+=strmid(e.cnt,0,7):ktt+=9
loop
bsave "±ß¼þΨ.txt",aa,ktt
end


¤â¤·¥¬¥¦¥¹¡¦¥ë¥¸¥ã¥ó¥É¥ë¤Î£´¼¡¼ý«¤Î¸ø¼°¤è¤êÃÙ¤«¤Ã¤¿¤é¥¹¥¤¥Þ¥»¥ó¡¦¡¦¡¦
¤Á¤Ê¤ß¤Ë£Æ£Æ£Ô¤ÏËÍʬ¤«¤ê¤Þ¤»¤ó¤¬¡¢¥«¥é¥Ä¥Ð¾è»»¤Ë¤è¤ë¾è»»»þ´Öû½Ì¥¢¥ë¥´¥ê¥º¥à
¤Ê¤é¤ï¤«¤ê¤Þ¤¹¡£
x¤òÇÛÎó°ì¤Ä¤¢¤¿¤ê¤Î´Ý¤á¹þ¤ß¾å¸ÂÃͤȤ·¤Æ
2log10x·å¤Î¿ô
ax+b
¤È
cx+d
¤Î¾è»»¥¢¥ë¥´¥ê¥º¥à¤ò¹Í¤¨¤Þ¤¹¡£
ÉáÄ̤˷׻»¤¹¤ì¤Ð£´²ó¤Î¾è»»a*c,a*d,b*c,c*d¤ò·×»»¤·¤Æ
acx^2+(ad+cb)x+bd­¡¤È¤¹¤ë¤Î¤¬¡¢
¥«¥é¥Ä¥Ð¾è»»¤Ï­¡¤òÊÑ·Á¤·¤Æ
acx^2+{-(a-b)(c-d)+ac+bd}x+bd¤È¤·¤Æ
·ë²ÌŪ¤Ë£³²ó¤Î¾è»»ac,bd,(a-b)(c-d)¤Ç·×»»¤¹¤ë¤³¤È¤Çlog10x·å¤Î¾è»»£±²óʬ¤¬¾Ã¤¨¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£
¤³¤ì¤ò¤µ¤é¤Ëʬ³ä¤·¤Æµ¢Ç¼Åª¤ËÍѤ¤¤ë¤³¤È¤Ç£Î^2¤ËÈæÎ㤷¤¿±é»»Î̤¬¡¢£Î^(log2£³)¢â£Î^1.58¤Ë¸º¤ë¤³¤È¤¬¤ï¤«¤ê¤Þ¤¹¡£
¤·¤«¤·¤³¤Î¥«¥é¥Ä¥Ð¾è»»¤Ï¤É¤ó¤Ê¤Ëʬ³ä¤·¤Æ¤â£Æ£Æ£Ô¤è¤êÁ᤯¤¹¤ë¤³¤È¤Ï½ÐÍè¤Þ¤»¤ó¡£



ONION software Copyright 1997-2023(c) All rights reserved.