ステッピングモータを回してみる

ちょっと電子工作の練習にステッピングモータを回すことにした。
使うのはユニポーラステッピングモータSPG20-332。
これを単３電池４本で駆動してみた。

練習なので手作業のスイッチ駆動。
シートによると１ステップで0.75°動くらしいけど、そんなの見てもよくわからないので目立つように付箋をくっつけた。
実際の動きはこんな感じ。

…あんまり面白くないけど、まあ動作確認だから。
マイコンでいじるなら四本のピンから順番に信号送ればいいのかな？
まだまだ知らなきゃいけないことが多いなぁ。

参考にしたのはこの辺。

SICPよんでみる 3.2.3

計算機プログラムの構造と解釈。
状態変数を持つオブジェクトの話。

ASUS EP121に野良ドライバ導入

(2011.05.14追記：公式のペンドライバが公開されています。これからペンドライバを導入する人はそちらを入れた方が安全です）


SICPまんがを描いている途中でいきなりtx2505のペン入力が壊れたので、慌ててEP121をセットアップ。
そのままでも一応コミスタは動くのだけど、ペンが微妙に振動する感じだったり、位置調整がうまくいかなかったりと全体的に今ひとつ使いにくい。

というわけでwacomの野良ドライバを導入する。
http://forum.tabletpcreview.com/ep121-slate/40666-wacom-enhanced-driver-penable-device.html

・上の途中にあるリンクからUnofficialEnhancedPen.zipをダウンロードして解凍。
・デバイスマネージャのヒューマンインターフェースデバイスにあるWacom Penのドライバを削除して再起動。
・再起動すると自動的にドライバがインストールされるけどそれは問題無し。
・もういちどデバイスマネージャのヒューマンインターフェースデバイスを見ると、一番下にUSBデバイスが増えているので、ドライバの更新を選んで先ほど解凍したフォルダの下のhidfilterを指定。
・解凍フォルダのISD_DualTouch_702-18_webを開いてsetup.exeを実行。
・コントロールパネルの「ハードウェアとサウンド」の下に「ペンタブレットのプロパティ」が増えているので、使いやすいように設定やキャリブレーション。

まだあまり使っていないけれど、ペンがかなり改善した気がする。
性能はtx2505よりかなり上だし、なんといってもはるかに静か！
しばらく使い込んでみないとね。

あまり関係ないけどEP121は割とスピーカがいい感じ。

SICPよんでみる 3.2.2

計算機プログラムの構造と解釈のまんが記録。
環境モデルの適用の仕方その１。

塞翁が馬

金曜日は一日風邪で寝ていたおかげで、帰宅困難者にならずに済みました。
風邪が治らずに土日もずっと寝てたけど。

そして今日はJRがそこらじゅうで運休。最寄り駅が止まっているので身動き取れない。
明日はどうなるんだろ？

何人かの東北の知人も心配だし。

Schemeでクイックソート

バブルソートを作ったからには、もちろんクイックソート(quick sort)も作らないとね。

(define (cat l1 l2)
  (cond ((null? l1) l2)
        (else (cons (car l1)(cat (cdr l1) l2)))))

(define (q-sort li)
  (define (split in lo hi mp)
    (cond ((null? in)(cat (q-sort lo)(cons mp (q-sort hi))))
          ((> mp (car in))(split (cdr in)(cons (car in) lo) hi mp))
          (else (split (cdr in) lo (cons (car in) hi) mp))))
  (cond ((null? li) li)
        (else (split (cdr li) '() '() (car li)))))

昨日のバブルソートよりはだいぶ見やすいプログラムになってる。
まあ昨日は酒が入ってたしね。

Schemeでバブルソート

「数学ガール」にバブルソートが出てきたので、何となく書いてみた。
とりあえずやっつけ。

(define (list-count l)
  (cond ((null? l) 0)
        (else (+ 1 (list-count (cdr l))))))

(define (one-path l)
  (cond
    ((or (null? l) (null? (cdr l))) l)
    ((> (car l)(cadr l))(cons (cadr l)
                              (one-path (cons (car l)(cddr l)))))
    (else (cons (car l)(one-path (cdr l))))))

(define (b-sort l num)
     (cond ((zero? num) l)
           (else (b-sort (one-path l) (- num 1)))))

(define (bubble-sort l)
  (cond
   ((null? l) l)
   (else (b-sort l (- (list-count l) 1)))))