パルスジェネレーターver2.0

先日、新しいパルスジェネレーターを検討すると書いたが、いろいろ思考をめぐらしていくうちに、今あるパルスジェネレーターを少し改造すれば、簡単に使えるのではないかと思った。

実を言うと、USB機能の追加が少しハードルが高くて、どうしようか悩んでいたのもある。
まずPIC18Fだと、Cよりもアセンブラになるだろうということ、リアルタイムOSが使えるかどうかということ、USBをリアルタイムOSに乗せるのは可能か、などなど。
すると、実績などを考えるとPIC24Fの方がよくないかとか、課題が増えてしまって、収集がつかなくなってしまう。


だから、まずは既存のパルスジェネレーターを改造することから初めて、新しいパルスジェネレーターの本当に必要な機能を見極めてから、作っても遅くは無いだろうという思いが出てきた。


USB機能はないが、マニュアル操作で、パルス量をリアルタイムに変化できるようにしてみたい。

操作は、ロータリーエンコーダーがあるので、パルス出力中にこれをまわすとパルス量が増減できるようにする。
となると、PICソフトを書き換えるだけで済む。

MPLABを立ち上げて、プロジェクトを開く。FreeRTOSを使ったソフトだったことを思い出した。

LCD表示でパルス幅1.0usec未満の場合に小数点が消えるバグがひとつあったので、これもついでに直す。


コンパイルが通ったところで、メモリーUSAGEを見てみる。まだ十分な余裕がある。

パルス量増減モードを追加しても問題なさそうだ。

新しいパルス発信器を

フリーエネルギー装置の実験は、全く結果が出なかった。

いろいろと検討してみたのだが、パルスのかけ方に問題があるのではないかと思った。

以前作ったパルスジェネレータは、一定の周期でパルスを出すことができるが、このパルスの密度を高めるとかいった用途には使えないのだ。

パルスの与える回数を、加速度を加えるように密度を上げていきたいのである。そういうことができるようなものを作ろうと思う。パルス密度スイープ機能付のパルスジェネレーターである。

それから、実験に際して、毎回手でスイープさせるのも面倒なので、USB付のPICを使って、パソコンからコントロールできるようにしてみたい。実験パターンを自動化したいのである。

ハードウェア構成は、PIC18F4550＋MAXⅡをベースにしたもので検討することにする。

CNCコントロールボックスを作り直した

ちょっと時間ができたので、CNCの電源と関連するコントローラー類をひとつにまとめて収容するボックスを作ってみた。

また例によって、木製である。アルミはカッコ良いが、高価なのであきらめる。
近くのホームセンターにコンクリート打設用の型枠として使われる合板の端材が安く入手できたので、それで作った。

ちなみに、ボックスの色が、からし色なのは型枠用合板だから。

今回、基板を固定するのに鬼目ナットを使ったのだが、からし色の塗装と相まってなかなか良い感じで基板を固定することができた。

ついでに、非常停止ボタンなどもつけてみる。

PIC12F509という8ピンの小さなPICをつかって、非常停止ボタンが押されたら、PC用の電源３つのパワーが落ちるという細工を試みる。

CNC周りの配線に少し余裕を持たせて、コネクタで接続できるようにした。CNC本体とコントロールBOXとが分離できるようになったので、移動させるのも困らなくなった。

これで、CNCの使い勝手が少し向上した。
まだまだ、成長途中。あちこち修正したい点はたくさんある。
また時間のあるときに少しずつ改良することになるだろう。

以下、PICのアセンブラソース

;
; CNC 非常停止ボタンコントローラー
;
; ** HISTORY **
; 2012-04-26 新規 by Mahakala
; 2012-04-27 細かなバグ取り by Mahakala
;            ⇒キーを離した瞬間に切り替わっていたので、キー前処理で反転するように修正
;
;--------------------------------------
; SPECIFICATION:
;   非常停止ボタンの制御を行い、電源BOXのON/OFFを行う。
;   復旧はRESETボタンで行う。
;   POWER ON 時は、非常ボタン押下時と同じ。
;
; CLOCK 4MHz (PIC内蔵OSC)
;
; GP5 : OUTPUT RED LED EMERGENCY : 正常=OFF,停止=ON
; GP4 : INPUT  SW1 RESET         : 押す=Lo,通常=Hi
; GP3 : INPUT  SW2 EMERGENCY     : 押す=Hi,通常=Lo (BREAK接点)
; GP2 : OUTPUT RELAY3            : 正常=ON,停止=OFF
; GP1 : OUTPUT RELAY2            : 正常=ON,停止=OFF
; GP0 : OUTPUT RELAY1            : 正常=ON,停止=OFF
;
            LIST        P=12F509
            #INCLUDE   
            __CONFIG    _MCLRE_OFF & _CP_OFF & _WDT_OFF & _IntRC_OSC

;
;***** MACRO *****
;----------------------------------------
;MOVE    L to F
;※Ｗレジスタ破壊
;例：    MOVLF    H'10',FILE
;----------------------------------------
MOVLF        MACRO    L,FILE
            MOVLW    L
            MOVWF    FILE
            ENDM

;----------------------------------------
;MOVE    F to F
;※Ｗレジスタ破壊
;例：    MOVFF    SRC,DST
;----------------------------------------
MOVFF        MACRO    SRC,DST
            MOVF    SRC,W
            MOVWF    DST
            ENDM

;----------------------------------------
;IF(FILE1 <> FILE2) GOTO PTR
;Ｆ１＜＞Ｆ２の場合ＰＴＲへとぶ
;※Ｗレジスタ破壊
;例：    CPFFN    F1,F2,PTR
;----------------------------------------
CPFFN        MACRO    FILE1,FILE2,PTR
            MOVF    FILE1,W
            XORWF    FILE2,W                ;IF FILE1 = FILE2 THEN Z = 1
            BTFSS    STATUS,Z            ;Z = 1 なら１行とばす
            GOTO    PTR
            ENDM

;----------------------------------------
;JMP    Z,PTR
;　結果が０なら PTR へジャンプ
;例：    JPZ    PTR
;----------------------------------------
JPZ            MACRO    PTR
            BTFSC    STATUS,Z
            GOTO    PTR
            ENDM

;
;***** LABEL DEFINITIONS *****
LED            EQU        0x05
RES_SW        EQU        0x04
EMG_SW        EQU        0x03
RELAY3        EQU        0x02
RELAY2        EQU        0x01
RELAY1        EQU        0x00
;
;***** VARIABLE DEFINITIONS *****
            UDATA
WORK        RES        1            ;作業用
EMRGCY        RES        1            ;動作モード 正常=0,非常停止中=1
KEY_PRV        RES        1            ;前回のキー値
KEY_FIL        RES        1            ;キーフィルタ
KEY_WK        RES        1            ;キーワーク
WAIT_CNT    RES        1            ;WAIT用カウンタ
WAIT_MSC    RES        1            ;msec WAIT用カウンタ

;***** PROGRAM AREA *****
            CODE    0
;
;            ORG        0x000
MAIN
            ;Initialize Port
            MOVWF    OSCCAL
            MOVLW    0x18            ;GP3とGP4を入力にする
            TRIS    0x06
            MOVLW    0xDF            ;T0CKIは使わないで、GP2を出力ポートに
            OPTION

            ;Initialize Variables
            CLRF    KEY_PRV
            CLRF    KEY_FIL
            CLRF    WAIT_CNT
            CLRF    WAIT_MSC
            MOVLF    .1,EMRGCY        ;起動時は'1'にする

            ;Initialize I/O
            BSF        GPIO,RELAY1        ;全リレーOFF
            BSF        GPIO,RELAY2        ; => H出力でRELAY=OFF
            BSF        GPIO,RELAY3
            BSF        GPIO,LED        ;LED点灯

            CALL    WT256MS            ;0.5秒待つ
            CALL    WT256MS

            ;キー入力の処理
LOOP        MOVF    GPIO,W
            MOVWF    WORK            ;復帰釦(GP4)をビット反転する
            BTFSS    WORK,RES_SW        ;IF GP4=0 GOTO GP3SET
            GOTO    GP4SET
            BCF        WORK,RES_SW        ;GP4:1から0へ
            GOTO    KEYINP
GP4SET        BSF        WORK,RES_SW        ;GP4:0から1へ
KEYINP        MOVF    WORK,W
            ANDLW    B'00011000'        ;GP4,GP3を取る
            MOVWF    KEY_WK
            CPFFN    KEY_WK,KEY_FIL,KEYEND    ;IF WK<>FIL THEN GOTO KEYEND
            MOVFF    KEY_PRV,WORK    ;a = PRV
            MOVFF    KEY_WK,KEY_PRV    ;PRV = WK
            MOVF    WORK,W            ;押下エッジ検出
            XORWF    KEY_WK,W        ;(a XOR WK) AND WK
            ANDWF    KEY_WK,W
            JPZ        KEYEND            ;IF W==0 GOTO KEYEND
           
            ;キー押下時の処理
            MOVWF    WORK            ;非常釦(GP3)？復帰釦(GP4)？
            BTFSS    WORK,EMG_SW        ;IF GP3==0 GOTO RES_ON
            GOTO    RES_ON            ;
           
            ;非常釦の処理
            BTFSC    EMRGCY,0        ;IF EMRGCY==1 THEN GOTO KEYEND
            GOTO    KEYEND
           
            MOVLF    .1,EMRGCY        ;モード：非常停止中
            BSF        GPIO,RELAY1        ;全リレーOFF
            BSF        GPIO,RELAY2
            BSF        GPIO,RELAY3
            BSF        GPIO,LED        ;赤LED ON
                                   
RES_ON        BTFSS    WORK,RES_SW        ;IF GP4==0 GOTO KEYEND
            GOTO    KEYEND            ;
           
            ;復帰釦の処理
            BTFSS    EMRGCY,0        ;IF EMRGCY==0 THEN GOTO KEYEND
            GOTO    KEYEND
           
            CLRF    EMRGCY            ;モード：正常動作中
            BCF        GPIO,RELAY1        ;全リレーON
            BCF        GPIO,RELAY2
            BCF        GPIO,RELAY3
            BCF        GPIO,LED        ;赤LED OFF
                                   
KEYEND        MOVFF    KEY_WK,KEY_FIL    ;フィルター保存
            GOTO    LOOP

;---------------------------------------------
; 256ms WAIT
WT256MS        MOVLF    .0,WAIT_CNT

;---------------------------------------------
; ミリ秒ウェイト
; CLOCK 4MHz : 0.25usec
; 4T=1u
; CNT=0x01 : 2+1+(17+1+2)*49+17+1+1+2  = 1004step :   1.004msec
; CNT=0x02 : 2+(1+(20*50-2)+1+2)*2-2+2 = 2006     :   2.006
; CNT=0x03 : 2+(1+(20*50-2)+1+2)*3-2+2 = 3008     :   3.008
; CNT=0xFF : 2+(20*50-2+4)*255         = 255512   : 255.512
; CNT=0x00 : 2+(20*50-2+4)*256         = 256514   : 256.514

;            CALL    WAIT_MS            ;+2
WAIT_MS        MOVLF    .50,WAIT_MSC    ;+1
WTMS1        NOP                        ;+1
            NOP                        ;+1
            NOP                        ;+1
            NOP                        ;+1
            NOP                        ;+1
            NOP                        ;+1
            NOP                        ;+1
            NOP                        ;+1
            NOP                        ;+1
            NOP                        ;+1
            NOP                        ;+1
            NOP                        ;+1
            NOP                        ;+1
            NOP                        ;+1
            NOP                        ;+1
            NOP                        ;+1
            NOP                        ;+1
            DECFSZ    WAIT_MSC,F        ;+1
            GOTO    WTMS1            ;+2
            DECFSZ    WAIT_CNT,F        ;+1
            GOTO    WAIT_MS            ;+2
            RETURN                    ;+2

            END
;***********************

ちょっと休憩（瞑想）します

4月中頃まで瞑想して、自己の内側を見つめてみたくなりました。
リフレッシュすれば、また新たなアイディアなどが浮かんでくるかも知れません。

ということで、ちょっと休憩。

「真空はなにもない」は間違いである

真空というと、学校では、何もないと教えられた。
だから、何もないところからどうやってエネルギーなんて取り出せるんだと考えるのが常識。

でも、本当に真空は何もないのだろうか？


私の中での結論は、
真空は、エネルギーが満ち溢れていて、とても安定した状態である。

微細な領域では、粒子が発生したり対消滅したりを頻繁に繰り返している。
全体を見ると、その総エネルギーはプラスでもなくマイナスでもなくゼロとなるので何も存在しないとも言える。




真空中にガンマ線を照射すると、電子－陽電子の対発生が起こるのである。

ほんとうに何もないのであれば、ガンマ線というエネルギーを加えて、電子・陽電子が発生するはずがないのである。




エーテルの存在は否定されているが、そもそも実験方法が間違っていたのではないか。エーテルの仮定が根本的に間違っていて、微細な状態、あるいは虚質的状態ではないだろうかという検討が入っていなかったのではないか。

そもそも、ニュートリノなど物質を透過してしまう素粒子が存在するわけだから、エーテル存在実験をやり直すべきだと思う。




仏教の五大は、地・水・火・風・空を定義している。
これは、物質のエネルギー状態を端的に表現している。私は、仏教が非常に科学的だったひとつの証拠でもあると思う。

水で考えてみると、

地＝氷の状態、
水＝液体の状態または水蒸気の状態、
火＝プラズマ状態、
風＝核の拡散・融合の状態、
空＝完全に粒子性をなくして純粋なエネルギー、根源的なエネルギー状態

と定義できると思う。
ちなみに大乗仏教では、空性を最終地点とする。これは大いなるニルヴァーナである。大涅槃である。魂が完全に昇華されてこの状態に至るということである。
仏陀の智恵は偉大である。科学を超えている。

書籍：波動性科学

こちらは、先に紹介した「新波動性科学入門」の問題点解明を目的とした書物だそうである。
私は、間違って、「入門」よりもこちらを先に購入してしまっていた。そのため、話が良く分からないぞ、ということもあって、あとから「入門」を入手するということをやってしまった。

著者の目的どおり「入門」には書かれていない詳細な内容のデータや検証などが書かれている。

実験に使った無誘導コイルも図解されている。このコイル、電磁石で発生するNとSをキャンセルするように巻いたものなのだが、なぜ、この巻き方にしたのだろうか？
このキャンセル巻きは、メビウス巻きと同様にテスラ波を発生させるといわれているので、非常に気になる。

書籍：新波動性科学入門

こちらの書籍は、以前紹介した「スカラー波理論こそが科学を革命する」の中、あちこちで引用されていたので、入手してみた。

「スカラー波理論こそが科学を革命する」を読んだときに感じた印象とは、まったく違い、理系の私がとても読みやすいなと感じた。
このあたりは、ひとつの疑問から、仮定をして、それを検証するという著者の科学的な思考パターンなり行動が、とてもなじみやすいからだと思う。説明も納得の行く科学的根拠を述べているので安心できる。

ベアデンの扱っているスカラー波は、重力波であり、重力場の伸び縮みであると言っている。４次元に対して、この重力場を次元として追加して、５次元を定義している。こういった、スケールの大きな仮説を立てているのである。もちろん、彼は、フリーエネルギーのよき理解者であり、その普及を理論面からサポートしていると思う。

一方こちらの「波動性科学」は、違ったアプローチをしている。物質ばかりを見てきた科学に対して、それまで説明し切れなかった部分を粒子性ではなく、波動性から解明しようという試み。
著者は、ご自身で立てた仮説を、検証も行っている。これは、なかなか意義深い。
さすがは日本人だけあって、東洋的思想が背景にあり、心、精神にも話が言及されている。また、宇宙、銀河のレベルから、原子、量子レベルまでをひとつの統一された秩序で構成されていることを述べている。ベアデンとは違った観点、違った切り口から、万有引力（原子波）にたどり着いている点は面白い。

著者はすでに他界されているとのことで、残念でならない。