プログラミング(programming)/EusLisp
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
Japanese
/
English
]
研究について
研究の概要
論文発表
メディア
メンバー
教員
大学院生
学部生
OB
リンク
リンク集
授業
コンピュータプログラミング基礎II
機械知能システム工学特別講義I
機械システム工学特論(MORE SENSE特論)
内部用
物品管理(registries)
外部ソフトウェア
PC環境設定
買い物
プリンタ設定
定例研究会(weekly)
研究発表会(monthly)
閲覧回数順
開始行:
[[研究室各種環境(admin)]]~
[[プログラミング(programming)]]
*目次 [#m58cf5a0]
#contents
----
*EusLispとは [#c2848c4b]
オブジェクト指向Lispの1つ。~
Lispを基礎としたオブジェクト指向プログラム言語(例えばCLO...
ソフトウェア。
*各種設定 [#d995891b]
**前準備 [#n07dfd01]
CygwinかLinuxか、サーバか自分のPCか によって、以下の(1...
***(1)Windowsの場合 [#z71a4e4d]
+[[../Windows環境の設定]]に従い環境の設定をする。
+できたら[[環境変数の設定>./#env]]へ。
***(2)Linuxの設定(サーバmizuuchi.lab.tuat.ac.jp以外でや...
+[[環境変数の設定>./#env]]へ。
&aname(on-server);
***(3)Linuxの設定(サーバmizuuchi.lab.tuat.ac.jpに遠隔ロ...
+ 遠隔ログインができるようにする。
-- mizuuchi.lab.tuat.ac.jpのアカウントを作ってもらう。([[...
---アカウント名はなるべく8文字以内で、誰のアカウントかが...
---アカウント名@mizuuchi.lab.tuat.ac.jp のメールアドレス...
--ログインする元(自分のPCや研究室のデスクトップ)にイ...
---[[X-Window>../X-Window]](遠隔ログイン前に起動しておく...
---ssh(次のいずれか)~
○CygwinやLinuxやMacOSならopensshを入れる。
○WindowsならTeraTermの窓でssh可能にする「TTSSH」をインス...
+ 遠隔ログインを試す(公開鍵をサーバに登録していなければ[...
ssh -X ユーザ名@mizuuchi.lab.tuat.ac.jp
xlogo としてmizuuchi.lab.tuat.ac.jp上で起動したxlogoとい...
+ 環境変数
--[[環境変数の設定>./#env]]へ。
&aname(env);
**環境変数の設定(~/.bashrc)ここは全ての環境にほぼ共通 [...
- ''既に ~/.my-settings (又は~/.bashrc)に設定が書いてあ...
既に書いてあるかどうかの確認は、以下の2点を確認すればO...
-- ~~/.my-settings を開く(emacsやMeadowで)と、
export EUSDIR=${HOME}/prog/euslisp
とか
export EUSDIR=/usr/local/eus/euslisp
とかいう行がある。(上は[[自分でEusLispをコンパイルする>....
-- ~~/.bashrc の最後のほうに、~/.my-settings を読み込むよ...
if [ -f ~/.my-settings ]; then
. ~/.my-settings
fi
(2行目は、
source ~/.my-settings
となっているかも知れない(同じ意味)。)
- LinuxやWindows(cygwin)の ~/.my-settings (無ければ ~/.b...
--先頭に#が付いている行はコメント文(人間のために書いてあ...
--''サーバか自分のPCか、や、CygwinかLinuxか、等によって、...
####ここから
if [ "$EUSDIR" = "" ]; then #まだEUSDIRという環境変数...
export EUSDIR=${HOME}/prog/euslisp #自分のPCでは...
#export EUSDIR=/usr/local/eus/euslisp #サーバでは...
else
echo \$EUSDIR is $EUSDIR
fi #if文の終わりはendifではなくfi
export ARCHDIR=Cygwin #Cygwin(Windows)の場合
#export ARCHDIR=Linux #Linux(32bit)の場合(自分のPCが...
#export ARCHDIR=Linux64 #Linux(64bit)の場合(自分のPCが...
export PATH=${PATH}:${EUSDIR}/${ARCHDIR}/bin
if [ "${LD_LIBRARY_PATH}" = "" ]; then
export LD_LIBRARY_PATH=${EUSDIR}/${ARCHDIR}/lib
else
export LD_LIBRARY_PATH=${LD_LIBRARY_PATH}:${EUSDIR}/${AR...
fi
export KOTAROPATH=${HOME}/prog/kotaro #自分のPCの場合
#export KOTAROPATH=/usr/local/eus/kotaro #サーバの場合
####ここまで
修正したら、一旦ログアウトし、ログインしなおすこと。
&aname(make);
**[[EusLispのmake>./EusLispのmake]](サーバmizuuchi.lab.t...
- 研究室のサーバーからソースコード一式を取ってきて、自分...
- [[./EusLispのmake]]をする前に、上の[[環境変数の設定>./#...
**[[オープンソース版のEusLisp&jskeusライブラリを作る>./...
- [[SourceForge>http://sourceforge.net/]](([[SourceForge>...
- [[GitHubリポジトリ>https://github.com/euslisp/jskeus]]...
----
*have fun!! &aname(tutorial); [#q6c6aa06]
**まずは確認:小太郎のモデルがpickviewに表示できれば成功...
-もし[[X Window>プログラミング(programming)/X-Window]]が...
$ jskrbeusgl
jskrbeusgl$ (setq r (kotaro :cad t))
jskrbeusgl$ (pickview)
jskrbeusgl$ (objects (list r))
(pickview)でBadFontというエラーメッセージが出た場合は[[Ba...
~
なお、emacs の中で M-x shell として起動したシェルから jsk...
ESC p や ESC n ((「ESC 特定のキー」という記述は、ESCキー...
によって履歴を表示してカーソルを動かして修正して実行した...
ということがやりやすい。~
また、別な手段として、端末から
$ rlwrap jskrbeusgl
として起動すると、実行履歴を利用したりライン編集したりと...
&aname(iroiro);
**色々試してみよう [#r688986b]
euslispのマニュアル&ref(jmanual.pdf);
jskrbeusgl$ (print "LISP: LISt Processing")
jskrbeusgl$ (+ 1 1)
jskrbeusgl$ (mod 5 3)
jskrbeusgl$ (mod 5 8)
jskrbeusgl$ (* (+ 5 445) 8)
jskrbeusgl$ (setq x 10)
jskrbeusgl$ (print x)
jskrbeusgl$ (setq y 20)
jskrbeusgl$ (* x y)
jskrbeusgl$ (+ x y)
jskrbeusgl$ (/ x y)
jskrbeusgl$ (setq z (/ x y))
jskrbeusgl$ (setq z (* x y))
jskrbeusgl$ (defun test (a b) (+ a b))
jskrbeusgl$ (test 10 20)
jskrbeusgl$ (dotimes (i 10) (print i))
jskrbeusgl$ (setq sum 0)
jskrbeusgl$ (dotimes (i 10) (setq sum (+ sum i 1)))
jskrbeusgl$ (print sum)
jskrbeusgl$ (defun sum-all (n) (setq sum 0) (dotimes (i ...
jskrbeusgl$ (list 10 20 30)
jskrbeusgl$ (setq tmp (list 10 20 30))
jskrbeusgl$ tmp
jskrbeusgl$ (1+ 20)
jskrbeusgl$ (2+ 20)
E1-jskrbeusgl$ (reset)
jskrbeusgl$ (defun 2+ (x) (+ x 2))
jskrbeusgl$ (2+ 20)
jskrbeusgl$ tmp
jskrbeusgl$ (mapcar 'sqrt tmp)
jskrbeusgl$ (mapcar '1+ tmp)
jskrbeusgl$ (mapcar '2+ tmp)
jskrbeusgl$ (mapcar '3+ tmp)
E1-jskrbeusgl$ (reset)
jskrbeusgl$ (mapcar '(lambda (x) (+ x 3)) tmp)
jskrbeusgl$ (mapcar '(lambda (x) (* x x)) tmp)
jskrbeusgl$ (mapcar '(lambda (x) (* x x x)) tmp)
jskrbeusgl$ (defclass buttai :slots (weight x y z roll p...
jskrbeusgl$ (instantiate buttai)
jskrbeusgl$ (instantiate buttai)
jskrbeusgl$ (setq cup (instantiate buttai))
jskrbeusgl$ (describe cup)
jskrbeusgl$ (defmethod buttai (:set-weight (w) (setq wei...
jskrbeusgl$ (defmethod buttai (:get-weight () weight))
jskrbeusgl$ (send cup :set-weight 250)
jskrbeusgl$ (describe cup)
jskrbeusgl$ (send cup :get-weight)
jskrbeusgl$ (defmethod buttai (:set-position (pos)
(setq x (c...
pos))
jskrbeusgl$ (send cup :set-position ここに何と書けばよい...
jskrbeusgl$ (defmethod buttai (:get-position () (list x ...
jskrbeusgl$ (defmethod buttai (:orientation (&optional r...
(if (not (...
(setq ...
(list roll...
jskrbeusgl$ (send cup :move 50 0 -100) のようにするため...
jskrbeusgl$ (pickview)
jskrbeusgl$ (setq r (kotaro :cad t))
jskrbeusgl$ (objects (list r))
jskrbeusgl$ r
jskrbeusgl$ (send r :name)
jskrbeusgl$ (send r :height)
jskrbeusgl$ (send r :weight)
E1-jskrbeusgl$ (reset)
jskrbeusgl$ (get r :weight)
jskrbeusgl$ (send r :limbs)
jskrbeusgl$ (length (send r :limbs))
jskrbeusgl$ (setq tmp2 (send r :limbs))
jskrbeusgl$ (first tmp2)
jskrbeusgl$ (second tmp2)
jskrbeusgl$ (elt tmp2 0)
jskrbeusgl$ (elt tmp2 1)
jskrbeusgl$ (elt tmp2 2)
jskrbeusgl$ (elt tmp2 3)
jskrbeusgl$ (elt tmp2 4)
jskrbeusgl$ (elt tmp2 6)
E1-jskrbeusgl$ (elt tmp2 5)
E1-jskrbeusgl$ (reset)
jskrbeusgl$ (send r :joint-list)
jskrbeusgl$ (send r :joint-list :name)
jskrbeusgl$ (send r :limbs :name)
jskrbeusgl$ (send r :wires)
jskrbeusgl$ (length (send r :wires))
jskrbeusgl$ (send r :wires :length)
jskrbeusgl$ (send r :spine :pitch)
jskrbeusgl$ (send r :spine :pitch 10)
jskrbeusgl$ (send *pickview* :draw-objects)
jskrbeusgl$ (send r :wires :length)
**矢口君([[@hyaguchijsk>https://twitter.com/hyaguchijsk]...
- http://euslisp-tutorial.readthedocs.io/ja/latest/
**[[./Lisp練習問題]] [#y098c9d0]
&aname(TIPS);
**[[./TIPS]] [#scedfa97]
&aname(movie);
**pickviewのアニメーションをMPEGにする [#y269fbf7]
+pickviewのLogボタンを押し、onを選択(以降の描画更新を全...
+アニメーションを表示する関数を実行。例: (dolist (v vecs...
+pickviewのLogボタンを押し、offを選択(ここまでの描画更新...
+pickviewのLogボタンを押し、to mpg を選択(&ref(mpeg_enco...
**[[プログラミング(programming)/ProgrammingInJSKからコピ...
&aname(thread);
**スレッド [#w42db736]
-例
59.jskrbeusgl$ (sys::free-threads)
(#<thread #X92a8af4> #<thread #X92ac39c> #<thread #X92a8...
60.jskrbeusgl$ length (sys::free-threads)
4
61.jskrbeusgl$ (make-thread)
[1;31mjskrbeusgl 0 error: undefined function make-threa...
62.E1-jskrbeusgl$ reset
63.jskrbeusgl$ (sys:make-thread)
[1;31mjskrbeusgl 0 error: mismatch argument in (system:...
64.E1-jskrbeusgl$ reset
65.jskrbeusgl$ (sys:make-thread 5)
(#<thread #X9e86edc> #<thread #X9e86f3c> #<thread #X9e86...
66.jskrbeusgl$ (sys::free-threads)
(#<thread #X9e86f3c> #<thread #X9e86f78> #<thread #X9e86...
67.jskrbeusgl$ length (sys::free-threads)
9
68.jskrbeusgl$ (need-thread 10)
nil
69.jskrbeusgl$ length (sys::free-threads)
10
70.jskrbeusgl$ (need-thread 10)
nil
71.jskrbeusgl$ length (sys::free-threads)
10
72.jskrbeusgl$ (need-thread 12)
nil
73.jskrbeusgl$ length (sys::free-threads)
12
74.jskrbeusgl$ (sys::free-threads)
(#<thread #X9e92bf0> #<thread #X9e92af4> #<thread #X9e84...
75.jskrbeusgl$ pprint (sys::free-threads)
(#<thread #X9e92bf0>
#<thread #X9e92af4>
#<thread #X9e84a4c>
#<thread #X9e86f3c>
#<thread #X9e86f78>
#<thread #X9e86edc>
#<thread #X9e84950>
#<thread #X9e86fd8>
#<thread #X92a8af4>
#<thread #X92ac39c>
#<thread #X92a8a94>
#<thread #X92ac3d8>)
nil
76.jskrbeusgl$ (sys:thread #'(lambda () (dotimes (i 10) ...
0
#<thread #X9e92bf0>
77.jskrbeusgl$ 1
2
3
4
nil
77.jskrbeusgl$
nil
77.jskrbeusgl$ 5
nil
77.jskrbeusgl$
nil
77.jskrbeusgl$ 6
7
8
setq x 10
10
78.jskrbeusgl$ 9
nil
78.jskrbeusgl$ (sys::free-threads)
(#<thread #X9e92af4> #<thread #X9e84a4c> #<thread #X9e86...
79.jskrbeusgl$ length(sys::free-threads)
11
80.jskrbeusgl$ sys:wait-thread #<thread #X9e92bf0>
nil
81.jskrbeusgl$ length (sys::free-threads)
12
82.jskrbeusgl$ (setq kawamsk "Kawamura")
"Kawamura"
83.jskrbeusgl$ (setq thre (sys:thread #'(lambda () (doti...
(0 "Kawamura")
#<thread #X9e92bf0>
84.jskrbeusgl$ (1 "Kawamura")
(2 "Kawamura")
(3 "Kawamura")
(4 "Kawamura")
(5 "Kawamura")
(6 "Kawamura")
(7 "Kawamura")
(8 "Kawamura")
(9 "Kawamura")
(10 "Kawamura")
(setq kawamsk :hoge)
:hoge
85.jskrbeusgl$ (11 :hoge)
(12 :hoge)
(13 :hoge)
(14 :hoge)
(15 :hoge)
(16 :hoge)
(setq kawamsk 100)
100
86.jskrbeusgl$ (17 100)
(18 100)
(19 100)
(20 100)
(21 100)
(22 100)
(23 100)
(24 100)
(25 100)
(26 100)
(27 100)
(28 100)
thre
#<thread #X9e92bf0>
87.jskrbeusgl$ (29 100)
(30 100)
(31 100)
(32 100)
(33 100)
(34 100)
(35 100)
(36 100)
(37 100)
(38 100)
(39 100)
(40 100)
(41 100)
(sys:wait-thread thre)
(42 100)
(43 100)
(44 100)
(45 100)
(46 100)
(47 100)
(48 100)
(49 100)
(50 100)
(51 100)
(52 100)
(53 100)
(54 100)
(55 100)
( 56 100)
(57 100)
( 58 100)
(59 100)
(60 100)
(61 100)
(62 100)
(63 100)
(64 100)
(65 100)
(66 100)
(67 100)
(68 100)
(69 100)
(70 100)
(71 100)
(72 100)
(73 100)
(74 100)
(75 100)
(76 100)
(77 100)
(78 100)
(79 100)
(80 100)
(81 100)
(82 100)
(83 100)
(84 100)
(85 100)
(86 100)
(87 100)
(88 100)
(89 100)
(90 100)
(91 100)
(92 100)
(93 100)
(94 100)
(95 100)
(96 100)
(97 100)
(98 100)
(99 100)
nil
88.jskrbeusgl$ (setq thre (sys:thread #'(lambda () (setq...
(0 100)
#<thread #X9e92bf0>
89.jskrbeusgl$ (1 100)
(3 100)
(6 100)
(10 100)
(15 100)
(21 100)
(28 100)
(setq kawamsk "hogeo")
"hogeo"
90.jskrbeusgl$ (36 "hogeo")
(45 "hogeo")
(55 "hogeo")
(66 "hogeo")
(78 "hogeo")
(91 "hogeo")
(105 "hogeo")
(120 "hogeo")
(136 "hogeo")
(153 "hogeo")
(171 "hogeo")
(setq ret (sys:wait-thread thre))
(190 "hogeo")
(210 "hogeo")
(231 "hogeo")
(253 "hogeo")
(276 "hogeo")
(300 "hogeo")
(325 "hogeo")
(351 "hogeo")
(378 "hogeo")
(406 "hogeo")
(435 "hogeo")
435
91.jskrbeusgl$ ret
435
92.jskrbeusgl$ length (sys::free-threads)
12
93.jskrbeusgl$ (sys:thread-no-wait #'(lambda () (setq su...
(0 "hogeo")
#<thread #X9e92bf0>
94.jskrbeusgl$ (1 "hogeo")
(3 "hogeo")
(6 "hogeo")
length (sys::free-threads)
nil
95.jskrbeusgl$ 11
96.jskrbeusgl$ (10 "hogeo")
length (sys::free-threads)
11
97.jskrbeusgl$ (15 "hogeo")
(21 "hogeo")
length (sys::free-threads)
11
98.jskrbeusgl$ (28 "hogeo")
length (sys::free-threads)
11
99.jskrbeusgl$ (36 "hogeo")
length (sys::free-threads)
11
100.jskrbeusgl$ length (sys::free-threads)
11
101.jskrbeusgl$ (45 "hogeo")
length (sys::free-threads)
11
102.jskrbeusgl$ length (sys::free-threads)
12
103.jskrbeusgl$ (defun hoge (x) (setq sum 0) (dotimes (i...
hoge
104.jskrbeusgl$ (hoge 10)
45
105.jskrbeusgl$ (hoge 20)
190
106.jskrbeusgl$ (hoge 30)
435
107.jskrbeusgl$ (sys:thread-no-wait #'hoge 100)
#<thread #X9e92bf0>
108.jskrbeusgl$ length (sys::free-threads)
12
109.jskrbeusgl$ setq thre (sys:thread #'hoge 10000)
#<thread #X9e92bf0>
110.jskrbeusgl$ sys:wait-thread thre
49995000
111.jskrbeusgl$ setq thre (sys:thread #'hoge 100000)
#<thread #X9e92bf0>
112.jskrbeusgl$ sys:wait-thread thre
5536837296
113.jskrbeusgl$ (hoge 1000000)
500536387296
114.jskrbeusgl$ setq thre (sys:thread #'hoge 2000000)
#<thread #X9e92bf0>
115.jskrbeusgl$ sys:wait-thread thre
2000535887296
116.jskrbeusgl$ setq thre (sys:thread #'hoge 2000000)
#<thread #X9e92bf0>
117.jskrbeusgl$ sys:wait-thread thre
2000535887296
118.jskrbeusgl$
終了行:
[[研究室各種環境(admin)]]~
[[プログラミング(programming)]]
*目次 [#m58cf5a0]
#contents
----
*EusLispとは [#c2848c4b]
オブジェクト指向Lispの1つ。~
Lispを基礎としたオブジェクト指向プログラム言語(例えばCLO...
ソフトウェア。
*各種設定 [#d995891b]
**前準備 [#n07dfd01]
CygwinかLinuxか、サーバか自分のPCか によって、以下の(1...
***(1)Windowsの場合 [#z71a4e4d]
+[[../Windows環境の設定]]に従い環境の設定をする。
+できたら[[環境変数の設定>./#env]]へ。
***(2)Linuxの設定(サーバmizuuchi.lab.tuat.ac.jp以外でや...
+[[環境変数の設定>./#env]]へ。
&aname(on-server);
***(3)Linuxの設定(サーバmizuuchi.lab.tuat.ac.jpに遠隔ロ...
+ 遠隔ログインができるようにする。
-- mizuuchi.lab.tuat.ac.jpのアカウントを作ってもらう。([[...
---アカウント名はなるべく8文字以内で、誰のアカウントかが...
---アカウント名@mizuuchi.lab.tuat.ac.jp のメールアドレス...
--ログインする元(自分のPCや研究室のデスクトップ)にイ...
---[[X-Window>../X-Window]](遠隔ログイン前に起動しておく...
---ssh(次のいずれか)~
○CygwinやLinuxやMacOSならopensshを入れる。
○WindowsならTeraTermの窓でssh可能にする「TTSSH」をインス...
+ 遠隔ログインを試す(公開鍵をサーバに登録していなければ[...
ssh -X ユーザ名@mizuuchi.lab.tuat.ac.jp
xlogo としてmizuuchi.lab.tuat.ac.jp上で起動したxlogoとい...
+ 環境変数
--[[環境変数の設定>./#env]]へ。
&aname(env);
**環境変数の設定(~/.bashrc)ここは全ての環境にほぼ共通 [...
- ''既に ~/.my-settings (又は~/.bashrc)に設定が書いてあ...
既に書いてあるかどうかの確認は、以下の2点を確認すればO...
-- ~~/.my-settings を開く(emacsやMeadowで)と、
export EUSDIR=${HOME}/prog/euslisp
とか
export EUSDIR=/usr/local/eus/euslisp
とかいう行がある。(上は[[自分でEusLispをコンパイルする>....
-- ~~/.bashrc の最後のほうに、~/.my-settings を読み込むよ...
if [ -f ~/.my-settings ]; then
. ~/.my-settings
fi
(2行目は、
source ~/.my-settings
となっているかも知れない(同じ意味)。)
- LinuxやWindows(cygwin)の ~/.my-settings (無ければ ~/.b...
--先頭に#が付いている行はコメント文(人間のために書いてあ...
--''サーバか自分のPCか、や、CygwinかLinuxか、等によって、...
####ここから
if [ "$EUSDIR" = "" ]; then #まだEUSDIRという環境変数...
export EUSDIR=${HOME}/prog/euslisp #自分のPCでは...
#export EUSDIR=/usr/local/eus/euslisp #サーバでは...
else
echo \$EUSDIR is $EUSDIR
fi #if文の終わりはendifではなくfi
export ARCHDIR=Cygwin #Cygwin(Windows)の場合
#export ARCHDIR=Linux #Linux(32bit)の場合(自分のPCが...
#export ARCHDIR=Linux64 #Linux(64bit)の場合(自分のPCが...
export PATH=${PATH}:${EUSDIR}/${ARCHDIR}/bin
if [ "${LD_LIBRARY_PATH}" = "" ]; then
export LD_LIBRARY_PATH=${EUSDIR}/${ARCHDIR}/lib
else
export LD_LIBRARY_PATH=${LD_LIBRARY_PATH}:${EUSDIR}/${AR...
fi
export KOTAROPATH=${HOME}/prog/kotaro #自分のPCの場合
#export KOTAROPATH=/usr/local/eus/kotaro #サーバの場合
####ここまで
修正したら、一旦ログアウトし、ログインしなおすこと。
&aname(make);
**[[EusLispのmake>./EusLispのmake]](サーバmizuuchi.lab.t...
- 研究室のサーバーからソースコード一式を取ってきて、自分...
- [[./EusLispのmake]]をする前に、上の[[環境変数の設定>./#...
**[[オープンソース版のEusLisp&jskeusライブラリを作る>./...
- [[SourceForge>http://sourceforge.net/]](([[SourceForge>...
- [[GitHubリポジトリ>https://github.com/euslisp/jskeus]]...
----
*have fun!! &aname(tutorial); [#q6c6aa06]
**まずは確認:小太郎のモデルがpickviewに表示できれば成功...
-もし[[X Window>プログラミング(programming)/X-Window]]が...
$ jskrbeusgl
jskrbeusgl$ (setq r (kotaro :cad t))
jskrbeusgl$ (pickview)
jskrbeusgl$ (objects (list r))
(pickview)でBadFontというエラーメッセージが出た場合は[[Ba...
~
なお、emacs の中で M-x shell として起動したシェルから jsk...
ESC p や ESC n ((「ESC 特定のキー」という記述は、ESCキー...
によって履歴を表示してカーソルを動かして修正して実行した...
ということがやりやすい。~
また、別な手段として、端末から
$ rlwrap jskrbeusgl
として起動すると、実行履歴を利用したりライン編集したりと...
&aname(iroiro);
**色々試してみよう [#r688986b]
euslispのマニュアル&ref(jmanual.pdf);
jskrbeusgl$ (print "LISP: LISt Processing")
jskrbeusgl$ (+ 1 1)
jskrbeusgl$ (mod 5 3)
jskrbeusgl$ (mod 5 8)
jskrbeusgl$ (* (+ 5 445) 8)
jskrbeusgl$ (setq x 10)
jskrbeusgl$ (print x)
jskrbeusgl$ (setq y 20)
jskrbeusgl$ (* x y)
jskrbeusgl$ (+ x y)
jskrbeusgl$ (/ x y)
jskrbeusgl$ (setq z (/ x y))
jskrbeusgl$ (setq z (* x y))
jskrbeusgl$ (defun test (a b) (+ a b))
jskrbeusgl$ (test 10 20)
jskrbeusgl$ (dotimes (i 10) (print i))
jskrbeusgl$ (setq sum 0)
jskrbeusgl$ (dotimes (i 10) (setq sum (+ sum i 1)))
jskrbeusgl$ (print sum)
jskrbeusgl$ (defun sum-all (n) (setq sum 0) (dotimes (i ...
jskrbeusgl$ (list 10 20 30)
jskrbeusgl$ (setq tmp (list 10 20 30))
jskrbeusgl$ tmp
jskrbeusgl$ (1+ 20)
jskrbeusgl$ (2+ 20)
E1-jskrbeusgl$ (reset)
jskrbeusgl$ (defun 2+ (x) (+ x 2))
jskrbeusgl$ (2+ 20)
jskrbeusgl$ tmp
jskrbeusgl$ (mapcar 'sqrt tmp)
jskrbeusgl$ (mapcar '1+ tmp)
jskrbeusgl$ (mapcar '2+ tmp)
jskrbeusgl$ (mapcar '3+ tmp)
E1-jskrbeusgl$ (reset)
jskrbeusgl$ (mapcar '(lambda (x) (+ x 3)) tmp)
jskrbeusgl$ (mapcar '(lambda (x) (* x x)) tmp)
jskrbeusgl$ (mapcar '(lambda (x) (* x x x)) tmp)
jskrbeusgl$ (defclass buttai :slots (weight x y z roll p...
jskrbeusgl$ (instantiate buttai)
jskrbeusgl$ (instantiate buttai)
jskrbeusgl$ (setq cup (instantiate buttai))
jskrbeusgl$ (describe cup)
jskrbeusgl$ (defmethod buttai (:set-weight (w) (setq wei...
jskrbeusgl$ (defmethod buttai (:get-weight () weight))
jskrbeusgl$ (send cup :set-weight 250)
jskrbeusgl$ (describe cup)
jskrbeusgl$ (send cup :get-weight)
jskrbeusgl$ (defmethod buttai (:set-position (pos)
(setq x (c...
pos))
jskrbeusgl$ (send cup :set-position ここに何と書けばよい...
jskrbeusgl$ (defmethod buttai (:get-position () (list x ...
jskrbeusgl$ (defmethod buttai (:orientation (&optional r...
(if (not (...
(setq ...
(list roll...
jskrbeusgl$ (send cup :move 50 0 -100) のようにするため...
jskrbeusgl$ (pickview)
jskrbeusgl$ (setq r (kotaro :cad t))
jskrbeusgl$ (objects (list r))
jskrbeusgl$ r
jskrbeusgl$ (send r :name)
jskrbeusgl$ (send r :height)
jskrbeusgl$ (send r :weight)
E1-jskrbeusgl$ (reset)
jskrbeusgl$ (get r :weight)
jskrbeusgl$ (send r :limbs)
jskrbeusgl$ (length (send r :limbs))
jskrbeusgl$ (setq tmp2 (send r :limbs))
jskrbeusgl$ (first tmp2)
jskrbeusgl$ (second tmp2)
jskrbeusgl$ (elt tmp2 0)
jskrbeusgl$ (elt tmp2 1)
jskrbeusgl$ (elt tmp2 2)
jskrbeusgl$ (elt tmp2 3)
jskrbeusgl$ (elt tmp2 4)
jskrbeusgl$ (elt tmp2 6)
E1-jskrbeusgl$ (elt tmp2 5)
E1-jskrbeusgl$ (reset)
jskrbeusgl$ (send r :joint-list)
jskrbeusgl$ (send r :joint-list :name)
jskrbeusgl$ (send r :limbs :name)
jskrbeusgl$ (send r :wires)
jskrbeusgl$ (length (send r :wires))
jskrbeusgl$ (send r :wires :length)
jskrbeusgl$ (send r :spine :pitch)
jskrbeusgl$ (send r :spine :pitch 10)
jskrbeusgl$ (send *pickview* :draw-objects)
jskrbeusgl$ (send r :wires :length)
**矢口君([[@hyaguchijsk>https://twitter.com/hyaguchijsk]...
- http://euslisp-tutorial.readthedocs.io/ja/latest/
**[[./Lisp練習問題]] [#y098c9d0]
&aname(TIPS);
**[[./TIPS]] [#scedfa97]
&aname(movie);
**pickviewのアニメーションをMPEGにする [#y269fbf7]
+pickviewのLogボタンを押し、onを選択(以降の描画更新を全...
+アニメーションを表示する関数を実行。例: (dolist (v vecs...
+pickviewのLogボタンを押し、offを選択(ここまでの描画更新...
+pickviewのLogボタンを押し、to mpg を選択(&ref(mpeg_enco...
**[[プログラミング(programming)/ProgrammingInJSKからコピ...
&aname(thread);
**スレッド [#w42db736]
-例
59.jskrbeusgl$ (sys::free-threads)
(#<thread #X92a8af4> #<thread #X92ac39c> #<thread #X92a8...
60.jskrbeusgl$ length (sys::free-threads)
4
61.jskrbeusgl$ (make-thread)
[1;31mjskrbeusgl 0 error: undefined function make-threa...
62.E1-jskrbeusgl$ reset
63.jskrbeusgl$ (sys:make-thread)
[1;31mjskrbeusgl 0 error: mismatch argument in (system:...
64.E1-jskrbeusgl$ reset
65.jskrbeusgl$ (sys:make-thread 5)
(#<thread #X9e86edc> #<thread #X9e86f3c> #<thread #X9e86...
66.jskrbeusgl$ (sys::free-threads)
(#<thread #X9e86f3c> #<thread #X9e86f78> #<thread #X9e86...
67.jskrbeusgl$ length (sys::free-threads)
9
68.jskrbeusgl$ (need-thread 10)
nil
69.jskrbeusgl$ length (sys::free-threads)
10
70.jskrbeusgl$ (need-thread 10)
nil
71.jskrbeusgl$ length (sys::free-threads)
10
72.jskrbeusgl$ (need-thread 12)
nil
73.jskrbeusgl$ length (sys::free-threads)
12
74.jskrbeusgl$ (sys::free-threads)
(#<thread #X9e92bf0> #<thread #X9e92af4> #<thread #X9e84...
75.jskrbeusgl$ pprint (sys::free-threads)
(#<thread #X9e92bf0>
#<thread #X9e92af4>
#<thread #X9e84a4c>
#<thread #X9e86f3c>
#<thread #X9e86f78>
#<thread #X9e86edc>
#<thread #X9e84950>
#<thread #X9e86fd8>
#<thread #X92a8af4>
#<thread #X92ac39c>
#<thread #X92a8a94>
#<thread #X92ac3d8>)
nil
76.jskrbeusgl$ (sys:thread #'(lambda () (dotimes (i 10) ...
0
#<thread #X9e92bf0>
77.jskrbeusgl$ 1
2
3
4
nil
77.jskrbeusgl$
nil
77.jskrbeusgl$ 5
nil
77.jskrbeusgl$
nil
77.jskrbeusgl$ 6
7
8
setq x 10
10
78.jskrbeusgl$ 9
nil
78.jskrbeusgl$ (sys::free-threads)
(#<thread #X9e92af4> #<thread #X9e84a4c> #<thread #X9e86...
79.jskrbeusgl$ length(sys::free-threads)
11
80.jskrbeusgl$ sys:wait-thread #<thread #X9e92bf0>
nil
81.jskrbeusgl$ length (sys::free-threads)
12
82.jskrbeusgl$ (setq kawamsk "Kawamura")
"Kawamura"
83.jskrbeusgl$ (setq thre (sys:thread #'(lambda () (doti...
(0 "Kawamura")
#<thread #X9e92bf0>
84.jskrbeusgl$ (1 "Kawamura")
(2 "Kawamura")
(3 "Kawamura")
(4 "Kawamura")
(5 "Kawamura")
(6 "Kawamura")
(7 "Kawamura")
(8 "Kawamura")
(9 "Kawamura")
(10 "Kawamura")
(setq kawamsk :hoge)
:hoge
85.jskrbeusgl$ (11 :hoge)
(12 :hoge)
(13 :hoge)
(14 :hoge)
(15 :hoge)
(16 :hoge)
(setq kawamsk 100)
100
86.jskrbeusgl$ (17 100)
(18 100)
(19 100)
(20 100)
(21 100)
(22 100)
(23 100)
(24 100)
(25 100)
(26 100)
(27 100)
(28 100)
thre
#<thread #X9e92bf0>
87.jskrbeusgl$ (29 100)
(30 100)
(31 100)
(32 100)
(33 100)
(34 100)
(35 100)
(36 100)
(37 100)
(38 100)
(39 100)
(40 100)
(41 100)
(sys:wait-thread thre)
(42 100)
(43 100)
(44 100)
(45 100)
(46 100)
(47 100)
(48 100)
(49 100)
(50 100)
(51 100)
(52 100)
(53 100)
(54 100)
(55 100)
( 56 100)
(57 100)
( 58 100)
(59 100)
(60 100)
(61 100)
(62 100)
(63 100)
(64 100)
(65 100)
(66 100)
(67 100)
(68 100)
(69 100)
(70 100)
(71 100)
(72 100)
(73 100)
(74 100)
(75 100)
(76 100)
(77 100)
(78 100)
(79 100)
(80 100)
(81 100)
(82 100)
(83 100)
(84 100)
(85 100)
(86 100)
(87 100)
(88 100)
(89 100)
(90 100)
(91 100)
(92 100)
(93 100)
(94 100)
(95 100)
(96 100)
(97 100)
(98 100)
(99 100)
nil
88.jskrbeusgl$ (setq thre (sys:thread #'(lambda () (setq...
(0 100)
#<thread #X9e92bf0>
89.jskrbeusgl$ (1 100)
(3 100)
(6 100)
(10 100)
(15 100)
(21 100)
(28 100)
(setq kawamsk "hogeo")
"hogeo"
90.jskrbeusgl$ (36 "hogeo")
(45 "hogeo")
(55 "hogeo")
(66 "hogeo")
(78 "hogeo")
(91 "hogeo")
(105 "hogeo")
(120 "hogeo")
(136 "hogeo")
(153 "hogeo")
(171 "hogeo")
(setq ret (sys:wait-thread thre))
(190 "hogeo")
(210 "hogeo")
(231 "hogeo")
(253 "hogeo")
(276 "hogeo")
(300 "hogeo")
(325 "hogeo")
(351 "hogeo")
(378 "hogeo")
(406 "hogeo")
(435 "hogeo")
435
91.jskrbeusgl$ ret
435
92.jskrbeusgl$ length (sys::free-threads)
12
93.jskrbeusgl$ (sys:thread-no-wait #'(lambda () (setq su...
(0 "hogeo")
#<thread #X9e92bf0>
94.jskrbeusgl$ (1 "hogeo")
(3 "hogeo")
(6 "hogeo")
length (sys::free-threads)
nil
95.jskrbeusgl$ 11
96.jskrbeusgl$ (10 "hogeo")
length (sys::free-threads)
11
97.jskrbeusgl$ (15 "hogeo")
(21 "hogeo")
length (sys::free-threads)
11
98.jskrbeusgl$ (28 "hogeo")
length (sys::free-threads)
11
99.jskrbeusgl$ (36 "hogeo")
length (sys::free-threads)
11
100.jskrbeusgl$ length (sys::free-threads)
11
101.jskrbeusgl$ (45 "hogeo")
length (sys::free-threads)
11
102.jskrbeusgl$ length (sys::free-threads)
12
103.jskrbeusgl$ (defun hoge (x) (setq sum 0) (dotimes (i...
hoge
104.jskrbeusgl$ (hoge 10)
45
105.jskrbeusgl$ (hoge 20)
190
106.jskrbeusgl$ (hoge 30)
435
107.jskrbeusgl$ (sys:thread-no-wait #'hoge 100)
#<thread #X9e92bf0>
108.jskrbeusgl$ length (sys::free-threads)
12
109.jskrbeusgl$ setq thre (sys:thread #'hoge 10000)
#<thread #X9e92bf0>
110.jskrbeusgl$ sys:wait-thread thre
49995000
111.jskrbeusgl$ setq thre (sys:thread #'hoge 100000)
#<thread #X9e92bf0>
112.jskrbeusgl$ sys:wait-thread thre
5536837296
113.jskrbeusgl$ (hoge 1000000)
500536387296
114.jskrbeusgl$ setq thre (sys:thread #'hoge 2000000)
#<thread #X9e92bf0>
115.jskrbeusgl$ sys:wait-thread thre
2000535887296
116.jskrbeusgl$ setq thre (sys:thread #'hoge 2000000)
#<thread #X9e92bf0>
117.jskrbeusgl$ sys:wait-thread thre
2000535887296
118.jskrbeusgl$
ページ名: