{"id":2200,"date":"2011-07-19T10:32:52","date_gmt":"2011-07-19T01:32:52","guid":{"rendered":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/?p=2200"},"modified":"2020-07-04T17:47:16","modified_gmt":"2020-07-04T08:47:16","slug":"pow%e9%96%a2%e6%95%b0%e4%bd%9c%e6%88%90","status":"publish","type":"post","link":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/2011\/07\/19\/2200\/","title":{"rendered":"Elisp: pow\u95a2\u6570\u4f5c\u6210"},"content":{"rendered":"<p>xyzzy\u3067pow\u95a2\u6570\u3092\u4f7f\u304a\u3046\u3068\u3057\u305f\u3089\u300c\u95a2\u6570\u304c\u5b9a\u7fa9\u3055\u308c\u3066\u3044\u307e\u305b\u3093\u300d\u306e\u30a8\u30e9\u30fc\u3002<\/p>\n<p>log\u95a2\u6570\u3092\u4f7f\u3048\u3070\u4f5c\u6210\u3067\u304d\u308b\u3060\u308d\u3046\u3068\u3001\u7b97\u51fa\u3057\u3066\u307f\u305f\u3002<\/p>\n<p>c=pow(a, b)\u3068\u3044\u3046\u3053\u3068\u306f\u3001log_a(c)=log(c)\/log(a)=b<br \/>\n\u3053\u308c\u3088\u308a\u3001log(c)=log(a)*b\u3068\u306a\u308a\u3001\u4e21\u8fba\u306e\u6307\u6570\u3092\u3068\u308b\u3068\u3001c=exp(log(a)*b)<br \/>\n\u3068\u3044\u3046\u3053\u3068\u3067\u3001\u76ee\u7684\u306e\u95a2\u6570\u306f\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u306a\u308b\u3002<\/p>\n<div class=\"hl-surround\" ><div class=\"hl-main\"><pre>(defun pow (a b) (exp (* (log a) b)))\r\n(defun log10 (x) (\/ (log x) (log 10)))<\/pre><\/div><\/div>\n<p>\uff08log10\u95a2\u6570\u3082\u306a\u304b\u3063\u305f\u306e\u3067\u4e00\u7dd2\u306b\u4f5c\u6210\u3057\u305f\uff09<\/p>\n<p>[\u8ffd\u8a18]<br \/>\nMule (Emacs, ELisp) \u306b\u3082pow\u95a2\u6570\u306f\u306a\u304b\u3063\u305f\u3002<\/p>\n<p>[\u8ffd\u8a18]<br \/>\n\u95a2\u6570\u540d\u306fpow\u3067\u306a\u304f\u3001expt\u3068\u3057\u3066xyzzy\u3067\u3082Mule\u3067\u3082\u6a19\u6e96\u3067\u7528\u610f\u3055\u308c\u3066\u3044\u305f\u3088\u3046\u3060\u3002xyzzy\u306e\u96fb\u5353\u30e2\u30fc\u30c9\u306b\u7d2f\u4e57\u6a5f\u80fd\u304c\u3042\u308a\u3001\u305d\u306e\u5927\u5143\u306ecalc.l\u306b\u8a18\u8ff0\u304c\u3042\u3063\u305f\u3002\u96fb\u5353\u30e2\u30fc\u30c9\u3067\u306f^\u3067\u306e\u7c21\u6613\u8868\u8a18\u3082\u7528\u610f\u3055\u308c\u3066\u3044\u308b\u3002<\/p>\n<div class=\"hl-surround\" ><div class=\"hl-main\"><pre>(setf (symbol-function 'calc::expt) #'expt)\r\n(setf (symbol-function 'calc::pow) #'expt)\r\n(setf (symbol-function 'calc::log10) #'(lambda (x) (log (float x 0d0) 10d0)))\r\n(defconstant *calc-token-alist* '((#\\^ . expt)))<\/pre><\/div><\/div>\n<p>\u95a2\u6570\u540d\u304c\u306a\u305c\u3053\u306e\u540d\u79f0\u306a\u306e\u304b\u4e0d\u660e\u3060\u304c\u3001Common Lisp\u3067\u306e\u6163\u7fd2\u7684\u306a\u3082\u306e\u306a\u306e\u304b\u306a\uff1f<\/p>\n<ul>\n<li><a href=\"http:\/\/xyzzy.s53.xrea.com\/wiki\/index.php?Calc-mode%A4%CEManual\">Calc-mode\u306eManual &#8211; XyzzyWiki<br \/>\n<\/a><\/p>\n<li><a href=\"http:\/\/d.hatena.ne.jp\/Nos\/20110608\/1307560981\">xyzzy\u96fb\u5353\u534a\u7aef\u79fb\u690d &#8211; Nos\u306e\u65e5\u8a18<br \/>\n<\/a><\/p>\n<li><a href=\"http:\/\/oreshiki.net\/programming\/lisp\/cl_number2.html\">Common Lisp:\u7b97\u8853\u6f14\u7b97 &#8211; \u4ffa\u5f0f\u30cd\u30c3!\u3068 &#8211;<br \/>\n<\/a><\/p>\n<li><a href=\"http:\/\/www.shido.info\/lisp\/scheme2.html\">Scheme \u5165\u9580 2. Scheme \u3092\u96fb\u5353\u4ee3\u308f\u308a\u306b\u4f7f\u3046<br \/>\n<\/a><\/p>\n<li><a href=\"http:\/\/www.xemacs.org\/Documentation\/beta\/html\/cl_9.html\">Common Lisp Extensions: Numbers<br \/>\n<\/a><\/p>\n<li><a href=\"http:\/\/www010.upp.so-net.ne.jp\/okshirai\/cl-j\/_00bf_00f4_00a4_00ce_00b4_00d8_00bf_00f4.html\">\u6570\u306e\u95a2\u6570 &#8211; Common Lisp\u62e1\u5f35<br \/>\n<\/a>\n<\/ul>\n","protected":false},"excerpt":{"rendered":"<p>xyzzy\u3067pow\u95a2\u6570\u3092\u4f7f\u304a\u3046\u3068\u3057\u305f\u3089\u300c\u95a2\u6570\u304c\u5b9a\u7fa9\u3055\u308c\u3066\u3044\u307e\u305b\u3093\u300d\u306e\u30a8\u30e9\u30fc\u3002 log\u95a2\u6570\u3092\u4f7f\u3048\u3070\u4f5c\u6210\u3067\u304d\u308b\u3060\u308d\u3046\u3068\u3001\u7b97\u51fa\u3057\u3066\u307f\u305f\u3002 c=pow(a, b)\u3068\u3044\u3046\u3053\u3068\u306f\u3001log_a(c)=log(c)\/log(a)=b \u3053 [&hellip;]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"inline_featured_image":false,"footnotes":""},"categories":[1],"tags":[457,458,263,264,34,459],"_links":{"self":[{"href":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/wp-json\/wp\/v2\/posts\/2200"}],"collection":[{"href":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/wp-json\/wp\/v2\/comments?post=2200"}],"version-history":[{"count":8,"href":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/wp-json\/wp\/v2\/posts\/2200\/revisions"}],"predecessor-version":[{"id":67400,"href":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/wp-json\/wp\/v2\/posts\/2200\/revisions\/67400"}],"wp:attachment":[{"href":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/wp-json\/wp\/v2\/media?parent=2200"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/wp-json\/wp\/v2\/categories?post=2200"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/mechsys.tec.u-ryukyu.ac.jp\/~oshiro\/SiteList\/wp-json\/wp\/v2\/tags?post=2200"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}