title

Raspberry PI 3

更新：2024-05-03 下村清 / sameon@asahi-net.email.ne.jp
[troff-utf8.png]
2024-05-03　「heirloom-doctools」
参照：https://github.com/n-t-roff/heirloom-doctools/issues/85
　　Build problem #85
(1) Computing Science Technical Report No. 116
    PIC — A Graphics Language for Typesetting User Manual  / Brian W. Kernighan
    AT&T Bell Laboratories
(2) Tbl — A Program to Format Tables / L. L. Cherry, M. E. Lesk / AT&T Bell Laboratories
(3) Heirloom Documentation Tools Nroff/Troff User’s Manual 
     Joseph F. Ossanna, Brian W. Kernighan, Gunnar Ritter, ...others
(4) Document Formatting and Typesetting on the UNIX System"
     Second Edition Volume I (1987), II (1988) / Narain Gehani, Steven Lally / SILICON PRESS

行列計算をやったので数式を清書してみたいと思ってroff-eqn | tbl | pic | grap をまたやってみた。
Heirloom Doctools を使う。昔からの書き方が使えるので。
UTF-8日本語マニュアルが清書できるようになっていた。
PSファイルへの出力はフォント設定、dpostの扱いがどうかは調べてないのでできていない。
英文字のGRAP,PIC,EQN,TBLは動く。

$ git clone https://github.com/n-t-roff/heirloom-doctools.git

$ sudo apt install -y cmake
$ sudo apt install -y bison flex
$ sudo apt install -y byacc
$ YACC=/usr/bin/byacc
$ export YACC
$ cd heirloom-doctools

$ ./configure
$ make
$ sudo make install

....
dpost , grap等は　/usr/local/ucb にある
$ ls /usr/local/ucb
addbib   col    eqn      lookbib  otf_info  ptx      soelim   tbl
checkeq  dhtml  grap     neqn     pic       refer    sortbib  troff
checknr  dpost  indxbib  nroff    picpack   roffbib  ta       vgrind

(o)clear
$ make  mrproper

(o)alias
$ nano ~/.bash_aliases
...
alias nroff='/usr/local/ucb/nroff'
alias troff='/usr/local/ucb/troff'
alias tbl='/usr/local/ucb/tbl'
alias eqn='/usr/local/ucb/eqn'
alias neqn='/usr/local/ucb/neqn'
alias dpost='/usr/local/ucb/dpost'
alias col='/usr/local/ucb/col'
alias grap='/usr/local/ucb/grap'
...
$ . ~/..bash_aliases
aliasが登録される。
$ alias
  コマンドで確認すること。
　次回のログオンから自動登録される。

日本語manページダウンロード
https://linuxjm.sourceforge.io/download.html
マニュアルアーカイブのダウンロード

https://linuxjm.sourceforge.io/man-pages-ja-20231115.tar.gz
解凍。
man-pages-ja-20231115/manual/GNU_coreutils/man1/ls.1
を使う。

$ tbl -Tlocale ls.1 | neqn | nroff -Tlocale -mg -mandoc | col -x | ul
  これで日本語マニュアルページが見える。

$ tbl -Tlocale ls.1 | neqn | nroff -Tlocale -mg -mandoc | col -bx > ls.txt
　これで日本語マニュアルページのテキストになる。

英文のGRAP,PIC,EQN,TBLは、
$ /usr/local/ucb/grap FILE.grap| /usr/local/ucb/pic |/usr/local/ucb/tbl |/usr/local/ucb/eqn | /usr/local/ucb/troff -ms |/usr/local/ucb/dpost  > FILE.ps

$ evince FILE.ps  ->  印刷 PDF
で見える。

2024-04-17　「固有値計算比較テスト」
参照：UNIXワークステーションによる科学技術計算ハンドブック　戸川隼人著　サイエンス社　1992

　　　FORTRAN数値計算とプログラミング　国井利泰監修　中村明子、伊藤文子著　1971 共立出版
   　  1.5　固有値　A.ヤコビ法　EX-1-5-A　p-91 ~ 100

　　　行列計算ソフトウェア　小国力編著　村田、三好、ドンガラ、長谷川著　丸善　1991,2000 プログラムFD付き
     固有値計算と特異値計算　日本計算工学会編　長谷川,今村,山田,櫻井,荻田,相島,木村,中村著　丸善 2019
       プログラムがダウンロード可。ヤコビ方式プログラムはV1.0、行列計算ソフトウェア(2000)のFDにあるものは
　　　　V2.0（サブルーチンの最後に検算が追加されている）となっている。
　　　　手順はThe Jacobi Method for Real Symmetric Matrices(H.Rutishauser)
      となっている。下記のJohn Burkardt氏のものと同様である。
　　　　PYTHONに変換してやってみると検算で精度がわるい。John Burkardt氏と比べると判定値３箇所ほど違う
　　　　ところがある。John Burkardt氏のように変更するとよくなる。

     https://people.sc.fsu.edu/~jburkardt/py_src/jacobi_eigenvalue/jacobi_eigenvalue.html
     John Burkardt
　　　　　テストする場合は、ここからjacobi_eigenvalue.pyをダウンロードすること。
         people.math.sc.edu/Burkardt/py_src/jacobi_eigenvalue/jacobi_eigenvalue.htmlのもある
　　　　　が更新日が古い、ライセンスがGPLとなっている。
　　　　　新しいほうは、ライセンスがMIT。

　　　http://ics.p.lodz.pl/~dpuchala/JacobiNewI.pdf
　　　　　Handbook Series Linear Algebra/The Jacobi Method for Real Symmetric Matrices
        H.Rutishauser

　　　https://stackoverflow.com/questions/10806790/generating-symmetric-matrices-in-numpy
　　　　　Generating Symmetric Matrices in Numpy

UNIXワークステーションによる科学技術計算ハンドブックのJAC7.CをPYTHONに変換したもの。
FORTRAN数値計算とプログラミングのFORTRANをPYTHONにしたもの。
J.Burkardt氏のものをそのまま使用。numpy.linalg.eig()を比べてみた。
ヤコビ法は、対称行列のみが計算対称なので対称行列のみを計算する。

$ python test-all.py
◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎
◎◎◎◎◎◎◎◎◎◎◎計算開始◎◎◎◎◎◎◎◎◎◎
◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎
No.1 計算行列 4 x 4
[[ 21.2   51.5   17.8   21.4 ]
 [ 51.5   39.    56.05 -39.1 ]
 [ 17.8   56.05   9.   -44.75]
 [ 21.4  -39.1  -44.75  -4.1 ]]

■■■■■■■■■　計算結果 No.1　■■■■(科学技術計算ハンドブック)■■■■■
固有値
 [-40.00264901575932, 125.7493950044248, -58.50030558547468, 37.85355959680922]
固有ベクタ
 [[ 0.21250619  0.36561209 -0.50821882  0.75025498]
 [-0.58893811  0.69993445  0.39337504  0.09219412]
 [ 0.75911892  0.51787123  0.28012443 -0.27762954]
 [ 0.17813335 -0.3289817   0.71309186  0.5929077 ]]
　　■■■　検証１　■■■
[2.78043825e-14 4.81913530e-14 2.79740955e-14 1.57448258e-14]
　　■■■　検証２　■■■
[[ 0.00000000e+00 -7.10542736e-15  1.77635684e-14 -3.55271368e-15]
 [-2.13162821e-14  4.26325641e-14  3.55271368e-15  5.77315973e-15]
 [-1.77635684e-14  0.00000000e+00  0.00000000e+00  0.00000000e+00]
 [ 1.77635684e-15  2.13162821e-14 -2.13162821e-14 -1.42108547e-14]]

■■■■■■■■■　計算結果 No.1　■■■■(FORTRAN数値計算とプログラミング)■■■■■
固有値
 [-55.792972180451464, -9.031737456399028, 64.02302580941523, 65.90168382743529]
固有ベクタ
 [[ 0.62693309  0.38438309  0.59707089 -0.32048539]
 [-0.74411862  0.24834997  0.34473792 -0.51552453]
 [ 0.11869282 -0.85858514  0.17804532 -0.4658792 ]
 [-0.19787469 -0.23109194  0.70211251  0.64380132]]
　　■■■　検証１　■■■
[39.42200601 39.964956   58.72369839 66.5872806 ]
　　■■■　検証２　■■■
[[  7.82554737   4.18240917  10.38003546  -6.73857808]
 [-23.86052837  -7.36359255   4.64960558 -53.92168093]
 [-14.00308674  15.62161728 -11.26570479 -36.90058768]
 [ 26.9711719   35.7973147  -56.49949274 -10.92046047]]

■■■■■■■■■　計算結果 No.1　■■■■(sc.fsu.edu/ j.burkardt)■■■■■
固有値
 [-58.50030558547471, -40.002649015759324, 37.85355959680921, 125.74939500442483]
固有ベクタ
 [[-0.50821882  0.21250619  0.75025498  0.36561209]
 [ 0.39337504 -0.58893811  0.09219412  0.69993445]
 [ 0.28012443  0.75911892 -0.27762954  0.51787123]
 [ 0.71309186  0.17813335  0.5929077  -0.3289817 ]]
　　■■■　検証１　■■■
[8.70233572e-15 1.47555281e-14 1.23149709e-14 2.92964275e-14]
　　■■■　検証２　■■■
[[-3.55271368e-15 -1.77635684e-15  0.00000000e+00  0.00000000e+00]
 [ 0.00000000e+00  0.00000000e+00  1.11022302e-14  0.00000000e+00]
 [ 3.55271368e-15  1.42108547e-14  5.32907052e-15 -2.84217094e-14]
 [ 7.10542736e-15 -3.55271368e-15  0.00000000e+00 -7.10542736e-15]]

■■■■■■■■■　計算結果 No.1　■■■■(PYTHON NUMPY linalg.eig)■■■■■
固有値
 [125.74939500442478, 37.85355959680924, -58.50030558547472, -40.00264901575932]
固有ベクタ
 [[-0.36561209 -0.75025498 -0.50821882  0.21250619]
 [-0.69993445 -0.09219412  0.39337504 -0.58893811]
 [-0.51787123  0.27762954  0.28012443  0.75911892]
 [ 0.3289817  -0.5929077   0.71309186  0.17813335]]
　　■■■　検証１　■■■
[7.78360569e-14 3.52261012e-14 4.57735138e-14 1.83962314e-14]
　　■■■　検証２　■■■
[[ 2.84217094e-14  2.48689958e-14 -3.55271368e-15 -1.77635684e-15]
 [-7.10542736e-14  2.04281037e-14 -3.55271368e-15  1.42108547e-14]
 [ 1.42108547e-14  1.77635684e-15 -3.55271368e-14  1.06581410e-14]
 [ 0.00000000e+00  1.42108547e-14  2.84217094e-14 -4.44089210e-15]]
◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎
◎◎◎◎◎◎◎◎◎◎◎計算開始◎◎◎◎◎◎◎◎◎◎
◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎◎
No.2 計算行列 4 x 4
[[-35.8  -61.45   6.5  -29.4 ]
 [-61.45  97.2   58.1   20.7 ]
 [  6.5   58.1   26.6  -66.9 ]
 [-29.4   20.7  -66.9   -7.9 ]]

■■■■■■■■■　計算結果 No.2　■■■■(科学技術計算ハンドブック)■■■■■
固有値
 [-67.07620293659039, 144.65559681297157, 78.70918808502054, -76.18858196140172]
固有ベクタ
 [[ 0.89518041 -0.27761022  0.32206096 -0.13364635]
 [ 0.29515964  0.86519733 -0.21676487 -0.34253082]
 [-0.00672204  0.41739515  0.64435728  0.6407338 ]
 [ 0.33389765 -0.01214253 -0.65885766  0.67399666]]
　　■■■　検証１　■■■
[5.41051503e-14 1.82022411e-14 2.51214793e-14 2.77475809e-14]
　　■■■　検証２　■■■
[[ 4.97379915e-14 -7.10542736e-15 -1.06581410e-14 -1.06581410e-14]
 [ 1.06581410e-14 -1.42108547e-14  1.77635684e-14 -2.13162821e-14]
 [-1.50435220e-14  7.10542736e-15 -1.42108547e-14 -1.42108547e-14]
 [ 1.06581410e-14 -5.32907052e-15  0.00000000e+00  0.00000000e+00]]

■■■■■■■■■　計算結果 No.2　■■■■(FORTRAN数値計算とプログラミング)■■■■■
固有値
 [-68.61745588275613, 67.46200861910354, -1.1203217022646799, 82.37576896591735]
固有ベクタ
 [[ 0.90198654 -0.42919041  0.02345202  0.04081524]
 [ 0.34596093  0.68635341  0.26675139 -0.58144108]
 [-0.23780854 -0.49630771  0.73918869 -0.38823425]
 [ 0.10088817  0.31367698  0.61797555  0.71381689]]
　　■■■　検証１　■■■
[11.37656598 57.89211363 99.13680835 81.48374029]
　　■■■　検証２　■■■
[[  3.82973654 -10.30545643 -30.5689359    7.39644255]
 [ -9.78900249  24.44215811  80.52491271 -18.90791372]
 [ -3.42970011  36.38253546  -5.20132185 -59.6167138 ]
 [  2.67805134  36.38937221 -48.80913453 -51.70329586]]

■■■■■■■■■　計算結果 No.2　■■■■(sc.fsu.edu/ j.burkardt)■■■■■
固有値
 [-76.18858196140172, -67.07620293659033, 78.7091880850205, 144.65559681297154]
固有ベクタ
 [[-0.13364635  0.89518041  0.32206096 -0.27761022]
 [-0.34253082  0.29515964 -0.21676487  0.86519733]
 [ 0.6407338  -0.00672204  0.64435728  0.41739515]
 [ 0.67399666  0.33389765 -0.65885766 -0.01214253]]
　　■■■　検証１　■■■
[2.16831986e-14 1.21801131e-14 3.25611587e-14 4.28010775e-14]
　　■■■　検証２　■■■
[[ 1.24344979e-14 -7.10542736e-15  1.42108547e-14 -7.10542736e-15]
 [-1.06581410e-14  0.00000000e+00  0.00000000e+00  2.84217094e-14]
 [-1.42108547e-14  6.88338275e-15  7.10542736e-15 -2.84217094e-14]
 [ 0.00000000e+00  7.10542736e-15 -2.84217094e-14 -1.28785871e-14]]

■■■■■■■■■　計算結果 No.2　■■■■(PYTHON NUMPY linalg.eig)■■■■■
固有値
 [144.65559681297142, 78.70918808502046, -67.07620293659025, -76.18858196140174]
固有ベクタ
 [[-0.27761022  0.32206096  0.89518041 -0.13364635]
 [ 0.86519733 -0.21676487  0.29515964 -0.34253082]
 [ 0.41739515  0.64435728 -0.00672204  0.6407338 ]
 [-0.01214253 -0.65885766  0.33389765  0.67399666]]
　　■■■　検証１　■■■
[1.42978968e-13 7.58652039e-14 1.10133467e-13 3.46731022e-14]
　　■■■　検証２　■■■
[[ 1.42108547e-14  3.55271368e-14 -9.23705556e-14  5.32907052e-15]
 [ 1.27897692e-13 -2.84217094e-14 -5.32907052e-14  1.77635684e-14]
 [ 5.68434189e-14  5.68434189e-14 -2.53685961e-14  2.84217094e-14]
 [ 2.55351296e-14 -2.13162821e-14 -1.06581410e-14 -7.10542736e-15]]
[test-all.tgz 2.8kb]

2024-04-10 　「行列 dot()計算」
配列の内積計算。

---- mydot.py ------
def dim(a):
    if not type(a) == list:
        return []
    return [len(a)] + dim(a[0])

def isnotnum(n):
    return (not isinstance(n, int) and not isinstance(n, float) and not isinstance(n, complex))

def mydot(a,b):
  '''  Dot()
         in: a, b : matrix (list)
        out: matrix (list)
                                    1
                                +-------+
                  n * m  ==>  1 | n * m |
                                +-------+

                 b_col            b_col
                +-----+         +-------+
         n * bl |  B  |  ==> bl | n * B |
                +-----+         +-------+

             a_col                a_col
           +------+             +-------+
        al | A    | * n  ==> al | A * n |
           +------+             +-------+

       a_col            b_col           b_col
      +------+         +-----+         +-----+
   al | A    |   *  bl |  B  |  ==> al | ans |
      +------+         +-----+         +-----+
       IF a_col != bl THEN ERROR
      
      (A[0][0-n]  *  B[0-n][0])合計  ==> ans[0][0]
      (A[0][0-n]  *  B[0-n][1])合計  ==> ans[0][1]
      (A[0][0-n]  *  B[0-n][n])合計  ==> ans[0][n]

      (A[1][0-n]  *  B[0-n][0])合計  ==> ans[1][0]
      (A[1][0-n]  *  B[0-n][1])合計  ==> ans[1][1]
      (A[1][0-n]  *  B[0-n][n])合計  ==> ans[1][n]

      (A[n][0-n]  *  B[0-n][0])合計  ==> ans[n][0]
      (A[n][0-n]  *  B[0-n][n])合計  ==> ans[n][n]
  '''
  alc = dim(a)
  blc = dim(b)
  rr = []
  if len(alc) < 0 or len(alc) > 2:
    return rr
  if len(alc) == 1:
    alc[0:0] = [1]
    a = [a]
  if len(blc) < 0 or len(blc) > 2:
    return rr
  if len(blc) == 1:
    blc[0:0] = [1]
    b = [b]
  if len(alc) == 0:
    if isnotnum(a):
      return rr
    if len(blc) == 0:
      if isnotnum(b):
        return []
      return [[a*b]]
    rr = [el.copy() for el in b]
    for i in range(blc[0]):
      for j in range(blc[1]):
        if isnotnum(rr[i][j]):
          return []
        rr[i][j] = a * rr[i][j]
    return rr
  if len(blc) == 0:
    if isnotnum(b):
      return []
    rr = [el.copy() for el in a]
    for i in range(alc[0]):
      for j in range(alc[1]):
        if isnotnum(rr[i][j]):
          return []
        rr[i][j] = b * rr[i][j]
    return rr

  if alc[1] != blc[0]:  # if a columns != b lines then error
    return rr
  for i in range(alc[0]): # 0 ~ (alines - 1)
    wc = [0 for j in range(blc[1])] # b columns as ans line 
    ae = a[i]
    
    for j in range(blc[1]):
        be = [e[j] for e in b]  # b.T
        for k in range(len(be)):
            if isnotnum(a[i][k]):
              return []
            if isnotnum(be[k]):
              return []
            wc[j] += (a[i][k] * be[k])
    rr.append(wc)
  return rr

if ( __name__ == '__main__' ):
  a = [[1,2],[3,4]]
  b = [[10,20],[30,40]]
  print("a=",a)
  print("b=",b)
  print(mydot(a,b))
  
  a = [1,2,3]
  b = [[100,200,300],[400,500,600],[700,800,900]]
  print("a=",a)
  print("b=",b)
  print(mydot(a,b))
  b = 3
  a = [[100,200,300],[400,500,600],[700,800,900]]
  print("a=",a)
  print("b=",b)
  print(mydot(a,b))
  a = 0.5
  b = [[100,200,300],[400,500,600],[700,800,900]]
  print("a=",a)
  print("b=",b)
  print(mydot(a,b))
  a = 3
  b = 20
  print("a=",a)
  print("b=",b)
  print(mydot(a,b))
  a = [3]
  b = [20]
  print("a=",a)
  print("b=",b)
  print(mydot(a,b))
  a = [[3]]
  b = [[20]]
  print("a=",a)
  print("b=",b)
  print(mydot(a,b))
---
$ python mydot.py
...
a= [[1, 2], [3, 4]]
b= [[10, 20], [30, 40]]
[[70, 100], [150, 220]]
a= [1, 2, 3]
b= [[100, 200, 300], [400, 500, 600], [700, 800, 900]]
[[3000, 3600, 4200]]
a= [[100, 200, 300], [400, 500, 600], [700, 800, 900]]
b= 3
[[300, 600, 900], [1200, 1500, 1800], [2100, 2400, 2700]]
a= 0.5
b= [[100, 200, 300], [400, 500, 600], [700, 800, 900]]
[[50.0, 100.0, 150.0], [200.0, 250.0, 300.0], [350.0, 400.0, 450.0]]
a= 3
b= 20
[[60]]
a= [3]
b= [20]
[[60]]
a= [[3]]
b= [[20]]
[[60]]


2024-04-10 　「行列　四則演算」
行列の四則演算。
掛算は単純な掛算。dot(),@ とは違う。

>>> import numpy as np
>>> a = np.array([[1,2],[3,4]])
>>> b = np.array([[10,20],[30,40]])
>>> a+b
array([[11, 22],
       [33, 44]])
>>> a-b
array([[ -9, -18],
       [-27, -36]])
>>> a*b
array([[ 10,  40],
       [ 90, 160]])
>>> a/b
array([[0.1, 0.1],
       [0.1, 0.1]])
>>> np.dot(a,b)
array([[ 70, 100],
       [150, 220]])
>>> a@b
array([[ 70, 100],
       [150, 220]])

---- mycalc_matrix.py -----
def dim(a):
    if not type(a) == list:
        return []
    return [len(a)] + dim(a[0])

def isnotnum(n):
    return (not isinstance(n, int) and not isinstance(n, float) and not isinstance(n, complex))

def mycalc(func, x,y):
  if func == "+":
    return x + y
  elif func == "-":
    return x - y
  elif func == "*":
    return x * y
  elif func == "/":
    if y == 0:
      return None
    else:
      return x / y
  else:
    return None

def mycalc_matrix(func, a,b):
  '''  mycalc_matrix()
         in: a, b : matrix (list), numeric 
        out: matrix (list)

       a_col    {+}     b_col         {a_col} or {b_col}
      +------+  {-}    +-----+     {al}+-----+
   al | A    |  {*} bl |  B  |  ==> or | ans |
      +------+  {/}    +-----+     {bl}+-----+
       IF al == a_col == 1 THEN OK
       IF bl == b_col == 1 THEN OK
       IF al == 1 and a_col == b_col THEN OK
       IF bl == 1 and a_col == b_col THEN OK
       IF a_col == 1 and al == bl THEN OK
       IF b_col == 1 and al == bl THEN OK
       IF a_col == b_col and al == bl THEN OK
      
  '''
  alc = dim(a)
  blc = dim(b)
  rr = []
  if len(alc) < 0 or len(alc) > 2:
    return rr
  if len(alc) == 0:
    alc = [1,1]
    a = [[a]]
  if len(alc) == 1:
    alc[0:0] = [1]
    a = [a]
  if len(blc) < 0 or len(blc) > 2:
    return rr
  if len(blc) == 0:
    blc = [1,1]
    b = [[b]]
  if len(blc) == 1:
    blc[0:0] = [1]
    b = [b]
  if mycalc(func,1,1) == None: # chack func
    return rr
  for i in range(alc[0]):
    for j in range(alc[1]):
      if isnotnum(a[i][j]):
        return []
  for i in range(blc[0]):
    for j in range(blc[1]):
      if isnotnum(b[i][j]):
        return []

  if alc[0] == alc[1] == 1:
    rr = [el.copy() for el in b]
    for i in range(blc[0]):
      for j in range(blc[1]):
        rr[i][j] = mycalc(func,a[0][0],rr[i][j])

  elif blc[0] == blc[1] == 1:
    rr = [el.copy() for el in a]
    for i in range(alc[0]):
      for j in range(alc[1]):
        rr[i][j] = mycalc(func,rr[i][j],b[0][0])

  elif alc[0] == 1 and alc[1] == blc[1]:
    rr = [[mycalc(func,a[0][j],el[j]) for j in range(blc[1])] for el in b]

  elif blc[0] == 1 and alc[1] == blc[1]:
    rr = [[mycalc(func,el[j],b[0][j]) for j in range(alc[1])] for el in a]

  elif alc[1] == 1 and alc[0] == blc[0]:
    for i in range(alc[0]):
      rr.append([mycalc(func,a[i][0],b[i][j]) for j in range(blc[1])])

  elif blc[1] == 1 and alc[0] == blc[0]:
    for i in range(alc[0]):
      rr.append([mycalc(func,a[i][j],b[i][0]) for j in range(alc[1])])

  elif alc[1] == blc[1] and alc[0] == blc[0]:
    for i in range(alc[0]):
      rr.append([mycalc(func,a[i][j],b[i][j]) for j in range(alc[1])])
  # else Error
  return rr

if ( __name__ == '__main__' ):
 
  a = [[1,2,3],[4,5,6],[7,8,9]]
  b = [[100,200,300],[400,500,600],[700,800,900]]
  print("a=",a)
  print("b=",b)
  print("add", mycalc_matrix("+",a,b))
  print("sub", mycalc_matrix("-",a,b))
  print("mul", mycalc_matrix("*",a,b))
  print("div", mycalc_matrix("/",b,a))
  a = 1000
  print("a=",a)
  print("b=",b)
  print("add", mycalc_matrix("+",a,b))
  print("sub", mycalc_matrix("-",a,b))
  print("mul", mycalc_matrix("*",a,b))
  print("div", mycalc_matrix("/",a,b))
  b = [[1,2,3],[4,5,6],[7,8,9]]
  a = [[100,200,300]]
  print("a=",a)
  print("b=",b)
  print("add", mycalc_matrix("+",a,b))
  print("sub", mycalc_matrix("-",a,b))
  print("mul", mycalc_matrix("*",a,b))
  print("div", mycalc_matrix("/",a,b))
  b = [[1,2,3],[4,5,6],[7,8,9]]
  a = [[100],[400],[700]]
  print("a=",a)
  print("b=",b)
  print("add", mycalc_matrix("+",a,b))
  print("sub", mycalc_matrix("-",a,b))
  print("mul", mycalc_matrix("*",a,b))
  print("div", mycalc_matrix("/",a,b))
  b = 2
  a = [[100],[400],[700]]
  print("a=",a)
  print("b=",b)
  print("add", mycalc_matrix("+",a,b))
  print("sub", mycalc_matrix("-",a,b))
  print("mul", mycalc_matrix("*",a,b))
  print("div", mycalc_matrix("/",a,b))
-----
$ python mycalc_matrix.py
..
a= [[1, 2, 3], [4, 5, 6], [7, 8, 9]]
b= [[100, 200, 300], [400, 500, 600], [700, 800, 900]]
add [[101, 202, 303], [404, 505, 606], [707, 808, 909]]
sub [[-99, -198, -297], [-396, -495, -594], [-693, -792, -891]]
mul [[100, 400, 900], [1600, 2500, 3600], [4900, 6400, 8100]]
div [[100.0, 100.0, 100.0], [100.0, 100.0, 100.0], [100.0, 100.0, 100.0]]
a= 1000
b= [[100, 200, 300], [400, 500, 600], [700, 800, 900]]
add [[1100, 1200, 1300], [1400, 1500, 1600], [1700, 1800, 1900]]
sub [[900, 800, 700], [600, 500, 400], [300, 200, 100]]
mul [[100000, 200000, 300000], [400000, 500000, 600000], [700000, 800000, 900000]]
div [[10.0, 5.0, 3.3333333333333335], [2.5, 2.0, 1.6666666666666667], [1.4285714285714286, 1.25, 1.1111111111111112]]
a= [[100, 200, 300]]
b= [[1, 2, 3], [4, 5, 6], [7, 8, 9]]
add [[101, 202, 303], [104, 205, 306], [107, 208, 309]]
sub [[99, 198, 297], [96, 195, 294], [93, 192, 291]]
mul [[100, 400, 900], [400, 1000, 1800], [700, 1600, 2700]]
div [[100.0, 100.0, 100.0], [25.0, 40.0, 50.0], [14.285714285714286, 25.0, 33.333333333333336]]
a= [[100], [400], [700]]
b= [[1, 2, 3], [4, 5, 6], [7, 8, 9]]
add [[101, 102, 103], [404, 405, 406], [707, 708, 709]]
sub [[99, 98, 97], [396, 395, 394], [693, 692, 691]]
mul [[100, 200, 300], [1600, 2000, 2400], [4900, 5600, 6300]]
div [[100.0, 50.0, 33.333333333333336], [100.0, 80.0, 66.66666666666667], [100.0, 87.5, 77.77777777777777]]
a= [[100], [400], [700]]
b= 2
add [[102], [402], [702]]
sub [[98], [398], [698]]
mul [[200], [800], [1400]]
div [[50.0], [200.0], [350.0]]


2024-04-07　「非対称行列固有値計算」
計算対称行列に合わない固有値計算関数の使い方でどうなるかをやってみた。

$ python lib_jacob.py
■■■■■■■■■　入力　■■■■■■■■■
MATRIX: [[1, 7, 3], [2, 9, 12], [5, 22, 7]]
対称行列ではありません。
■■■■■■■　ヤコビ法計算　■■■■■■■
 EPS= 2.220446049250313e-16
 KOUT= 9
 AMAX=   0.000000000000000
 固有値: [[-4.784566014866619, 0.0, -1.1036075382276867e-29], [0.0, -0.41221518263870705, 1.726327615835052e-18], [-1.1036075382276867e-29, 1.726327615835052e-18, 22.196781197505327]]
 固有ベクタ: [[0.7992781967609033, 0.5119293149747735, 0.31477411051752296], [-0.5684930090684294, 0.47424576916171074, 0.6722400234087083], [0.19485908452766953, -0.7162536749655646, 0.6700825398974086]]
■■■■■■■■■　計算結果　■■■■■■■■■
 LAMDA(1)= -4.7845660148666189215305167
 LAMDA(2)= -0.4122151826387070450152805
 LAMDA(3)=  22.1967811975053272988134268
 X(0)=   0.799278196760903    0.511929314974773    0.314774110517523 
 X(1)=  -0.568493009068429    0.474245769161711    0.672240023408708 
 X(2)=   0.194859084527670   -0.716253674965565    0.670082539897409 
計算行列= [[ 1  7  3]
 [ 2  9 12]
 [ 5 22  7]]
固有値= [[-4.78456601  0.          0.        ]
 [ 0.         -0.41221518  0.        ]
 [ 0.          0.         22.1967812 ]]
固有ベクタ= [[ 0.7992782   0.51192931  0.31477411]
 [-0.56849301  0.47424577  0.67224002]
 [ 0.19485908 -0.71625367  0.67008254]]
　　■■■　検証方法１　■■■
[7.43850938 8.50221312 6.18347139]
　　■■■　検証方法２　■■■
検算 dot（計算行列 , 固有ベクトルの1列）ー（固有値1＊固有ベクトルの1列）
[ 1.22860368 -3.899564   -6.21412547]
検算 dot（計算行列 , 固有ベクトルの2列）ー（固有値2＊固有ベクトルの2列）
[ 1.89391371 -3.10748224  7.68402713]
検算 dot（計算行列 , 固有ベクトルの3列）ー（固有値3＊固有ベクトルの3列）
[ 0.04372984 -0.2008658   6.18005332]
　　■■■　検証方法３　■■■
[[ 1.22860368  1.89391371  0.04372984]
 [-3.899564   -3.10748224 -0.2008658 ]
 [-6.21412547  7.68402713  6.18005332]]
. . .
■■■■■■　numpy.linalg.eig()計算　■■■■■■
■■■■■■■■■　計算結果　■■■■■■■■■
 LAMDA(1)=  25.5548386342907107859900862
 LAMDA(2)= -0.5789337929080543565518724
 LAMDA(3)= -7.9759048413826647561108985
 X(0)=  -0.260976503318146   -0.973445274559594    0.189104107807029 
 X(1)=  -0.587027077498621    0.228061283850043   -0.581572782101413 
 X(2)=  -0.766348794609388   -0.019807782467165    0.791209665973142 
計算行列= [[ 1  7  3]
 [ 2  9 12]
 [ 5 22  7]]
固有値= [[25.55483863  0.          0.        ]
 [ 0.         -0.57893379  0.        ]
 [ 0.          0.         -7.97590484]]
固有ベクタ= [[-0.2609765  -0.97344527  0.18910411]
 [-0.58702708  0.22806128 -0.58157278]
 [-0.76634879 -0.01980778  0.79120967]]
　　■■■　検証方法１　■■■
[1.28094913e-14 2.21849431e-15 3.55964581e-15]
　　■■■　検証方法２　■■■
検算 dot（計算行列 , 固有ベクトルの1列）ー（固有値1＊固有ベクトルの1列）
[ 0.00000000e+00 -7.10542736e-15 -1.06581410e-14]
検算 dot（計算行列 , 固有ベクトルの2列）ー（固有値2＊固有ベクトルの2列）
[ 1.55431223e-15  1.58206781e-15 -5.37764278e-17]
検算 dot（計算行列 , 固有ベクトルの3列）ー（固有値3＊固有ベクトルの3列）
[-3.33066907e-15  8.88178420e-16 -8.88178420e-16]
　　■■■　検証方法３　■■■
[[ 0.00000000e+00  1.55431223e-15 -3.33066907e-15]
 [-7.10542736e-15  1.58206781e-15  8.88178420e-16]
 [-1.06581410e-14 -5.37764278e-17 -8.88178420e-16]]

---- lib_jacob.py ----
"""
 固有値　ヤコビ法計算

"""
import sys
import math
import numpy as np

def chk_symmetric(mat, n):
  for i in range(n):
    for j in range(n):
      if mat[i][j] != mat[j][i]:
        return 0
  return 1

def calc_jacob(mat,n,eps,cmax):
  '''
　　ヤコビ法で計算

　　入力引数：計算マトリクス（実対象行列）、次数、収束値、計算回数

　　戻り値：固有値・マトリクス、固有ベクトル・マトリクス、計算回数、収束値

　　参照：FORTRAN数値計算とプログラミング
       国井利泰監修　中村明子、伊藤文子著　1971 共立出版
   　  1.5　固有値　A.ヤコビ法　EX-1-5-A　p-91 ~ 100
　　　　より、Fortranの手順をPythonに修正したもの。
  '''
  u = [[ 0.0 for i in range(n)] for j in range(n)]
  for i in range(n):
    u[i][i] = 1.0
  n1 = n-1
  kout = 0
  while True:
    amax = 0.0
    for i in range(n1):
      i1 = i+1
      for j in range(i1,n):
        w = math.fabs(mat[i][j])
        if amax < w:
          amax = w
          k=i
          l=j

    if eps >= amax:
      break
    if kout >= cmax:
      break

    kout = kout + 1
    a1 = mat[k][k]
    a2 = mat[l][l]
    a3 = mat[k][l]
    w = (a1-a2) * 0.5
    if w < 0.0:
      af = a3
    else:
      af = -1.0 * a3

    if w == 0.0:
      z = math.sqrt(4.0*math.pow(a3,2))
      t = 2.0*af / z
    else:
      w = af/w
      t = w/(math.sqrt(w*w+1.0)+1.0)

    zz = t*t+1.0
    c = math.sqrt(1.0/zz)
    s = t * c
    for i in range(n):
      aw = u[i][k]
      az = u[i][l]
      u[i][k] = aw*c + az*s
      u[i][l] = -aw*s + az*c
      if i ==k:
        continue
      if i == l:
        continue
      aw = mat[i][k]
      az = mat[i][l]
      mat[i][k] = aw*c + az*s
      mat[i][l] = -aw*s + az*c
      mat[k][i] = mat[i][k]
      mat[l][i] = mat[i][l]

    asc2 = 2.0 * a3 * s * c
    mat[k][k] = a1 * math.pow(c,2) + a2 * math.pow(s,2) + asc2
    mat[l][l] = a1 * math.pow(s,2) + a2 * math.pow(c,2) - asc2
    mat[k][l] = 0.0
    mat[l][k] = 0.0
  return [mat, u, kout, amax]

def input_matrix():
  '''
　　計算終了判定値：実数　　
　　マトリックスの入力
　　　　次数ｎ：1〜１０
　　　　マトリクスデータ：N*N実数対称行列

　　戻り値：計算終了判定値・実数、次数ｎ、計算対称行列N*N
  '''
  while True:
    inn = None
    try:
      inn = input("収束判定値は")
      eps = float(inn)
      break
    except:
      if inn == None:
        return [0.0,0,None]
      continue
  while True:
    inn = None
    try:
      inn = input("行列入力：実対象行列n x n の次数：整数ｎ:")
      n = int(inn)
      if 0 < n <= 10:
        print ("n:",n," eps:",eps)
        break
    except:
      if inn == None:
        return [0.0,0,None]
      continue

  mat = [[ 0.0 for i in range(n)] for j in range(n)]

  print("行列入力：実数 x n個[ENTER]　ｎ回")
  for i in range(n):
    for j in range(n):
      while True:
        inn = None 
        try:
          print("%d x %d 番目の実数入力：" % (i+1,j+1), end='')
          inn = input("")
          mat[i][j] = float(inn)
          break
        except:
          if inn == None:
            return [0.0,0,None]
          continue
  return [eps, n, mat]

def matrix():
  eps = 2.2204460492503131E-016
  n = 3
  mat = [
[1, 7, 3],
[2, 9, 12],
[5, 22, 7]]
  return [eps,n,mat]

def matrix2():
  eps = 2.2204460492503131E-016
  n = 3
  mat = [
[1, -1, -1],
[-1, 1, -1],
[-1, -1, 1]]
  return [eps,n,mat]

def matrix3():
  eps = 2.2204460492503131E-016
  n = 4
  mat = [
[89, 75, 22, 102],
[75, 116, 27, 120],
[22,27, 33, 62],
[102,120,62,200]]
  return [eps,n,mat]

def eig_check(A, value, vector):
    r = np.zeros(value.shape[0])
    i = 0
    for l, v in zip(value, vector.T):
        r[i] = np.linalg.norm(A.dot(v) - l*v)
        i += 1
    return r

def result(A, evalue, evect):
  print("■■■■■■■■■　計算結果　■■■■■■■■■")
  n = len(A)
  for i in range(n):
    print(" LAMDA(%d)= % 20.25f" % (i+1, evalue[i][i]))
  for i in range(n):
    print(" X(%d)=" % (i), end='')
    for j in range(n):
      print("% 20.15f " % (evect[i][j]), end='')
    print("")
  print("計算行列=",A)
  print("固有値=",evalue)
  print("固有ベクタ=",evect)
  print("　　■■■　検証方法１　■■■")
  print(eig_check(A, np.array([evalue[i][i] for i in range(n)]), evect))
  print("　　■■■　検証方法２　■■■")
  for i in range(n):
    print("検算 dot（計算行列 , 固有ベクトルの%d列）ー（固有値%d＊固有ベクトルの%d列）" % (i+1,i+1,i+1) )
    print(np.dot(A,evect[:,i])-evalue[i][i]*evect[:,i])
  print("　　■■■　検証方法３　■■■")
  print(np.dot(A,evect)-np.dot(evect,evalue))

if ( __name__ == '__main__' ):
  import warnings
  warnings.filterwarnings('ignore')

  m_max = 50
  eps,n,mat = matrix()
  if n > 0:
    print("■■■■■■■■■　入力　■■■■■■■■■")
    print("MATRIX:",mat)
    if chk_symmetric(mat, n) == 0:
      print("対称行列ではありません。")
      # sys.exit()
    np_inmatrix = np.array([e.copy() for e in mat]) # copy matrix
    print("■■■■■■■　ヤコビ法計算　■■■■■■■")
    egvalue, egvect, kout, amax = calc_jacob(mat,n,eps,m_max)
    print(" EPS=",eps)
    print(" KOUT=",kout)
    print(" AMAX=% 20.15f" % (amax))
    print(" 固有値:",egvalue)
    print(" 固有ベクタ:",egvect)
    np_vector = np.array(egvect)
    for i in range(n):
      v = egvalue[i][i]
      egvalue[i] = [0.0 for j in range(n)]
      egvalue[i][i] = v
    np_evalue = np.array(egvalue)
    result(np_inmatrix, np_evalue, np_vector)
    print(". . .")
    print("■■■■■■　numpy.linalg.eig()計算　■■■■■■")
    egvalue, egvect = np.linalg.eig(np_inmatrix)
    np_value = np.array([[0.0 for j in range(n)] for j in range(n)])
    for i in range(n):
      np_value[i][i] = egvalue[i]
    result(np_inmatrix, np_value, egvect)

  print("")
---

2024-04-05　「行列　固有値計算検算」
★Mathematica

参照：https://mathematica.stackexchange.com/questions/268772/check-eigenvalues-and-eigenvectors-are-correct
　　　Check Eigenvalues and Eigenvectors are correct [closed]

    https://ss1.xrea.com/penguinitis.g1.xrea.com/computer/programming/Python/eigenvalue.html
    行列の固有値の計算                  (検証方法あり )

    https://jp.mathworks.com/help/matlab/ref/eig.html
    eig 固有値と固有ベクトル

In[42]:= 
mat={{1.0,-1.0,-1.0},{-1.0,1.0,-1.0},{-1.0,-1.0,1.0}}
Out[42]= {{1.,-1.,-1.},{-1.,1.,-1.},{-1.,-1.,1.}}
In[43]:= 
{e,v}=Eigensystem[mat]
Out[43]= {{2.,2.,-0.999999999999999},
         {{-0.408248290463863,-0.408248290463863,0.816496580927726},
          {0.707106781186548,-0.707106781186548,0.},
          {-0.577350269189626,-0.577350269189626,-0.577350269189626}}}
In[44]:= 
mat.v[[1]]==e[[1]] v[[1]]
Out[44]= True
In[45]:= 
mat.v[[2]]==e[[2]] v[[2]]
Out[45]= False
In[46]:= 
mat.v[[3]]==e[[3]] v[[3]]
Out[46]= True
In[47]:= 
mat.v[[1]]-(e[[1]] v[[1]])
Out[47]= {-3.33066907387547*10^-16,-3.33066907387547*10^-16,-4.44089209850063*10^-16}
In[49]:= 
mat.v[[2]]-(e[[2]] v[[2]])
Out[49]= {0.,-2.22044604925031*10^-16,-1.11022302462516*10^-16}
In[50]:= 
mat.v[[3]]-(e[[3]] v[[3]])
Out[50]= {6.66133814775094*10^-16,1.33226762955019*10^-15,3.33066907387547*10^-16}

★OCTAVE
>> a = [1 -1 -1; -1 1 -1; -1 -1 1];
>> [v,e] = eig(a)
v =

   0.577350  -0.396780  -0.713605
   0.577350   0.816390   0.013181
   0.577350  -0.419610   0.700424

e =

Diagonal Matrix

  -1   0   0
   0   2   0
   0   0   2

>> a*v(:,1)　<<== 計算行列値　＊　固有値ベクトルの１列目
ans =
  -0.5774
  -0.5774
  -0.5774

>> e(1,1)*v(:,1)  <<== 固有値１番目　＊　固有値ベクトルの１列目
ans =
  -0.5774
  -0.5774
  -0.5774

>> a*v(:,1) - e(1,1)*v(:,1)　
ans =　＜＜＝＝　検算（計算行列値　＊　固有ベクトルの１列目）ー（固有値１番目　＊　固有ベクトルの１列目）
  -1.1102e-16
  -1.1102e-16
   5.5511e-16

>> a*v(:,2) - e(2,2)*v(:,2)
ans =　＜＜＝＝　検算（計算行列値　＊　固有ベクトルの２列目）ー（固有値２番目　＊　固有ベクトルの２列目）
   1.1102e-16
   1.1102e-15
   1.1102e-16

>> a*v(:,3) - e(3,3)*v(:,3)
ans =　＜＜＝＝　検算（計算行列値　＊　固有ベクトルの３列目）ー（固有値３番目　＊　固有ベクトルの３列目）
            0
   9.7145e-17
            0

★PYTHON

---- mydot.py --------
import numpy as np

def mydot(A,val):
  vd = np.array([0.0 for i in range(len(val))])
  for i in range(len(A)):
    for x,y in zip(A[i],val):
      vd[i] += x*y
  return vd

mat=np.array([[1,-1,-1],[-1,1,-1],[-1,-1,1]])
print("計算行列\n",mat)
e,v=np.linalg.eig(mat)
print("e=",e)
print("v=",v)
print("検算 dot(計算行列,固有ベクトルの１列）ー（固有値１＊固有ベクトルの１列）")
print(mydot(mat,v[:,0])-e[0]*v[:,0])
print("検算 dot(計算行列,固有ベクトルの２列）ー（固有値２＊固有ベクトルの２列）")
print(mydot(mat,v[:,1])-e[1]*v[:,1])
print("検算 dot(計算行列,固有ベクトルの３列）ー（固有値３＊固有ベクトルの３列）")
print(mydot(mat,v[:,2])-e[2]*v[:,2])
print("")
print((mat.dot(v[:,0]))-e[0]*v[:,0])
print((mat.dot(v[:,1]))-e[1]*v[:,1])
print((mat.dot(v[:,2]))-e[2]*v[:,2])
---

$ python mydot.py
...
計算行列
 [[ 1 -1 -1]
 [-1  1 -1]
 [-1 -1  1]]
e= [-1.  2.  2.]
v= [[-0.57735027 -0.57842803  0.57891179]
 [-0.57735027 -0.20985087 -0.78809991]
 [-0.57735027  0.7882789   0.20918812]]
検算 dot(計算行列,固有ベクトルの１列）ー（固有値１＊固有ベクトルの１列）
[ 5.55111512e-16 -1.11022302e-16 -1.11022302e-16]
検算 dot(計算行列,固有ベクトルの２列）ー（固有値２＊固有ベクトルの２列）
[ 0.00000000e+00 -5.55111512e-17  0.00000000e+00]
検算 dot(計算行列,固有ベクトルの３列）ー（固有値３＊固有ベクトルの３列）
[ 2.22044605e-16 -4.44089210e-16  5.55111512e-17]

[ 5.55111512e-16 -1.11022302e-16 -1.11022302e-16]
[ 0.00000000e+00 -5.55111512e-17  0.00000000e+00]
[ 2.22044605e-16 -4.44089210e-16  5.55111512e-17]
...
>>> import numpy as np
>>> a = np.array([[1,-1,-1],[-1,1,-1],[-1,-1,1]])
>>> d,v = np.linalg.eig(a)
>>> d
array([-1.,  2.,  2.])
>>> v
array([[-0.57735027, -0.57842803,  0.57891179],
       [-0.57735027, -0.20985087, -0.78809991],
       [-0.57735027,  0.7882789 ,  0.20918812]])
>>> dd = np.array([[d[0],0,0],[0,d[1],0],[0,0,d[2]]])
>>> dd
array([[-1.,  0.,  0.],
       [ 0.,  2.,  0.],
       [ 0.,  0.,  2.]])
>>> np.dot(a,v)
array([[ 0.57735027, -1.15685606,  1.15782358],
       [ 0.57735027, -0.41970174, -1.57619982],
       [ 0.57735027,  1.5765578 ,  0.41837624]])
>>> np.dot(v,dd)
array([[ 0.57735027, -1.15685606,  1.15782358],
       [ 0.57735027, -0.41970174, -1.57619982],
       [ 0.57735027,  1.5765578 ,  0.41837624]])
>>> np.dot(a,v)-np.dot(v,dd)
array([[ 5.55111512e-16,  0.00000000e+00,  2.22044605e-16],
       [-1.11022302e-16, -5.55111512e-17, -4.44089210e-16],
       [-1.11022302e-16,  0.00000000e+00,  5.55111512e-17]])


2024-03-31　「行列　固有値計算」
参照：東京大学のデータサイエンティスト育成講座
　　　Pythonで手を動かして学ぶデータ分析　塚本邦尊、山田典一、大澤文孝　著　マイナビ出版2022
      Chapter 2-3 Scipyの基礎　p-45,46

固有値　-1, 2, 2  固有ベクトル　0.577, -0.816, 0.428
                            0.577,  0.408, -0.816
                            0.577,  0.408, 0.389
SCIPYの固有値、固有ベクトル　計算をしたとき違う値が表示されたのが気になり調べてみた。
とりあえずは他のプログラム

---python-----
>>> import numpy as np
>>> mat = np.array([[1,-1,-1],[-1,1,-1],[-1,-1,1]])
>>> mat
array([[ 1, -1, -1],
       [-1,  1, -1],
       [-1, -1,  1]])
>>> evalue,evector = np.linalg.eig(mat)
>>> evalue
array([-1.,  2.,  2.])
>>> evector
array([[-0.57735027, -0.57842803,  0.57891179],
       [-0.57735027, -0.20985087, -0.78809991],
       [-0.57735027,  0.7882789 ,  0.20918812]])
>>> import scipy
>>> evalue,evector = scipy.linalg.eig(mat)
>>> evalue
array([-1.+0.j,  2.+0.j,  2.+0.j])
>>> evector
array([[-0.57735027, -0.57842803,  0.57891179],
       [-0.57735027, -0.20985087, -0.78809991],
       [-0.57735027,  0.7882789 ,  0.20918812]])

lapackのdgeevの結果と同様になる。
LAPACK/BLAS入門より
https://github.com/tkouya/lapack_blas_tutorial

dpkg -l liblapack-dev
dpkg -l libblas-dev
  arm64  version 3.11.0-2

$ ./lapack_dgeev
A = 
  0:          1         -1         -1 
  1:         -1          1         -1 
  2:         -1         -1          1 
A(org) = 
  0:          1         -1         -1 
  1:         -1          1         -1 
  2:         -1         -1          1 
実数 実数 実数 
Eigenvalues = 
  0: (        -1,          0)
  1: (         2,          0)
  2: (         2,          0)

(-0.57735,     0) (-0.578428,     0) (0.578912,     0) 
(-0.57735,     0) (-0.209851,     0) (-0.7881,     0) 
(-0.57735,     0) (0.788279,     0) (0.209188,     0) 
||A * right_ev - lambda * right_ev||_F / ||A||_F =   2.55056138285437054e-16
||A^T * left_ev - lambda * left_ev||_F / ||A||_F =   4.84641987789776181e-16
.......
lapack_dgeev.cは修正して使わしてもらいました。
... lapack_dgeev.c ....
;;
	//printf("Dim = "); scanf("%d", &dim);
        dim = 3;
;;
　　↓	/*
	for(i = 0; i < dim; i++)
	{
		for(j = 0; j < dim; j++)
		{
			// A = Lotkin matrix
			//if(i == 0) ma[j] = 1.0;
			//else ma[i * dim + j] = 1.0 / (double)(i + j + 1);
コメント			// A = Random matrix
			ma[i * dim + j] = (double)rand() / (double)RAND_MAX;
		
			// ma_org = ma
			ma_org[i * dim + j] = ma[i * dim + j] + 0.0 * I;
		}
	}
　　↑	*/
	
	ma_org[0 * dim + 0] = (ma[0 * dim + 0] = 1.0) + 0.0 * I;
	ma_org[0 * dim + 1] = (ma[0 * dim + 1] = -1.0) + 0.0 * I;
	ma_org[0 * dim + 2] = (ma[0 * dim + 2] = -1.0) + 0.0 * I;
	ma_org[1 * dim + 0] = (ma[1 * dim + 0] = -1.0) + 0.0 * I;
	ma_org[1 * dim + 1] = (ma[1 * dim + 1] = 1.0) + 0.0 * I;
	ma_org[1 * dim + 2] = (ma[1 * dim + 2] = -1.0) + 0.0 * I;
	ma_org[2 * dim + 0] = (ma[2 * dim + 0] = -1.0) + 0.0 * I;
	ma_org[2 * dim + 1] = (ma[2 * dim + 1] = -1.0) + 0.0 * I;
	ma_org[2 * dim + 2] = (ma[2 * dim + 2] = 1.0) + 0.0 * I;
;;
　maの表示。	
;;
		// 固有値が実数の時
		if(im_eig[i] == 0.0)
		{
			printf("実数 ");
			for(j = 0; j < dim; j++)
;;
		// 固有値が複素数になる場合
		else if(im_eig[i] > 0.0)
		{
			printf("複素数 ");
			for(j = 0; j < dim; j++)
;;
		else
		{
			printf("その他 ");
			for(j = 0; j < dim; j++)
;;
....
他のプログラムも同様。


$ ./lapack_ssyev
INPUT: A = 
  0:          1         -1         -1 
  1:         -1          1         -1 
  2:         -1         -1          1 
OUTPUT: A = 
  0: -0.57735 -0.750394 -0.321832 
  1: -0.57735 0.0964827 0.810776 
  2: -0.57735 0.653911 -0.488944 
Eigenvalues = 
  0:         -1
  1:          2
  2:          2

absmax_eig =   2.0000000e+00
absmin_eig =  -1.0000000e+00
cond2      =   2.0000000e+00
||ev^T * A * ev - lambda * I||_2 =   1.5325554e-07


$ ./lapack_dsyev
A = 
  0:          1         -1         -1 
  1:         -1          1         -1 
  2:         -1         -1          1 
Envenvectors: 
  0: 0.57735 -0.39678 -0.713605 
  1: 0.57735 0.81639 0.0131811 
  2: 0.57735 -0.41961 0.700424 
Eigenvalues = 
  0:         -1
  1:          2
  2:          2

absmax_eig =   2.00000000000000000e+00
absmin_eig =  -1.00000000000000022e+00
cond2      =   1.99999999999999956e+00
||ev^T * A * ev - lambda||_F / ||A||_F  =   3.5090480e-16

・・・・・・
---- mathematica -----------------------
In[1]:= mat={{1.0,-1.0,-1.0},{-1.0,1.0,-1.0},{-1.0,-1.0,1.0}}
Out[1]= {{1.,-1.,-1.},{-1.,1.,-1.},{-1.,-1.,1.}}
In[2]:= MatrixForm[%]
Out[2]//MatrixForm= (1.	-1.	-1.
-1.	1.	-1.
-1.	-1.	1.
)
In[3]:= Eigenvalues[mat]
Out[3]= {2.,2.,-1.}
In[4]:= Eigenvectors[mat]
Out[4]= {{-0.408248290463863,-0.408248290463863,0.816496580927726},
{0.707106781186548,-0.707106781186548,0.},
{-0.577350269189626,-0.577350269189626,-0.577350269189626}}
In[5]:= Eigensystem[mat]
Out[5]= {{2.,2.,-0.999999999999999},
{{-0.408248290463863,-0.408248290463863,0.816496580927726},
{0.707106781186548,-0.707106781186548,0.},
{-0.577350269189626,-0.577350269189626,-0.577350269189626}}}

---SCILAB-------------
--> a = [ 1 -1 -1; -1 1 -1; -1 -1 1]
 a  = 

   1.  -1.  -1.
  -1.   1.  -1.
  -1.  -1.   1.

--> [t2, aa2] = spec(a)
 t2  = 

   0.5773503  -0.3967799  -0.7136052
   0.5773503   0.8163902   0.0131811
   0.5773503  -0.4196102   0.7004241
 aa2  = 

  -1.   0.   0.
   0.   2.   0.
   0.   0.   2.

--> A=[1,-1,-1;-1,1,-1;-1,-1,1]
 A  = 

   1.  -1.  -1.
  -1.   1.  -1.
  -1.  -1.   1.

--> [V,E]=bdiag(A)
 V  = 

  -1.   0.   0.
   0.   2.   0.
   0.   0.   2.
 E  = 

   0.5773503   0.4896217   0.6010959
   0.5773503   0.3210539  -0.7850266
   0.5773503  -0.8106756   0.1839307

----OCTAVE--------------------------
>> a = [1 -1 -1; -1 1 -1; -1 -1 1];
>> [v,d] = eig(a)
v =

   0.577350  -0.396780  -0.713605
   0.577350   0.816390   0.013181
   0.577350  -0.419610   0.700424

d =

Diagonal Matrix

  -1   0   0
   0   2   0
   0   0   2

-----JULIA-----------
julia> using LinearAlgebra

julia> A = [1 -1 -1;-1 1 -1; -1 -1 1]
3×3 Matrix{Int64}:
  1  -1  -1
 -1   1  -1
 -1  -1   1

julia> eigvecs(A)
3×3 Matrix{Float64}:
 -0.57735   0.707107  -0.408248
 -0.57735  -0.707107  -0.408248
 -0.57735   0.0        0.816497

julia> eigvals(A)
3-element Vector{Float64}:
 -1.0000000000000002
  2.0
  2.0

他にも、手元にあったプログラムの手順でやってみた。

! 参照：FORTRAN数値計算とプログラミング
!       国井利泰監修　中村明子、伊藤文子著　1971 共立出版
!     1.5　固有値　A.ヤコビ法　EX-1-5-A　p-91 ~ 100
FORTRANのプログラムでそれをfortran90に修正している。
gfortran でコンパイルした。
...
 行列入力：実対象行列n x n の次数：整数ｎ
3
 実対象行列 N x N、 収束判定値EPS, 計算繰り返し回数Max Loop
 N= 3, EPS:0.22204460492503E-15 ,Max Loop= 50
 行列入力：実数 x n個[ENTER]　ｎ回
1 -1 -1
-1 1 -1           
-1 -1 1
 ◇◇◇◇◇　入力結果　◇◇◇◇◇
 A( 1)=      1.0000     -1.0000     -1.0000 
 A( 2)=     -1.0000      1.0000     -1.0000 
 A( 3)=     -1.0000     -1.0000      1.0000 
 ・・・・・
 U( 1)=      1.0000      0.0000      0.0000 
 U( 2)=      0.0000      1.0000      0.0000 
 U( 3)=      0.0000      0.0000      1.0000 
 ◆◆◆◆◆　計算結果　◆◆◆◆◆◆
 LAMDA( 1)= -0.9999999961338617
 LAMDA( 2)=  1.9999999754758784
 LAMDA( 3)=  1.9999999994888948
 X( 1)=    0.5773502689056838   -0.8158338288228492   -0.0328909540699514 
 X( 2)=    0.5773502623183976    0.4364013294067319   -0.6900873411458593 
 X( 3)=    0.5773502588272095    0.3794325175124923    0.7229783123361159 
 KOUT=   5
 AMAX=   0.000000000000000
...
となった。
結果を計算しないと正しいかどうかわからないというのが最近わかった。

2024-03-23　「RaspiでVisual Studio Codeデバッグ」
Visual Studio Code でデバッグ。

参照：https://code.visualstudio.com/docs/cpp/config-linux
     Using C++ on Linux in VS Code

(1) mkdir ソースプログラムディレクトリ

(2) プログラム作成
   $ cd ソースプログラムディレクトリ
   $ nano sin.c
   ---
   #include <stdio.h>
   #include <math.h>

   int main(int argc, char *argv[])
   {
    double n = 999.0;
    if ( argc <= 1 ) {
        printf("ラジアンを指定して？\n");
        return 1;
    }
    sscanf(argv[1],"%lf",&n);
    if ( fabs(n) > 2.0 ) {
        printf("2ラジアンまで？\n");
        return 1;
    }
    printf("結果: sin(%lf) = %lf\n",n, sin(n));
    return 0;
   }
   ---

(3) Visual Studio Codeインストール
　　$ sudo apt install code

(4) Visual Studio Code 起動
   メニュー・ファイル・フォルダを開く　選択
　　"ソースプログラムディレクトリ"を開く
　　　プログラム sin.c を開く。

(5) task.json自動作成
　　メニュー・ターミナル・規定のビルドタスクの構成　選択
　　選択リストのなかの"GCCアクティブなファイルのビルド"を選択する。
　　task.jsonが自動生成されて表示される。
　　ｃソースを選択して、
　　メニュー・実行・デバッグの実行　を選んで実行する。
　　エラーが出て終わる。
　　ディレクトリ ".vscode" 作成され、tasks.jsonができる。

(6) tasks.json修正
   ---
　　{
	"version": "2.0.0",
	"tasks": [
	  {
	    "type": "cppbuild",
	    "label": "C/C++: gcc アクティブなファイルのビルド",
	    "command": "/usr/bin/gcc",
	    "args": [
		"-fdiagnostics-color=always",
		"-g",
		"${file}",
		"-o",
	        "${fileDirname}/${fileBasenameNoExtension}", # ＜＜＝＝　”,”追加
		"-lm"        # ＜＜＝＝　リンクオブジェクト指定
	    ],
	    "options": {
		"cwd": "${fileDirname}"
	    },
	    "problemMatcher": [
		"$gcc"
	    ],
	    "group": {
		"kind": "build",
		"isDefault": true
	    },
	    "detail": "コンパイラ: /usr/bin/gcc"
	  }
	]
　　}
   ---
   修正したら、保存する。

(7) プログラムのデバッグ
　　codeのメニュー・実行・デバッグの実行　=> 最初のメニューを選んで実行する。
　　デバッグができるようになる。
　　このままでは、codeのメニュー・実行・デバッグなしの実行　でもデバッグとなってしまう。

(8) launch.json作成
　　codeのメニュー・実行・構成の追加　選択。
　　launch.jsonの編集ウィンドウになる。
　　「構成の追加」（青色ボタン）でGDB起動を選ぶ。
　　---
   {
    // IntelliSense を使用して利用可能な属性を学べます。
    // 既存の属性の説明をホバーして表示します。
    // 詳細情報は次を確認してください: https://go.microsoft.com/fwlink/?linkid=830387
    "version": "0.2.0",
    "configurations": [
        {
            "name": "(gdb) 起動",
            "type": "cppdbg",
            "request": "launch",

            //"program": "プログラム名を入力してください (例: ${workspaceFolder}/a.out)",

            "program": "${fileDirname}/${fileBasenameNoExtension}",
            // プログラム名を入力してくださいを↑のように修正する。
            "args": [],
            "stopAtEntry": false,
            "cwd": "${fileDirname}",
            "environment": [],
            "externalConsole": false,
            "MIMode": "gdb",
            "setupCommands": [
                {
                    "description": "gdb の再フォーマットを有効にする",
                    "text": "-enable-pretty-printing",
                    "ignoreFailures": true
                },
                {
                    "description": "逆アセンブリ フレーバーを Intel に設定",
                    "text": "-gdb-set disassembly-flavor intel",
                    "ignoreFailures": true
                }
            ]
        }

    ]
   }
   ---
   修正したら、保存。
　　保存しなくてプログラムデバッグ・実行しても以前の状態で実行される。ここで保存される。
　　もう一度デバッグ・実行すると反映されている結果となる。
　　jsonファイルの修正はどちらも同じなので修正したら保存する。

(9) プログラムのデバッグなしで実行
　　codeのメニュー・実行・デバッグなしで実行、選択。
　　デバッグなしで実行される。

(10) プログラムに引数がある場合は、launch.jsonを修正する。
　　---
    ；；　途中の
            "name": "(gdb) 起動",
            "type": "cppdbg",
            "request": "launch",
            "program": "${fileDirname}/${fileBasenameNoExtension}",
            "args": ["0.5"],     ＜＜＝＝　コマンド　＞　プログラム名　引数（これを指定）
            "stopAtEntry": false,
            "cwd": "${fileDirname}",
            "environment": [],
　　　；；
 　　---
　　修正したら、保存。

(11) ソースプログラムの修正
　　ソースプログラムを修正する。

(12) コンパイル
　　codeのメニュー・ターミナル・ビルドタスクの実行　選択
　　エラーの確認。修正。

2024-03-21　「juliaインストール、実行」
参照：https://www.jstage.jst.go.jp/article/itej/71/1/71_74/_pdf
　　　動的プログラミング言語Juliaの紹介

(1)ダウンロード
https://julialang.org/downloads/

Current stable release: v1.10.2 (March 1, 2024)
Generic Linux on ARM [help]	AArch64 (GPG)

julia-1.10.2-linux-aarch64.tar.gz

(2)インストール
ダウンロードし、解凍。

(3)実行

$ cd julia-1.10.2/bin
$ ./julia

☆JULIAからPython呼び出し。
・・・
julia> using Pkg

julia> Pkg.add("PyCall")
      メッセージがでる。１回設定せればよい。

julia> using PyCall

julia> @pyimport numpy as np

julia> @pyimport scipy.linalg as linalg

julia> mat = np.array([[1,-1,-1],[-1,1,-1],[-1,-1,1]])
3×3 Matrix{Int64}:
  1  -1  -1
 -1   1  -1
 -1  -1   1

julia> evalue,evector = linalg.eig(mat)
(ComplexF64[-0.9999999999999999 + 0.0im, 2.0 + 0.0im, 1.9999999999999996 + 0.0im],
 [-0.5773502691896256 -0.5784280301128795 0.5789117904251897;
  -0.5773502691896258 -0.20985087099025507 -0.7880999106986186;
  -0.5773502691896258 0.7882789011031346 0.209188120273429])

  ここまでPYTHONパッケージ。
　以下、JULIAパッケージ。

julia> using LinearAlgebra

julia> A = [1 -1 -1;-1 1 -1; -1 -1 1]
3×3 Matrix{Int64}:
  1  -1  -1
 -1   1  -1
 -1  -1   1

julia> eigvecs(A)
3×3 Matrix{Float64}:
 -0.57735   0.707107  -0.408248
 -0.57735  -0.707107  -0.408248
 -0.57735   0.0        0.816497

julia> eigvals(A)
3-element Vector{Float64}:
 -1.0000000000000002
  2.0
  2.0

----
☆ユーザ作成PYTHONプログラム呼び出し
・・・
julia> using PyCall
julia> scriptdir = @__DIR__
  カレントディレクトリ、または、
julia> scriptdir = "/home/xxxxxx/xxx/sample"

julia> pushfirst!(PyVector(pyimport("sys")."path"), scriptdir)

julia> mytest = pyimport("sample")

julia> led24 = mytest.init_led(4)

julia> mytest.buzz(led24,600,2)

julia> mytest.led_close(led24)

-----sample.py-----------------
from gpiozero import LED
import time

def init_led(p):
    ''' p : pi number '''
    return LED(p)

def led(led,s):
    ''' LED ON/OFF
        led : pyobject led, s : 0 - off / 1 - ON '''
    if s == 0:
       led.off()
    else:
       led.on()

def led_close(led):
    ''' led object close 
          led " pyobject led '''
    led.close()

def buzz(led,hz,t):
    ''' LED PWM 50% Output
         led : pyobject led, hz : frequency 0-1200 , t : time (sec [float]) '''
    if hz <= 0:
        led.on()
    else:
        if hz > 1200:
            hz = 1200;
        onoff = 0.5 / hz
        led.blink(onoff, onoff)　# バックグラウンドでblinkは継続しない
    time.sleep(t)
    led.off()

if __name__ == '__main__':
   ld4 = init_led(4)
   buzz(ld4,400,1)
   led_close(ld4)
...

☆bash 呼び出し。
・・・
julia> ”；”文字入力で。
shell>     に変わる。bashコマンド実行できる。
　　　　　　戻るには、CTRL+C。
julia>　　　になる。


2024-03-20　「マシンイプシロン」
$ cc epsilon.c -o eps-c
$ ./eps-c
LONG epsilon: 1.92592994438723585305597794258e-34 
  1.0  epsilon: 2.22044604925031e-16 
  0.0  epsilon: 4.94065645841247e-324 
  0.005  epsilon: 4.33680868994202e-19 
  1000.0  epsilon: 1.13686837721616e-13 

$ cat epsilon.c
#include <stdio.h>

int main()
{
    long double  e,  se;
    double       le, sle;

    e = 1.0;
    le = 1.0;
    for (; 1.0 + (e /= 2.0L) != 1.0;) {
        se = e;
    }
    printf("LONG epsilon: %.30Lg \n",se);

    for (; 1.0 + (le /= 2.0) != 1.0; ) {
        sle = le;
    }
    printf("  1.0  epsilon: %.15g \n",sle);

    le = 1.0;
    for (; 0.0 + (le /= 2.0) != 0.0; ) {
        sle = le;
    }
    printf("  0.0  epsilon: %.15g \n",sle);
    le = 1.0;
    for (; 0.005 + (le /= 2.0) != 0.005; ) {
        sle = le;
    }
    printf("  0.005  epsilon: %.15g \n",sle);
    le = 1.0;
    for (; 1000.0 + (le /= 2.0) != 1000.0; ) {
        sle = le;
    }
    le = 1.0;
    printf("  1000.0  epsilon: %.15g \n",sle);

    return 0;
}
...

-----PYTHON---------------
>>> import numpy as np
>>> print(np.finfo(float).eps)
2.220446049250313e-16
>>> print(np.finfo(np.float32).eps)
1.1920929e-07
...

-------
参照：http://ri2t.kyushu-u.ac.jp/~watanabe/RESERCH/MANUSCRIPT/KOHO/CONVERGE/converge.pdf
　　　いつ反復計算をやめるべきか？ - ∼収束判定基準の設定方法

$ gfortran epsilon.f90 -o epsilon
$ ./epsilon
     real(kind=4):   1.19209290E-07
     real(kind=8):   2.2204460492503131E-016
    real(kind=16):   1.92592994438723585305597794258492732E-0034
             real:   1.19209290E-07
 double precision:   2.2204460492503131E-016
----epsilon.f90-----------
program machine_epsilon
  implicit none
  real(kind=4)    :: x
  real(kind=8)    :: y
  real(kind=16)   :: z
  real    :: x1
  double precision :: y1
  
  print *,"    real(kind=4):", epsilon(x)
  print *,"    real(kind=8):", epsilon(y)
  print *,"   real(kind=16):", epsilon(z)
  print *,"            real:", epsilon(x1)
  print *,"double precision:", epsilon(y1)
end program machine_epsilon

◆◆◆julia◆◆◆
参照：https://julialang.org/downloads/
　　　Current stable release: v1.10.2 (March 1, 2024)
　　　Generic Linux on ARM [help]	AArch64 (GPG)
　　　julia-1.10.2-linux-aarch64.tar.gz

Linux 6.6.20+rpt-rpi-2712 #1 SMP PREEMPT Debian 1:6.6.20-1+rpt1 (2024-03-07) aarch64 GNU/Linux
...
ダウンロードし、解凍。
$ cd julia-1.10.2/bin
$ ./julia
....
julia> Sys.WORD_SIZE
64

julia> eps()
2.220446049250313e-16

julia> eps(Float32)
1.1920929f-7

julia> eps(Float64)
2.220446049250313e-16

julia> eps(0.0)
5.0e-324

julia> eps(1.0)
2.220446049250313e-16

julia> eps(1000.)
1.1368683772161603e-13

julia> eps(0.005)
8.673617379884035e-19

julia> eps(0.1)
1.3877787807814457e-17


2024-03-10　「IEEE754 丸め」
参考：
http://verifiedby.me/kv/kv-intro.pdf
精度保証付き数値計算と kv ライブラリ
柏木 雅英 著

https://catalog.lib.kyushu-u.ac.jp/opac_download_md/1470409/p063.pdf
IEEE754と数値計算 : 浮動小数点演算の特徴とは?
皆本晃弥　著

https://www.am.ics.keio.ac.jp/proj/asap/wiki/?plugin=attach&refer=Numerical%20Recipe%20in%20C&openfile=ukiwa08.pdf
浮動小数点輪講
よしみ まさと 著

インターフェース2024/4月号　数学１００の0.1を１００回足す結果をみてEXCELとLibreOffice Calcを比べて
結果が微妙に違っている。丸め方がちょっと違うかもしれない？
そんなのもあって、以前も丸めをやってはいたが、ちょっと考えが甘かったのでもう一度。
近接偶数丸めのテストはどうするんだろうかと考えてみた。
もう少しわかりやすく改修しました。

......仮数部 LSB 1、小数点以下なし...(+n) + (+x)...............
...............................................
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                   1 0000 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0010 0000 0000 .0
.
     2305843009213690112
 +)                  256
 ------------------------------- この計算値は値の大小を確認するため。
     2305843009213690368
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                     1111 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 1111 0000 .0
.
     2305843009213690112
 +)                  240
 -------------------------------------------------
     2305843009213690368
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                     1110 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 1110 0000 .0
.
     2305843009213690112
 +)                  224
 -------------------------------------------------
     2305843009213690368
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                     1101 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 1101 0000 .0
.
     2305843009213690112
 +)                  208
 -------------------------------------------------
     2305843009213690368
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                     1100 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 1100 0000 .0
.
     2305843009213690112
 +)                  192
 -------------------------------------------------
     2305843009213690368
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                     1011 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 1011 0000 .0
.
     2305843009213690112
 +)                  176
 -------------------------------------------------
     2305843009213690368
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                     1010 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 1010 0000 .0
.
     2305843009213690112
 +)                  160
 -------------------------------------------------
     2305843009213690368
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                     1001 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 1001 0000 .0
.
     2305843009213690112
 +)                  144
 -------------------------------------------------
     2305843009213690368
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                     1000 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 1000 0000 .0
.
     2305843009213690112
 +)                  128
 -------------------------------------------------
     2305843009213690368
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                      111 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0111 0000 .0
.
     2305843009213690112
 +)                  112
 -------------------------------------------------
     2305843009213690112
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                      110 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0110 0000 .0
.
     2305843009213690112
 +)                   96
 -------------------------------------------------
     2305843009213690112
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                      101 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0101 0000 .0
.
     2305843009213690112
 +)                   80
 -------------------------------------------------
     2305843009213690112
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                      100 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0100 0000 .0
.
     2305843009213690112
 +)                   64
 -------------------------------------------------
     2305843009213690112
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                       11 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0011 0000 .0
.
     2305843009213690112
 +)                   48
 -------------------------------------------------
     2305843009213690112
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                       10 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0010 0000 .0
.
     2305843009213690112
 +)                   32
 -------------------------------------------------
     2305843009213690112
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                        1 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0001 0000 .0
.
     2305843009213690112
 +)                   16
 -------------------------------------------------
     2305843009213690112
====================================================================================
......仮数部 LSB 0、小数点以下なし...(+n) + (+x)...............
...............................................
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                   1 0000 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 1111 0000 0000 .0
.
     2305843009213693440
 +)                  256
 -------------------------------------------------
     2305843009213693696
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                     1111 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 1110 1111 0000 .0
.
     2305843009213693440
 +)                  240
 -------------------------------------------------
     2305843009213693696
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                     1110 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 1110 1110 0000 .0
.
     2305843009213693440
 +)                  224
 -------------------------------------------------
     2305843009213693696
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                     1101 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 1110 1101 0000 .0
.
     2305843009213693440
 +)                  208
 -------------------------------------------------
     2305843009213693696
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                     1100 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 1110 1100 0000 .0
.
     2305843009213693440
 +)                  192
 -------------------------------------------------
     2305843009213693696
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                     1011 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 1110 1011 0000 .0
.
     2305843009213693440
 +)                  176
 -------------------------------------------------
     2305843009213693696
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                     1010 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 1110 1010 0000 .0
.
     2305843009213693440
 +)                  160
 -------------------------------------------------
     2305843009213693696
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                     1001 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 1110 1001 0000 .0
.
     2305843009213693440
 +)                  144
 -------------------------------------------------
     2305843009213693696
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                     1000 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 1110 1000 0000 .0
.
     2305843009213693440
 +)                  128
 -------------------------------------------------
     2305843009213693440
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                      111 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 1110 0111 0000 .0
.
     2305843009213693440
 +)                  112
 -------------------------------------------------
     2305843009213693440
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                      110 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 1110 0110 0000 .0
.
     2305843009213693440
 +)                   96
 -------------------------------------------------
     2305843009213693440
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                      101 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 1110 0101 0000 .0
.
     2305843009213693440
 +)                   80
 -------------------------------------------------
     2305843009213693440
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                      100 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 1110 0100 0000 .0
.
     2305843009213693440
 +)                   64
 -------------------------------------------------
     2305843009213693440
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                       11 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 1110 0011 0000 .0
.
     2305843009213693440
 +)                   48
 -------------------------------------------------
     2305843009213693440
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                       10 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 1110 0010 0000 .0
.
     2305843009213693440
 +)                   32
 -------------------------------------------------
     2305843009213693440
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                        1 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 1110 0001 0000 .0
.
     2305843009213693440
 +)                   16
 -------------------------------------------------
     2305843009213693440
====================================================================================
......仮数部 LSB 0、小数点以下なし...(-n) + (+x)...............
...............................................
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                   1 0000 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 0000 0000 0000 .0
.
    -2305843009213690112
 +)                  256
 -------------------------------------------------
    -2305843009213689856
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                     1111 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 0000 0001 0000 .0
.
    -2305843009213690112
 +)                  240
 -------------------------------------------------
    -2305843009213689856
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                     1110 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 0000 0010 0000 .0
.
    -2305843009213690112
 +)                  224
 -------------------------------------------------
    -2305843009213689856
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                     1101 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 0000 0011 0000 .0
.
    -2305843009213690112
 +)                  208
 -------------------------------------------------
    -2305843009213689856
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                     1100 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 0000 0100 0000 .0
.
    -2305843009213690112
 +)                  192
 -------------------------------------------------
    -2305843009213689856
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                     1011 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 0000 0101 0000 .0
.
    -2305843009213690112
 +)                  176
 -------------------------------------------------
    -2305843009213689856
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                     1010 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 0000 0110 0000 .0
.
    -2305843009213690112
 +)                  160
 -------------------------------------------------
    -2305843009213689856
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                     1001 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 0000 0111 0000 .0
.
    -2305843009213690112
 +)                  144
 -------------------------------------------------
    -2305843009213689856
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                     1000 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 0000 1000 0000 .0
.
    -2305843009213690112
 +)                  128
 -------------------------------------------------
    -2305843009213689856
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                      111 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 0000 1001 0000 .0
.
    -2305843009213690112
 +)                  112
 -------------------------------------------------
    -2305843009213690112
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                      110 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 0000 1010 0000 .0
.
    -2305843009213690112
 +)                   96
 -------------------------------------------------
    -2305843009213690112
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                      101 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 0000 1011 0000 .0
.
    -2305843009213690112
 +)                   80
 -------------------------------------------------
    -2305843009213690112
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                      100 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 0000 1100 0000 .0
.
    -2305843009213690112
 +)                   64
 -------------------------------------------------
    -2305843009213690112
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                       11 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 0000 1101 0000 .0
.
    -2305843009213690112
 +)                   48
 -------------------------------------------------
    -2305843009213690112
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                       10 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 0000 1110 0000 .0
.
    -2305843009213690112
 +)                   32
 -------------------------------------------------
    -2305843009213690112
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                        1 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 0000 1111 0000 .0
.
    -2305843009213690112
 +)                   16
 -------------------------------------------------
    -2305843009213690112
====================================================================================
......仮数部 LSB 1、小数点以下なし...(-n) + (+x)...............
...............................................
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                   1 0000 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1101 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 1101 0000 0000 .0
.
    -2305843009213693440
 +)                  256
 -------------------------------------------------
    -2305843009213693184
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                     1111 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1101 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 1101 0001 0000 .0
.
    -2305843009213693440
 +)                  240
 -------------------------------------------------
    -2305843009213693184
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                     1110 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1101 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 1101 0010 0000 .0
.
    -2305843009213693440
 +)                  224
 -------------------------------------------------
    -2305843009213693184
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                     1101 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1101 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 1101 0011 0000 .0
.
    -2305843009213693440
 +)                  208
 -------------------------------------------------
    -2305843009213693184
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                     1100 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1101 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 1101 0100 0000 .0
.
    -2305843009213693440
 +)                  192
 -------------------------------------------------
    -2305843009213693184
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                     1011 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1101 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 1101 0101 0000 .0
.
    -2305843009213693440
 +)                  176
 -------------------------------------------------
    -2305843009213693184
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                     1010 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1101 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 1101 0110 0000 .0
.
    -2305843009213693440
 +)                  160
 -------------------------------------------------
    -2305843009213693184
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                     1001 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1101 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 1101 0111 0000 .0
.
    -2305843009213693440
 +)                  144
 -------------------------------------------------
    -2305843009213693184
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                     1000 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 1101 1000 0000 .0
.
    -2305843009213693440
 +)                  128
 -------------------------------------------------
    -2305843009213693440
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                      111 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 1101 1001 0000 .0
.
    -2305843009213693440
 +)                  112
 -------------------------------------------------
    -2305843009213693440
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                      110 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 1101 1010 0000 .0
.
    -2305843009213693440
 +)                   96
 -------------------------------------------------
    -2305843009213693440
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                      101 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 1101 1011 0000 .0
.
    -2305843009213693440
 +)                   80
 -------------------------------------------------
    -2305843009213693440
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                      100 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 1101 1100 0000 .0
.
    -2305843009213693440
 +)                   64
 -------------------------------------------------
    -2305843009213693440
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                       11 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 1101 1101 0000 .0
.
    -2305843009213693440
 +)                   48
 -------------------------------------------------
    -2305843009213693440
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                       10 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 1101 1110 0000 .0
.
    -2305843009213693440
 +)                   32
 -------------------------------------------------
    -2305843009213693440
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
 +)                                                                        1 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 0000 0000 .0
        Binary Result(Subtract significant digits) => 11 1111 1111 1101 1111 0000 .0
.
    -2305843009213693440
 +)                   16
 -------------------------------------------------
    -2305843009213693440
====================================================================================
......仮数部 LSB 0、小数点以下...(+n) + (+x)...............
...............................................
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 1000 0000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1111 1000 0000
.
     0.99999999999999977795539507496869
 +)  0.00000000000000011102230246251565
 -------------------------------------------------
     0.99999999999999988897769753748435
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0111 1000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1111 0111 1000
.
     0.99999999999999977795539507496869
 +)  0.00000000000000010408340855860843
 -------------------------------------------------
     0.99999999999999988897769753748435
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0111 0000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1111 0111 0000
.
     0.99999999999999977795539507496869
 +)  0.00000000000000009714451465470120
 -------------------------------------------------
     0.99999999999999988897769753748435
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0110 1000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1111 0110 1000
.
     0.99999999999999977795539507496869
 +)  0.00000000000000009020562075079397
 -------------------------------------------------
     0.99999999999999988897769753748435
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0110 0000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1111 0110 0000
.
     0.99999999999999977795539507496869
 +)  0.00000000000000008326672684688674
 -------------------------------------------------
     0.99999999999999988897769753748435
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0101 1000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1111 0101 1000
.
     0.99999999999999977795539507496869
 +)  0.00000000000000007632783294297951
 -------------------------------------------------
     0.99999999999999988897769753748435
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0101 0000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1111 0101 0000
.
     0.99999999999999977795539507496869
 +)  0.00000000000000006938893903907228
 -------------------------------------------------
     0.99999999999999988897769753748435
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0100 1000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1111 0100 1000
.
     0.99999999999999977795539507496869
 +)  0.00000000000000006245004513516506
 -------------------------------------------------
     0.99999999999999988897769753748435
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0100 0000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1111 0100 0000
.
     0.99999999999999977795539507496869
 +)  0.00000000000000005551115123125783
 -------------------------------------------------
     0.99999999999999977795539507496869
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0011 1000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1111 0011 1000
.
     0.99999999999999977795539507496869
 +)  0.00000000000000004857225732735060
 -------------------------------------------------
     0.99999999999999977795539507496869
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0011 0000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1111 0011 0000
.
     0.99999999999999977795539507496869
 +)  0.00000000000000004163336342344337
 -------------------------------------------------
     0.99999999999999977795539507496869
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0010 1000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1111 0010 1000
.
     0.99999999999999977795539507496869
 +)  0.00000000000000003469446951953614
 -------------------------------------------------
     0.99999999999999977795539507496869
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0010 0000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1111 0010 0000
.
     0.99999999999999977795539507496869
 +)  0.00000000000000002775557561562891
 -------------------------------------------------
     0.99999999999999977795539507496869
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0001 1000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1111 0001 1000
.
     0.99999999999999977795539507496869
 +)  0.00000000000000002081668171172169
 -------------------------------------------------
     0.99999999999999977795539507496869
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0001 0000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1111 0001 0000
.
     0.99999999999999977795539507496869
 +)  0.00000000000000001387778780781446
 -------------------------------------------------
     0.99999999999999977795539507496869
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 1000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1111 0000 1000
.
     0.99999999999999977795539507496869
 +)  0.00000000000000000693889390390723
 -------------------------------------------------
     0.99999999999999977795539507496869
====================================================================================
......仮数部 LSB 1、小数点以下...(+n) + (+x)...............
...............................................
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 1000 0000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1001 0000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1001 0000 0000
.
     0.99999999999999833466546306226519
 +)  0.00000000000000011102230246251565
 -------------------------------------------------
     0.99999999999999844568776552478084
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0111 1000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1001 0000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1000 1111 1000
.
     0.99999999999999833466546306226519
 +)  0.00000000000000010408340855860843
 -------------------------------------------------
     0.99999999999999844568776552478084
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0111 0000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1001 0000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1000 1111 0000
.
     0.99999999999999833466546306226519
 +)  0.00000000000000009714451465470120
 -------------------------------------------------
     0.99999999999999844568776552478084
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0110 1000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1001 0000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1000 1110 1000
.
     0.99999999999999833466546306226519
 +)  0.00000000000000009020562075079397
 -------------------------------------------------
     0.99999999999999844568776552478084
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0110 0000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1001 0000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1000 1110 0000
.
     0.99999999999999833466546306226519
 +)  0.00000000000000008326672684688674
 -------------------------------------------------
     0.99999999999999844568776552478084
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0101 1000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1001 0000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1000 1101 1000
.
     0.99999999999999833466546306226519
 +)  0.00000000000000007632783294297951
 -------------------------------------------------
     0.99999999999999844568776552478084
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0101 0000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1001 0000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1000 1101 0000
.
     0.99999999999999833466546306226519
 +)  0.00000000000000006938893903907228
 -------------------------------------------------
     0.99999999999999844568776552478084
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0100 1000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1001 0000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1000 1100 1000
.
     0.99999999999999833466546306226519
 +)  0.00000000000000006245004513516506
 -------------------------------------------------
     0.99999999999999844568776552478084
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0100 0000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1001 0000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1000 1100 0000
.
     0.99999999999999833466546306226519
 +)  0.00000000000000005551115123125783
 -------------------------------------------------
     0.99999999999999844568776552478084
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0011 1000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1000 1011 1000
.
     0.99999999999999833466546306226519
 +)  0.00000000000000004857225732735060
 -------------------------------------------------
     0.99999999999999833466546306226519
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0011 0000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1000 1011 0000
.
     0.99999999999999833466546306226519
 +)  0.00000000000000004163336342344337
 -------------------------------------------------
     0.99999999999999833466546306226519
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0010 1000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1000 1010 1000
.
     0.99999999999999833466546306226519
 +)  0.00000000000000003469446951953614
 -------------------------------------------------
     0.99999999999999833466546306226519
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0010 0000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1000 1010 0000
.
     0.99999999999999833466546306226519
 +)  0.00000000000000002775557561562891
 -------------------------------------------------
     0.99999999999999833466546306226519
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0001 1000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1000 1001 1000
.
     0.99999999999999833466546306226519
 +)  0.00000000000000002081668171172169
 -------------------------------------------------
     0.99999999999999833466546306226519
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0001 0000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1000 1001 0000
.
     0.99999999999999833466546306226519
 +)  0.00000000000000001387778780781446
 -------------------------------------------------
     0.99999999999999833466546306226519
====================================================================================
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 1000
 ------------------------------------------------------------------------LGRS-oooo
     0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
        Binary Result(Add significant digits) =>xxxxx 111 1111 1111 1000 1000 1000
.
     0.99999999999999833466546306226519
 +)  0.00000000000000000693889390390723
 -------------------------------------------------
     0.99999999999999833466546306226519
====================================================================================
......仮数部 LSB 1、小数点以下...(-n) + (+x)...............
...............................................
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 1000 0000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 1000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1110 1000 0000
.
    -0.99999999999999977795539507496869
 +)  0.00000000000000011102230246251565
 -------------------------------------------------
    -0.99999999999999966693309261245304
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0111 1000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 1000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1110 1000 1000
.
    -0.99999999999999977795539507496869
 +)  0.00000000000000010408340855860843
 -------------------------------------------------
    -0.99999999999999966693309261245304
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0111 0000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 1000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1110 1001 0000
.
    -0.99999999999999977795539507496869
 +)  0.00000000000000009714451465470120
 -------------------------------------------------
    -0.99999999999999966693309261245304
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0110 1000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 1000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1110 1001 1000
.
    -0.99999999999999977795539507496869
 +)  0.00000000000000009020562075079397
 -------------------------------------------------
    -0.99999999999999966693309261245304
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0110 0000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 1000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1110 1010 0000
.
    -0.99999999999999977795539507496869
 +)  0.00000000000000008326672684688674
 -------------------------------------------------
    -0.99999999999999966693309261245304
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0101 1000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 1000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1110 1010 1000
.
    -0.99999999999999977795539507496869
 +)  0.00000000000000007632783294297951
 -------------------------------------------------
    -0.99999999999999966693309261245304
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0101 0000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 1000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1110 1011 0000
.
    -0.99999999999999977795539507496869
 +)  0.00000000000000006938893903907228
 -------------------------------------------------
    -0.99999999999999966693309261245304
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0100 1000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1110 1000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1110 1011 1000
.
    -0.99999999999999977795539507496869
 +)  0.00000000000000006245004513516506
 -------------------------------------------------
    -0.99999999999999966693309261245304
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0100 0000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1110 1100 0000
.
    -0.99999999999999977795539507496869
 +)  0.00000000000000005551115123125783
 -------------------------------------------------
    -0.99999999999999977795539507496869
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0011 1000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1110 1100 1000
.
    -0.99999999999999977795539507496869
 +)  0.00000000000000004857225732735060
 -------------------------------------------------
    -0.99999999999999977795539507496869
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0011 0000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1110 1101 0000
.
    -0.99999999999999977795539507496869
 +)  0.00000000000000004163336342344337
 -------------------------------------------------
    -0.99999999999999977795539507496869
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0010 1000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1110 1101 1000
.
    -0.99999999999999977795539507496869
 +)  0.00000000000000003469446951953614
 -------------------------------------------------
    -0.99999999999999977795539507496869
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0010 0000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1110 1110 0000
.
    -0.99999999999999977795539507496869
 +)  0.00000000000000002775557561562891
 -------------------------------------------------
    -0.99999999999999977795539507496869
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0001 1000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1110 1110 1000
.
    -0.99999999999999977795539507496869
 +)  0.00000000000000002081668171172169
 -------------------------------------------------
    -0.99999999999999977795539507496869
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0001 0000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1110 1111 0000
.
    -0.99999999999999977795539507496869
 +)  0.00000000000000001387778780781446
 -------------------------------------------------
    -0.99999999999999977795539507496869
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 1000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1110 1111 1000
.
    -0.99999999999999977795539507496869
 +)  0.00000000000000000693889390390723
 -------------------------------------------------
    -0.99999999999999977795539507496869
====================================================================================
......仮数部 LSB 0、小数点以下...(-n) + (+x)...............
...............................................
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 1000 0000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 0000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1000 0000 0000
.
    -0.99999999999999833466546306226519
 +)  0.00000000000000011102230246251565
 -------------------------------------------------
    -0.99999999999999822364316059974954
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0111 1000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 0000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1000 0000 1000
.
    -0.99999999999999833466546306226519
 +)  0.00000000000000010408340855860843
 -------------------------------------------------
    -0.99999999999999822364316059974954
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0111 0000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 0000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1000 0001 0000
.
    -0.99999999999999833466546306226519
 +)  0.00000000000000009714451465470120
 -------------------------------------------------
    -0.99999999999999822364316059974954
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0110 1000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 0000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1000 0001 1000
.
    -0.99999999999999833466546306226519
 +)  0.00000000000000009020562075079397
 -------------------------------------------------
    -0.99999999999999822364316059974954
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0110 0000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 0000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1000 0010 0000
.
    -0.99999999999999833466546306226519
 +)  0.00000000000000008326672684688674
 -------------------------------------------------
    -0.99999999999999822364316059974954
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0101 1000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 0000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1000 0010 1000
.
    -0.99999999999999833466546306226519
 +)  0.00000000000000007632783294297951
 -------------------------------------------------
    -0.99999999999999822364316059974954
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0101 0000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 0000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1000 0011 0000
.
    -0.99999999999999833466546306226519
 +)  0.00000000000000006938893903907228
 -------------------------------------------------
    -0.99999999999999822364316059974954
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0100 1000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 0000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1000 0011 1000
.
    -0.99999999999999833466546306226519
 +)  0.00000000000000006245004513516506
 -------------------------------------------------
    -0.99999999999999822364316059974954
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0100 0000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 0000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1000 0100 0000
.
    -0.99999999999999833466546306226519
 +)  0.00000000000000005551115123125783
 -------------------------------------------------
    -0.99999999999999822364316059974954
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0011 1000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1000 0100 1000
.
    -0.99999999999999833466546306226519
 +)  0.00000000000000004857225732735060
 -------------------------------------------------
    -0.99999999999999833466546306226519
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0011 0000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1000 0101 0000
.
    -0.99999999999999833466546306226519
 +)  0.00000000000000004163336342344337
 -------------------------------------------------
    -0.99999999999999833466546306226519
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0010 1000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1000 0101 1000
.
    -0.99999999999999833466546306226519
 +)  0.00000000000000003469446951953614
 -------------------------------------------------
    -0.99999999999999833466546306226519
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0010 0000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1000 0110 0000
.
    -0.99999999999999833466546306226519
 +)  0.00000000000000002775557561562891
 -------------------------------------------------
    -0.99999999999999833466546306226519
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0001 1000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1000 0110 1000
.
    -0.99999999999999833466546306226519
 +)  0.00000000000000002081668171172169
 -------------------------------------------------
    -0.99999999999999833466546306226519
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0001 0000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1000 0111 0000
.
    -0.99999999999999833466546306226519
 +)  0.00000000000000001387778780781446
 -------------------------------------------------
    -0.99999999999999833466546306226519
====================================================================================
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
 +)  0 .0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 1000
 ------------------------------------------------------------------------LGRS-oooo
    -0 .1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1000 1000 0000
        Binary Result(Subtract significant digits) => 111 1111 1111 1000 0111 1000
.
    -0.99999999999999833466546306226519
 +)  0.00000000000000000693889390390723
 -------------------------------------------------
    -0.99999999999999833466546306226519
====================================================================================

###### マイナス無限大方向への丸め : プラス値 ########################################################
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                   1 0000 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0010 0000 0000 .0
.
     2305843009213690112
 +)                  256
 -------------------------------------------------
     2305843009213690368
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                     1000 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 1000 0000 .0
.
     2305843009213690112
 +)                  128
 -------------------------------------------------
     2305843009213690112
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                      100 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0100 0000 .0
.
     2305843009213690112
 +)                   64
 -------------------------------------------------
     2305843009213690112
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                       10 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0010 0000 .0
.
     2305843009213690112
 +)                   32
 -------------------------------------------------
     2305843009213690112
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                        1 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0001 0000 .0
.
     2305843009213690112
 +)                   16
 -------------------------------------------------
     2305843009213690112
====================================================================================
###### マイナス無限大方向への丸め : マイナス値 ########################################################
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 -)                                                                   1 0000 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0010 0000 0000 .0
.
    -2305843009213690112
 -)                  256
 -------------------------------------------------
    -2305843009213690368
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 -)                                                                     1000 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 1000 0000 .0
.
    -2305843009213690112
 -)                  128
 -------------------------------------------------
    -2305843009213690368
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 -)                                                                      100 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0100 0000 .0
.
    -2305843009213690112
 -)                   64
 -------------------------------------------------
    -2305843009213690368
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 -)                                                                       10 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0010 0000 .0
.
    -2305843009213690112
 -)                   32
 -------------------------------------------------
    -2305843009213690368
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 -)                                                                        1 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0001 0000 .0
.
    -2305843009213690112
 -)                   16
 -------------------------------------------------
    -2305843009213690368
====================================================================================
###### ゼロ方向への丸め : プラス値 ########################################################
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                   1 0000 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0010 0000 0000 .0
.
     2305843009213690112
 +)                  256
 -------------------------------------------------
     2305843009213690368
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                     1000 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 1000 0000 .0
.
     2305843009213690112
 +)                  128
 -------------------------------------------------
     2305843009213690112
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                      100 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0100 0000 .0
.
     2305843009213690112
 +)                   64
 -------------------------------------------------
     2305843009213690112
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                       10 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0010 0000 .0
.
     2305843009213690112
 +)                   32
 -------------------------------------------------
     2305843009213690112
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                        1 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0001 0000 .0
.
     2305843009213690112
 +)                   16
 -------------------------------------------------
     2305843009213690112
====================================================================================
###### ゼロ方向への丸め : マイナス値 ########################################################
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 -)                                                                   1 0000 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0010 0000 0000 .0
.
    -2305843009213690112
 -)                  256
 -------------------------------------------------
    -2305843009213690368
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 -)                                                                     1000 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 1000 0000 .0
.
    -2305843009213690112
 -)                  128
 -------------------------------------------------
    -2305843009213690112
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 -)                                                                      100 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0100 0000 .0
.
    -2305843009213690112
 -)                   64
 -------------------------------------------------
    -2305843009213690112
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 -)                                                                       10 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0010 0000 .0
.
    -2305843009213690112
 -)                   32
 -------------------------------------------------
    -2305843009213690112
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 -)                                                                        1 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0001 0000 .0
.
    -2305843009213690112
 -)                   16
 -------------------------------------------------
    -2305843009213690112
====================================================================================
###### プラス無限大方向への丸め : プラス値 ########################################################
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                   1 0000 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0010 0000 0000 .0
.
     2305843009213690112
 +)                  256
 -------------------------------------------------
     2305843009213690368
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                     1000 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 1000 0000 .0
.
     2305843009213690112
 +)                  128
 -------------------------------------------------
     2305843009213690368
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                      100 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0100 0000 .0
.
     2305843009213690112
 +)                   64
 -------------------------------------------------
     2305843009213690368
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                       10 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0010 0000 .0
.
     2305843009213690112
 +)                   32
 -------------------------------------------------
     2305843009213690368
====================================================================================
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 +)                                                                        1 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
     1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0001 0000 .0
.
     2305843009213690112
 +)                   16
 -------------------------------------------------
     2305843009213690368
====================================================================================
###### プラス無限大方向への丸め : マイナス値 ########################################################
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 -)                                                                   1 0000 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0010 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0010 0000 0000 .0
.
    -2305843009213690112
 -)                  256
 -------------------------------------------------
    -2305843009213690368
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 -)                                                                     1000 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 1000 0000 .0
.
    -2305843009213690112
 -)                  128
 -------------------------------------------------
    -2305843009213690112
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 -)                                                                      100 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0100 0000 .0
.
    -2305843009213690112
 -)                   64
 -------------------------------------------------
    -2305843009213690112
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 -)                                                                       10 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0010 0000 .0
.
    -2305843009213690112
 -)                   32
 -------------------------------------------------
    -2305843009213690112
====================================================================================
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
 -)                                                                        1 0000 .0
 ---------------------------------------------------------------------L GRSo-oooo---
    -1 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 1111 0001 0000 0000 .0
        Binary Result(Add significant digits) =>xxxxx 11 1111 1111 0001 0001 0000 .0
.
    -2305843009213690112
 -)                   16
 -------------------------------------------------
    -2305843009213690112
====================================================================================


2024-03-11 　「Raspberry-pi 5」
Raspberry pi 5を使ってみた。
[ras5.jpg]
４Bの頃から紙箱に裸で入っている。
基板サイズは今までと同じ。ビス穴も同じ。USB,LANコネクタ配置は2B,3Bと同じ。

通常の電源はTDKラムダ スイッチング電源 5V dc 6A以上のものを使っている。
USB TypeA オス・USB TypeC オス　ケーブルを使うと、

usb_max_current_enable default 0 max-current 900
と認識される。

そこで、
　電源５Vー＋ーーーーーーUSB　VBUS５V　　　USB-C オス・USB-C　オス　ケーブルでRaspi５の電源へ。
　　　　　　|    10kΩ
          +---/\/\/\--USB-C A5 (CC1)
          |    10kΩ
          +---/\/\/\--USB-C B5 (CC2)

　電源GNDーーーーーーーーUSB-C GND

とすると、
usb_max_current_enable default 0 max-current 3000
と認識される。

/boot/firmware/config.txtに「usb_max_current_enable=1」を設定すると上記のメッセージは出なかった。
５Aにさせるには、rpi-eeprom-config -eで「PSU_MAX_CURRENT=5000」と設定した。

カメラ picamera V2を接続した。
==== BOARD ( Memory 8.0MB ) ===
Raspberry Pi 5 Model B Rev 1.0
======= OS ( 64 Bits ) ========
Debian GNU/Linux 12 (bookworm)
===============================
/boot/firmware/config.txt に "camera_auto_detect=1"が記述してあるのでカメラを接続して自動検出する。
$ libcamera-hello -t 0
でエラーがでた。

「ERROR V4L2 v4l2_videodevice.cpp:1906 /dev/video4[16:cap]:
　 Failed to start streaming: Broken pipe
　　ERROR: *** failed to start camera ***」

$ libcamera-hello --list-camera
Available cameras
-----------------
0 : imx219 [3280x2464 10-bit RGGB] (/base/axi/pcie@120000/rp1/i2c@88000/imx219@10)
    Modes: 'SRGGB10_CSI2P' : 640x480 [206.65 fps - (1000, 752)/1280x960 crop]
                             1640x1232 [41.85 fps - (0, 0)/3280x2464 crop]
                             1920x1080 [47.57 fps - (680, 692)/1920x1080 crop]
                             3280x2464 [21.19 fps - (0, 0)/3280x2464 crop]
           'SRGGB8' : 640x480 [206.65 fps - (1000, 752)/1280x960 crop]
                      1640x1232 [83.70 fps - (0, 0)/3280x2464 crop]
                      1920x1080 [47.57 fps - (680, 692)/1920x1080 crop]
                      3280x2464 [21.19 fps - (0, 0)/3280x2464 crop]

接続カメラのリストは表示される。
libcamera-* は、リネームされて rpicam-* となっている。

"Raspberry pi 5 v4l2 Broken pipe"で検索して、

検索結果：https://github.com/raspberrypi/libcamera/issues/104
　　　　　libcamera-apps fail to run V2 camera on RPi5 #104 
の中にあった以下のコマンドを実行。

$ sudo rpi-update d16727d
$ sudo reboot

するとエラーがでなくなり、カメラが動作するようになる。

参照：https://www.raspberrypi.com/documentation/computers/camera_software.html
　　　Raspberry Pi Documentation
　　　Camera software

2B,3BケースのUSB,LANコネクタ穴に収まる。電源USB-C,HMDI　2個のコネクタが刺さるように穴を広げて、
電源SWの頭が基板端より少し出ているのでそこに穴を開ければ収まる。CPU上の板状の部分も取るといいかも。
[pi5b-case-pci-ssd.jpg]
メモリ基板　「Geekworm X1000　Pcie M.2 Key-M　NVMe SSD拡張ボード」と
メモリ　「Samsung SSD 256GB PM991 M.2 2242 42mm PCIe 3.0 x4 NVMe MZALQ256HAJD MZALQ2560 ソリッドス
テートドライブ」追加してみました。

2.4Ghz WIFIは、大きな解像度(1920x1080)のディスプレイを接続しても接続できる。
Raspi4Bは、接続できない、できにくいことが多かった。

処理速度は早い。
USBブートは設定を変えること。
raspi-config の　Advanced Options　の　A4 Boot Order　の　B2 にする。
リブートしてもUSBブートはしない。
ACアダプタONでも自動USBブートしない。
POWER　SWを押すとUSBブートする。（ちょっと面倒）
POWER SWを押すまではFANが回る。

FANは常に回るわけではない。

USBデバイスでブートする場合

●POWER SWの扱い
　電源断状態から、ACアダプタで電源ONにして、ディスプレイに文字メッセージ表示のみになる。
　このとき1回　短押しするとUSBブートを始め、OSが起動する。

　デスクトップ表示中に短押しすると、シャットダウンポップアップメニューが出る。もう1回短押しするとシャットダウンし、ディスプレイ表示なしとなる。
　このとき５V電源は、電流が流れておりCPUは動作している。
　ディスプレイ表示なしのこのときPOWER SW短押しするとOS起動する。

　デスクトップ表示中にPOWER SWを長押ししたままでシャットダウンしてディスプレイ表示なしになる。このとき５V電源は電流はほぼゼロとなっている。

　ディスプレイ表示なし、５V電源は電流はほぼゼロのとき、 POWER SW短押しすると、ディスプレイに文字メッセージ表示されたら、もう1回短押しするとOS起動する。


SDカードよりブートする場合

●POWER SWの扱い
　電源断状態から、ACアダプタで電源ONにして、ディスプレイに文字メッセージ表示し、自動でOSが起動する。

　デスクトップ表示中に短押しすると、シャットダウンポップアップメニューが出る。もう1回短押しするとシャットダウンし、ディスプレイ表示なしとなる。
　このとき５V電源は、電流が流れておりCPUは動作している。
　ディスプレイ表示なしのこのときPOWER SW短押しするとOS起動する。

　デスクトップ表示中にPOWER SWを長押ししたままでシャットダウンしてディスプレイ表示なしになる。このとき５V電源は電流はほぼゼロとなっている。

　ディスプレイ表示なし、５V電源は電流はほぼゼロとき、 POWER SW短押しすると、ディスプレイに文字メッセージ表示されたら、自動でがOS起動する。

ドキュメントに書いてありました。
/boot/firmware/config.txt　に　usb_max_current_enable=1　を追加設定すれば自動起動すると。

POWER SWを押す回数が多そうなのでプッシュSWを追加した。
（昔のPCマザーボードについていたリセットSW）
短押し2回では電流が０．３Aほど流れている。ディスプレイは表示なし。
シリアルコンソールは動作しない。（電流が流れているので変な期待をしたのがバカだった）

その後短押し1回でOSが起動する。

電流が０．３Aほど流れているとき、

https://www.raspberrypi.com/documentation/computers/raspberry-pi.html#POWER_OFF_ON_HALT
より、

デフォルトではPMIC出力ありになっている。
LEDは赤色。ここでPWER SWを長押しするとLEDは赤色から緑色になってまた赤色となる。
このとき５V電源は電流はほぼゼロ。
roi-eeprom-config -e で”POWER_OFF_ON_HALT=1”にするとshutdownで電流はセロになる。
長押ししたままでシャットダウンしてディスプレイ表示なしに、短押し1回でOSが起動する。
USB電源入れ直すと自動でUSBブートする。

デスクトップ表示中に短押しすると、シャットダウンポップアップメニューが出るのは、WaylandのときでX11でDesktop表示では
短押しでは。シャットダウンポップアップメニューが出ない。長押しのみ有効。

アナログTVコンポジット出力を試してみた。
RasPi5基板のコンポジット信号出力パターン穴に接続する。

/boot/firmware/config.txt　に
#dtoverlay=vc4-kms-v3d
dtoverlay=vc4-kms-v3d-pi5,composite
と修正する。再起動でTVに表示される。

2024-02-25　「BITBANGソフトウェアI2C」
雑誌インターフェース２０２４・３月号のソフトウェアI2C（I2C bitbang）を見てちょっと面倒そうだなと思って真似てやってみた。
I2C接続はオープンドレインで、誰かがLOWにしたら全部LOW検出のしくみで混乱してしまった。
テスト用にAVR ATTiny85でI2Cスレーブデバイスを作成し、PICOでBME280と一緒にテストする。

参考：
NXP　I2Cドキュメント　UM1024.pdf　（日本語、英語）
トランジスタ技術　２０１４・１０月号　２線シリアル・インターフェースI2C詳解　(p152-176)

PICOオープンドレインテストの配線。

PICO
3.3V -----/\/10KΩ\/\---+---▶｜(LED)---/\/1KΩ\/\---> GND 
GP28 ------------------+

micropython　のPICOオープンドレインテストプログラム
手で入力実行。
---
from machine import Pin
out = Pin(28)
out.init(Pin.OPEN_DRAIN)
out.value(0)  # LED消灯
out.value(1)  # LED薄く点灯
out.init(Pin.OUT)
out.value(0)  # LED消灯
out.value(1)  # LED点灯


==== BOARD ( Memory 8.0MB ) ===
Raspberry Pi 4 Model B Rev 1.5
======= OS ( 64 Bits ) ========
Debian GNU/Linux 12 (bookworm)
===============================

Raspberry pi書き込み用GPIO接続

ピン17,１：３．３V　ーー＞　ATTINY85 pin８(VDD)
ピン１９：MOSI（GPO10)　ーー＞　ATTINY85 pin５(MOSI)
ピン２１：MISO（GPIO9)　ーー＞　ATTINY85 pin６(MISO)
ピン２３：CLK（GPIO11)　ーー＞　ATTINY85 pin７(CLK)
ATTINY85 pin８(VDD) --[10 kΩ]-- ATTINY85 pin１(RESET) pull up
ピン３７：GPIO26　ーー＞　ATTINY85 pin１(RESET)
ピン６，３９：GND　ーー＞　ATTINY85 pin４(GND)

ヒューズビットが外付けXtal,セラミック発振子の場合はつけること。

インストール
sudo apt-get install gcc-avr avr-libc binutils-avr avrdude

sudo nano /etc/avrdude.conf
----修正 コメントを取る-----
programmer
     id                   = "linuxgpio";
     desc                 = "Use the Linux sysfs interface to bitbang GPIO line>
     type                 = "linuxgpio";
     prog_modes           = PM_ISP;
     reset                = 26;
     sck                  = 11;
     sdo                  = 10;
     sdi                  = 9;
 ;

https://yetanotherhackersblog.wordpress.com/2011/04/12/interfacing-the-beagleboard-with-an-attiny85-microcontroller-over-i2c/
Yet Another Hacker's Blog - Interfacing the BeagleBoard with an ATtiny85 Microcontroller over I2C

　　” You can download the code from here (its an AVR Studio project for AVR GCC).”　
　　の「here」をクリック。

にあったリンクのソース　↓
https://storage.googleapis.com/google-code-archive-source/v2/code.google.com/usi-i2c-slave/source-archive.zip
をもらってきて、修正。
-----i2ctest.c -------
#define F_CPU 8000000UL
#include <avr/io.h>
#include <avr/interrupt.h>
#include <util/delay_basic.h>
#include "usiTwiSlave.h"
#include <avr/cpufunc.h>

#define I2C_SLAVE_ADDR  0x26
#define PIEZO PB1
#define GPIO_PIN PB3


// Somewhere to store the values the master writes to i2c register.
static volatile uint8_t pinb = 0;
static volatile uint8_t adc_data = 0;

void adcInit() {

	// Enable ADC2/PB4 as ADC input
	ADMUX |= 1 << MUX1;

	// Set the ADC clock precaler to 16 (ie 500KHz if the main clock is 8MHz).
	ADCSRA |= 1 << ADPS2;

	// Left align the output (this lets us just use the 8 bits in the ADCH output register (we 
	// can ignore the extra 2 bits in the ADCL register).
	ADMUX |= 1 << ADLAR;

	// Enable ADC.
	ADCSRA |= 1 << ADEN;
}

uint8_t adcRead() {

	// Start a conversion	
	ADCSRA |= 1 << ADSC;

	// Wait for it to finish
	while (ADCSRA & (1 << ADSC));

	// Get the result.
	return ADCH;
}

void on_buzz()
{
	TCCR0A &= 0xCF;		// Stop OC0B
	TCCR0A |= 0x10;		// out OC0B
}

void off_buzz()
{
	TCCR0A &= 0xCF;		// Stop OC0B
	PORTB &= ~(1 << PIEZO);
}

// A callback triggered when the i2c master attempts to read from a register.
uint8_t i2cReadFromRegister(uint8_t reg)
{
	uint8_t r;

	switch (reg)
	{
		case 0:  // read PB3
			if ( DDRB & (1 << PB3) ) {
				DDRB &= ~(1 << PB3);
				r = PINB;
			} 
			if ( PINB & (1<<PB3)) {
				r = 1;
			} else {
				r = 0;
			}
			return r;
		case 1:  // read ADC
			return adc_data;
		default:
			return 0xAA;
	}
}

// A callback triggered when the i2c master attempts to write to a register.
void i2cWriteToRegister(uint8_t reg, uint8_t value)
{

	switch (reg)
	{
		case 0:  // write PB3 
			DDRB |= (1 << PB3);
			if ( value & 1 )
			    PORTB |= 1 << PB3;
			else
			    PORTB &= ~(1 << PB3);
			break;
		case 1:  // write ON/OFF buzzer
			if( value & 1 )
				on_buzz();
			else
				off_buzz();
			break;
	}

}

ISR(TIM1_OVF_vect)
{
	adc_data = adcRead();
}

void init_int(void)
{
	// Timer0
	TCCR0A = 0x00;
	TCCR0B = 0x00;    
	TCCR0A = 0x02;	// OC0B out / CTC
	TCCR0B = 0x03;  // 2 Mhz / (64 [TCCR0B.CS0] * 2 * (n[OCR0A] - 1) ) = f(Hz)
	OCR0A = 38;     // 400Hz

	// Timer1
	TCCR1 = 0xcc;	// CK / 2048  -- OCR1C on zero cntr
	OCR1C = 100;	// 2Mhz / 2048 / 100 = 100ms 
	TIMSK |= 0x04;
}

int main()
{
	CLKPR = 0x80;
	CLKPR = 0x02;  // 8Mhz/4 =2000000hz

	// Set the LED pin as output.
	DDRB |= (1 << PIEZO);
	PORTB = (1 << PIEZO) ^ 0x3F; // in pull up
	init_int();
	adcInit();
	usiTwiSlaveInit(I2C_SLAVE_ADDR, i2cReadFromRegister, i2cWriteToRegister);
	sei();

	while (1)
	{
		_NOP();
	}
}
----
コンパイル
avr-gcc i2ctest.c usiTwiSlave.c -o i2cdev -Wall -Os -std=gnu99 -mmcu=attiny85 -I.
avr-objcopy -O ihex 12cdev i2cdev.hex
プログラム書き込み
sudo avrdude -p t85 -P linuxgpio -c linuxgpio -v -U flash:w:i2cdev.hex
ヒューズビット書き込み
sudo avrdude  -p t85 -c linuxgpio -P linuxgpio -v -U lfuse:w:0x72:m -U hfuse:w:0xDF:m -U efuse:w:0xFF:m
ATTiny85を試す。
i2cdetect -y 1
0x26 があること

・・・I2Cスレーブ機能
書き込みは、２バイト。
１バイト目　2バイト目
　０　　　　0x01 (PB3 Hi - LED点灯）　or 0x00 (PB3 Low - LED消灯）
　１　　　　0x01 (PB1 - ピエゾ鳴く）　or 0x00 (PB1 - ピエゾ消音）
読み込みは、１バイト機能指定、１バイト読み込み。
１バイト目　読み込み値
　０　　　　PB3 の値　Hi - １　or Low - ０
　１　　　　PB4　ADC値　0 ~ 255
・・・

Raspberry PICOには、BME280と作成したATTiny85とLED、抵抗、ピエゾ、SW、ボリューム抵抗を配線する。

PICO配線
[attiny85-i2cdev.jpg]
micropython　のI2Cテストプログラム
---test.py---
from machine import Pin, I2C
from time import sleep

i2c = I2C(0, sda = Pin(0), scl = Pin(1), freq = 40000)
adr = i2c.scan()
adr_lst = list(hex(a) for a in adr)
print("Addr:", adr_lst)
i2c.writeto(0x26,b'\x01\x01')
sleep(0.5)
i2c.writeto(0x26,b'\x01\x00')
---
ブザーが鳴る。

micropython BitbangソフトI2C　のテストプログラム。
--i2c-bme280-attiny85.py---
from machine import Pin

def SDA_BIT():
    return sda.value()

def I2C_INIT2():
    sda.init(Pin.OUT, Pin.OPEN_DRAIN)
    scl.init(Pin.OUT, Pin.OPEN_DRAIN)
    sda.value(1)
    scl.value(1)
    
def SDA_HIGH2():
    sda.value(1)

def SDA_LOW2():
    sda.value(0)
    
def SCL_HIGH2():
    scl.value(1)

def SCL_LOW2():
    scl.value(0)

# ========================
def start_condition():
    SCL_HIGH2()
    SDA_LOW2()

def stop_condition():
    SDA_LOW2()
    SCL_HIGH2()
    SDA_HIGH2()

def send_byte( byte ):
    for i in range(8):
        SCL_LOW2()
        if byte & (0x80>>i):
            SDA_HIGH2()
        else:
            SDA_LOW2()
        SCL_HIGH2()

    # getting ACK/NACK
    SCL_LOW2()
    SDA_HIGH2()

    SCL_HIGH2()
    nack = SDA_BIT()
    SCL_LOW2()
    return nack

def recv_byte(nack):
    b = 0
    SDA_HIGH2()

    for i in range(8):
        b <<= 1
        SCL_LOW2()
        SCL_HIGH2()
        b |= SDA_BIT()

    SCL_LOW2()
    if nack:
        SDA_HIGH2() # Last byte NACK
    else:
        SDA_LOW2()
    SCL_HIGH2()
    SCL_LOW2()

    return b

def p_out(adr, reg, data):
    start_condition()
    if send_byte( adr<<1|0 ): # Write
        stop_condition()
        print("Error OUTPUT:%02X / REG:%02X" % (adr, reg))
        return    
    send_byte( reg )
    send_byte( data ) 
    stop_condition()

def p_in(adr,reg):
    start_condition()
    if send_byte( adr<<1|0 ): # Write
        stop_condition()
        print("Error INPUT:%02X / REG:%02X" % (adr, reg))
        return    
    send_byte( reg )
    start_condition()
    send_byte( adr<<1|1 )     # Read
    data = recv_byte(True)    # 1byte NACK
    stop_condition()
    print("REG(%02X):%02X %d" % (reg,data,data))

import time

sda = Pin(0)
scl = Pin(1)

I2C_INIT2()
print("*** DUMP REGISTER ***")
print("BME280 ID : 0x60")
p_in(0x76, 0xD0)
print("BME280 制御")
print("BME280 Reg F2 : 0x01")
p_out(0x76, 0xF2,0x01)
print("BME280 Reg F4 : 0x27")
p_out(0x76, 0xF4,0x27)
print("BME280 Reg F5 : 0xA0")
p_out(0x76, 0xF5,0xA0)
p_in(0x76, 0xF2)
p_in(0x76, 0xF4)
p_in(0x76, 0xF5)
print("--ATTiny85 I2C--")
print("--OUT-- led ON, BUZZ on")
p_out(0x26, 0, 1) # led on
p_out(0x26, 1, 1) # buzz on
time.sleep(0.5)
print("--OUT-- led OFF, BUZZ off")
p_out(0x26, 0, 0) # led off
p_out(0x26, 1, 0) # buzz off
print("--IN--")
p_in(0x26, 0)     # PB3 in
p_in(0x26, 1)     # ADC in
time.sleep(0.5)
print("--OUT-- led ON, BUZZ on")
p_out(0x26, 0, 1) # led on
p_out(0x26, 1, 1) # buzz on
time.sleep(0.5)
print("--OUT-- led OFF, BUZZ off")
p_out(0x26, 0, 0) # led off
p_out(0x26, 1, 0) # buzz off
----
結果
...
MPY: soft reboot
*** DUMP REGISTER ***
BME280 ID : 0x60
REG(D0):60 96
BME280 制御
BME280 Reg F2 : 0x01
BME280 Reg F4 : 0x27
BME280 Reg F5 : 0xA0
REG(F2):01 1
REG(F4):27 39
REG(F5):A0 160
--ATTiny85 I2C--
--OUT-- led ON, BUZZ on
--OUT-- led OFF, BUZZ off
--IN--
REG(00):00 0       ＜＜＝＝SW　ONで１、OFFで０
REG(01):B5 181     ＜＜＝＝ボリューム位置で変わる　０〜２５５
--OUT-- led ON, BUZZ on
--OUT-- led OFF, BUZZ off
...

2024-01-17 　「seed studio XIAO ESP32S3 Micropythonインストール」
seed studio XIAO ESP32S3 にMicropythonをインストールしてみた。

2023-12-05 arm64 bookworm DeskTop Full イメージを使う。
==== BOARD ( Memory 8.0MB ) ===
Raspberry Pi 4 Model B Rev 1.5
======= OS ( 64 Bits ) ========
Debian GNU/Linux 12 (bookworm)
===============================

ESP32-S3 micropythonダウンロード。

https://micropython.org/download/ESP32_GENERIC_S3/
https://micropython.org/resources/firmware/ESP32_GENERIC_S3-SPIRAM_OCT-20240105-v1.22.1.bin

apt install でESPTOOLがインストールできないので、

https://github.com/espressif/esptool/releases
より、　esptool-v4.7.0-arm64.zip　ダウンロード。
解凍。
$ cd esptool-arm64
$ chmod +x esptool
$ ./esptool --help
  ヘルプが表示されること。

USBケーブル差し込む。
boot SWを押しながら、reset swをプッシュ、boot swをはなす。
（SWが小さい、扱いが雑だったのでBeset SWの上の盛り上がった接触接点が剥がれた）

$ ./esptool --port /dev/ttyACM0 chip_id
====
esptool.py v4.7.0
Serial port /dev/ttyACM0
Connecting...
Detecting chip type... ESP32-S3
Chip is ESP32-S3 (QFN56) (revision v0.2)
Features: WiFi, BLE, Embedded PSRAM 8MB (AP_3v3)
Crystal is 40MHz
MAC: dc:da:0c:57:ab:c0
Uploading stub...
Running stub...
Stub running...
Warning: ESP32-S3 has no Chip ID. Reading MAC instead.
MAC: dc:da:0c:57:ab:c0
Hard resetting via RTS pin...
===
$ ./esptool --chip esp32s3 --port /dev/ttyACM0 erase_flash
esptool.py v4.7.0
Serial port /dev/ttyACM0
Connecting...
Chip is ESP32-S3 (QFN56) (revision v0.2)
Features: WiFi, BLE, Embedded PSRAM 8MB (AP_3v3)
Crystal is 40MHz
MAC: dc:da:0c:57:ab:c0
Uploading stub...
Running stub...
Stub running...
Erasing flash (this may take a while)...
Chip erase completed successfully in 2.7s
Hard resetting via RTS pin...
===
$ ./esptool --chip esp32s3 --port /dev/ttyACM0 write_flash -z 0 ESP32_GENERIC_S3-SPIRAM_OCT-20240105-v1.22.1.bin
===
esptool.py v4.7.0
Serial port /dev/ttyACM0
Connecting...
Chip is ESP32-S3 (QFN56) (revision v0.2)
Features: WiFi, BLE, Embedded PSRAM 8MB (AP_3v3)
Crystal is 40MHz
MAC: dc:da:0c:57:ab:c0
Uploading stub...
Running stub...
Stub running...
Configuring flash size...
Flash will be erased from 0x00000000 to 0x0018efff...
Compressed 1631504 bytes to 1068949...
Wrote 1631504 bytes (1068949 compressed) at 0x00000000 in 10.0 seconds (effective 1298.8 kbit/s)...
Hash of data verified.

Leaving...
Hard resetting via RTS pin...
===

$ minicom -b 115200 -D /dev/ttyACM0
===
>>> help('modules')
__main__          bluetooth         heapq             select
_asyncio          btree             inisetup          socket
_boot             builtins          io                ssl
_espnow           cmath             json              struct
_onewire          collections       machine           sys
_thread           cryptolib         math              time
_webrepl          deflate           micropython       uasyncio
aioespnow         dht               mip/__init__      uctypes
apa106            ds18x20           neopixel          umqtt/robust
array             errno             network           umqtt/simple
asyncio/__init__  esp               ntptime           upysh
asyncio/core      esp32             onewire           urequests
asyncio/event     espnow            os                webrepl
asyncio/funcs     flashbdev         platform          webrepl_setup             
asyncio/lock      framebuf          random            websocket                 
asyncio/stream    gc                re                                          
binascii          hashlib           requests/__init__                           
Plus any modules on the filesystem                                              
>>> 
=====
または、Thonnyシェルで。

配線：                           XIAO ESP32S3 
          +-----/\/1kΩ/\----|◁---ESP32 GPIO 6
          |　 LED
　　　　　 ▽

        　+--/\/10kΩ/\------------ESP32 3V3
 　       |
          +-----------------------ESP32 GPIO 7
          |
　　　　　　○ |
            |=  SW
          ○ |
          |
        　▽

        Rasberry pi ====　USBケーブル　==== ESP32

Thonnyで実行
--- sw-led.py ----
from machine import Pin
import time

user_led = Pin(21, Pin.OUT)
user_led.value(0)
led = Pin(6, Pin.OUT)
led.value(0)
sw = Pin(7, Pin.IN)
while True:
    user_led.value(user_led.value() ^ 1)
    if sw.value():
        led.value(0)
    else:
        led.value(1)
    time.sleep(0.5)
-----
実行
　ユーザLEDが点滅、SW ONでLEDが点灯。
[seed-studio-ESP32S3.jpg]
2023-12-20　「PICO-W ble キーボード」
参考：
　https://forums.raspberrypi.com/viewtopic.php?t=347395
  Running the BT demo programs - encouraged!

　https://github.com/bluekitchen/btstack
　Welcome to BTstack

　https://forums.raspberrypi.com/viewtopic.php?t=356457
　Trying to turn Pico W into a Bluetooth keyboard

  https://technotes.kynetics.com/2018/BLE_Pairing_and_bonding/
  BLE Pairing and Bonding

  https://bluekitchen-gmbh.com/btstack/
  BTstack Manual master-486107eca

  https://bluekitchen-gmbh.com/btstack/#examples/examples/
  LE Peripheral - Test Pairing Methods
  Main Application Setup
  （LE Secure Connections, Just Works）

Raspberry PICO-W でBluetoothキーボードを作ってみました。
NRF51822 Blutooth基板　BBC Micro:bit、BBC Micro:bit V2はnRF52833　と同じように接続するものです。
PICO-Wのサンプルは、ペアリング条件により接続できないスマホがあるが,ペアリング条件を変えると接続するようになる。
ペアリング条件はレガシーなので注意する必要があります。

キーボードマトリックス入力は、Microchip MCP23S17　２個でSPI経由で入力。

ble-keyboard
├── CMakeLists.txt
├── build
├── hog_keyboard_demo.c
├── hog_keyboard_demo.gatt
├── keyboard.c
└── keyboard.h


CMakefiles.txt
...
set(PROJECT       hog_keyboard_demo)
set(PICO_BOARD    pico_w)
set(PICO_SDK_PATH $ENV{PICO_SDK_PATH})

cmake_minimum_required(VERSION 3.12)
include(${PICO_SDK_PATH}/external/pico_sdk_import.cmake)
project(${PROJECT} C CXX ASM)
pico_sdk_init()

add_executable(${PROJECT}
  hog_keyboard_demo.c
  keyboard.c
)

target_link_libraries(${PROJECT}
    pico_stdlib
    pico_btstack_ble
    pico_btstack_classic #not needed for BLE only demos
    pico_btstack_cyw43
    pico_cyw43_arch_none
    hardware_spi
)

pico_enable_stdio_usb(${PROJECT} 1)
pico_enable_stdio_uart(${PROJECT} 0)

target_include_directories(${PROJECT} PRIVATE
  ${CMAKE_CURRENT_LIST_DIR}
  ${PICO_SDK_PATH}/../pico-examples/pico_w/bt/config
)
pico_btstack_make_gatt_header(${PROJECT} PRIVATE "${CMAKE_CURRENT_LIST_DIR}/hog_keyboard_demo.gatt")

pico_add_extra_outputs(${PROJECT})
....

hog_keyboard_demo.gatt　　examples ソースディレクトリよりコピー

static uint8_t protocol_mode = 1; // mode = 0 にするとキー入力しない。

（１）sm_set_io_capabilities(IO_CAPABILITY_DISPLAY_ONLY);
　　　sm_set_authentication_requirements(SM_AUTHREQ_SECURE_CONNECTION | SM_AUTHREQ_BONDING);

　　　Windows１１は入力できるが、Androidスマホはペアリングできない。

（２）// ======= LE Secure Connections, Just Works =============
     sm_set_io_capabilities(IO_CAPABILITY_NO_INPUT_NO_OUTPUT);
     sm_set_authentication_requirements(SM_AUTHREQ_SECURE_CONNECTION| SM_AUTHREQ_BONDING);

     Windows11, Android, Raspberry pi ペアリング、キー入力できる。
[ble-keyboard-0.jpg]

回路
[ble-keyboard-c.jpg]

ソースプログラム
[ble-keyboard.tgz]　7.4Kb

2023-11-18 「NFS ポート番号固定設定」
参考1：https://ny55.blogspot.com/2016/12/how-to-configure-static-ports-for-nfs.html
　　　How To Configure Static Ports for NFS on Linux
　　　
・・・・・・
NFS サーバが使用するポートは,111, 2049のUDP,TCPはきまっているが他は不定なのでDockerコンテナでは
NFSサーバが作りにくいので固定する。RPCクォータは使用しない。

==== BOARD ( Memory 4.0MB ) ===
Raspberry Pi 4 Model B Rev 1.2
======= OS ( 64 Bits ) ========
Debian GNU/Linux 12 (bookworm)
===============================

$ uname -a
Linux 49e189bedc2c 6.1.0-rpi4-rpi-v8 #1 SMP PREEMPT Debian 1:6.1.54-1+rpt2 (2023-10-05) aarch64 GNU/Linux

★インストール

$ ssudo apt install -y nfs-kernel-server

$ sudo nano /etc/exports
---
/export 192.168.1.0/24(rw,sync,no_subtree_check,no_root_squash,all_squash)
--- 追加

$ sudo nano /etc/nfs.conf
---
[lockd]
port=32767
udp-port=32767

 ;;

[mountd]
port=32766

# debug="all|auth|call|general|parse"
manage-gids=y

 ;;

[statd]
port=32765
outgoing-port=32764

 ;;

---修正

$ sudo systemctl stop nfs-kernel-server
$ sudo systemctl restart portmap
$ sudo systemctl start nfs-kernel-server

$ sudo mount -t nfs 192.168.1.xxx:/export /home/dkr

■■■■■■■■■
Dockerコンテナ

（１）Dockerfile
....
FROM arm64v8/debian
MAINTAINER “K.Shimoura"
ENV container docker
ENV DEBIAN_FRONTEND noninteractive
#           SIGNAL=37
STOPSIGNAL SIGRTMIN+3
#　root パスワード設定
RUN printf "rootdocker\nrootdocker\n"| passwd > /dev/null 2>&1
RUN apt update
#　ロケール設定
RUN apt install -y locales locales-all
ENV LC_ALL ja_JP.UTF-8
ENV LANG ja_JP.UTF-8
ENV LANGUAGE ja_JP.UTF-8
ENV TZ Asia/Tokyo
RUN echo 'export LC_ALL="ja_JP.UTF-8"' >> /etc/profile
RUN echo 'export LANG="ja_JP.UTF-8"' >> /etc/profile
RUN echo 'export LANGUAGE="ja_JP:jp"' >> /etc/profile
RUN echo 'export TZ="Asia/Tokyo"' >> /etc/profile
RUN ln -snf /usr/share/zoneinfo/$TZ /etc/localtime && echo $TZ > /etc/timezone
# install rc.local
COPY rc.local /etc/rc.local
RUN chmod +x /etc/rc.local
RUN echo "/etc/rc.local" >> /usr/bin/entry.sh
# NFS
RUN apt install -y init
RUN apt install -y nano
RUN apt install -y nfs-kernel-server
RUN sed -i -e "/^\[statd\]/a port=32765\\noutgoing-port=32764\\n" /etc/nfs.conf
RUN sed -i -e "/^\[mountd\]/a port=32766\\n" /etc/nfs.conf
RUN sed -i -e "/^\[lockd\]/a port=32767\\nudp-port=32767\\n" /etc/nfs.conf
RUN echo "/export 192.168.1.0/24(rw,sync,no_subtree_check,no_root_squash,all_squash)" >> /etc/exports
RUN apt install -y procps
CMD ["/usr/sbin/init"]
....

（２）コンテナ作成
$ docker build -t arm64/nfs .

（３）コンテナ実行
$ docker run --privileged -ti --rm -v /home/pi/DOCKER:/export -p 111:111 -p 111:111/udp -p 2049:2049 -p 2049:2049/udp -p 32764-32767:32764-32767 -p 32764-32767:32764-32767/udp --name nfs arm64/nfs

 ディレクトリの"/home/pi/DOCKER"はext4形式のこと。ext4形式以外だとNFSがエクスポートしない。
  
（４）NFSマウント　他のPCで
$ sudo mount -t nfs 192.168.1.xxx:/export /home/dkr

2023-11-05　「Wifi ルーター」
2023-10-10 arm32 bookworm desktop image

raspberry pi 3A+
LAN:　ENC28J60

参照：https://www.raspberrypi.com/documentation/computers/configuration.html#configuring-networking
　　　Host a wireless network on your Raspberry Pi

(1)Wifiルーター
   有線LANは接続済のこと。
   Wifi電源ON（SSID一覧表示している）。

$ nano wp1.sh
---
#!/bin/sh
sudo nmcli con delete raspi-2
sudo nmcli con add type wifi ifname wlan0 mode ap con-name raspi-2 ssid r3ap69811a24mh88z autoconnect yes
sudo nmcli con modify raspi-2 wifi.band bg
#  2.4Ghz = wifi.band bg, 5Ghz = wifi.band a
sudo nmcli con modify raspi-2 wifi-sec.key-mgmt wpa-psk
sudo nmcli con modify raspi-2 wifi-sec.psk "3appwashi.2285"
sudo nmcli con modify raspi-2 ipv4.method shared ipv4.address 192.168.2.230/24
sudo nmcli con modify raspi-2 ipv6.method disabled
sudo nmcli con up raspi-2
---
$ sh wp1.sh

hotspot設定すると　net.ipv4.ip_forward=1が自動で設定される。
$ sudo sysctl -a | grep net.ipv4.ip_forward

nftablesは、
$ sudo nft list ruleset
---
table ip nm-shared-wlan0 {
	chain nat_postrouting {
		type nat hook postrouting priority srcnat; policy accept;
		ip saddr 192.168.2.0/24 ip daddr != 192.168.2.0/24 masquerade
	}

	chain filter_forward {
		type filter hook forward priority filter; policy accept;
		ip daddr 192.168.2.0/24 oifname "wlan0" ct state { established, related } accept
		ip saddr 192.168.2.0/24 iifname "wlan0" accept
		iifname "wlan0" oifname "wlan0" accept
		iifname "wlan0" reject
		oifname "wlan0" reject
	}
}
---
に設定される。
これでSSIDに接続するとルーターの働きをする。

(2)Wifiルーター　ブリッジ接続

$ nmcli con show
  接続定義を確認。有線LANの場合は"有線接続 1"がある。
　有線接続定義を修正して使う。
  WIFI接続はそのままにしておく。Hotspot定義がある場合は修正して使う。

　前提条件は有線LAN接続あり、WIFI電源ON（SSID一覧が出る）状態。
$ sudo nmcli connection add type bridge con-name 'Bridge' ifname bridge0
$ sudo nmcli connection modify '有線接続 1' type ethernet slave-type bridge ifname eth0 master bridge0

　Hotspot定義がない時
$ sudo nmcli connection add con-name ＜w接続名＞ ifname wlan0 type wifi slave-type bridge master bridge0 wifi.mode ap wifi.ssid ＜SSID＞ wifi-sec.key-mgmt wpa-psk wifi-sec.psk ＜PASSWD＞
  (wifi.bandがない時2.4GHz , wifi.band a で５GHｚ)
 
　Hotspot定義がある時
$ sudo nmcli connection modify ＜w接続名＞ master bridge0

$ sudo nmcli connection up Bridge
$ sudo nmcli connection up ＜w接続名＞
　　
$ sudo reboot
  設定後リブートしたほうがいい。

2023-11-30　「Raspbery pi PICO-W micorpythonをソースから作る」
Raspberry pi PICO Wのbluetoothが使えるようになったのでソースから作ってみた。

参照：
  getting-started-with-pico.pdf (2.2 2023-6-14)
   "Chapter 1. Quick Pico Setup"

　connecting-to-the-internet-with-pico-w.pdf (2.2 2023-6-23)
   "Appendix A: Building MicroPython from source"


環境は
==== BOARD ( Memory 8.0MB ) ===
Raspberry Pi 4 Model B Rev 1.5
======= OS ( 64 Bits ) ========
Debian GNU/Linux 12 (bookworm)
===============================

手順は

$ mkdir ~/pico
$ cd ~/pico
$ wget https://raw.githubusercontent.com/raspberrypi/pico-setup/master/pico_setup.sh
$ chmod +x pico_setup.sh
$ ./pico_setup.sh
$ sudo reboot

  例題コンパイル

$ cd ~/pico/pico/pico-examples/build
$ export PICO_SDK_PATH=../../pico-sdk
$ cmake -DPICO_BOARD=pico_w -DWIFI_SSID="Your Network" -DWIFI_PASSWORD="Your Password" ..
$ make

　MICROPYTHONコンパイル

$ cd ~/pico/pico
$ git clone https://github.com/micropython/micropython.git --branch master
$ git clone https://github.com/micropython/micropython-lib.git --branch master
$ cd micropython
$ make -C ports/rp2 BOARD=RPI_PICO_W submodules
$ make -C mpy-cross
$ cd ports/rp2
$ make BOARD=RPI_PICO_W
$ ls build-RPI_PICO_W
$ picotool info -a build-RPI_PICO_W/firmware.uf2
...
File build-RPI_PICO_W/firmware.uf2:

Program Information
 name:            MicroPython
 version:         v1.22.0-preview.173.g094b52b8a
 features:        thread support
                  USB REPL
 frozen modules:  aioble/security, aioble/l2cap, aioble/client, aioble/central,
                  aioble/server, aioble/peripheral, aioble/device, aioble/core,
                  aioble, urequests, webrepl_setup, webrepl, ntptime, mip,
                  requests, neopixel, dht, ds18x20, onewire, uasyncio,
                  asyncio/stream, asyncio/lock, asyncio/funcs, asyncio/event,
                  asyncio/core, asyncio, _boot_fat, rp2, _boot
 binary start:    0x10000000
 binary end:      0x100c3fd8
 embedded drive:  0x1012c000-0x10200000 (848K): MicroPython

Fixed Pin Information
 none

Build Information
 sdk version:       1.5.1
 pico_board:        pico_w
 boot2_name:        boot2_w25q080
 build date:        Nov 28 2023
 build attributes:  MinSizeRel
..
--------
上記の手順で、

adc_console.uf2
adc_dma_capture.uf2
blink.uf2
bme280_spi.uf2
bmp280_i2c.uf2
build_variant1.uf2
build_variant2.uf2
clocks_detached_clk_peri.uf2
dev_hid_composite.uf2
dev_lowlevel.uf2
dht.uf2
dma_channel_irq.uf2
dma_control_blocks.uf2
firmware.uf2  (micropython)
flash_cache_perfctr.uf2
flash_nuke.uf2
flash_program.uf2
flash_ssi_dma.uf2
flash_xip_stream.uf2
hello_48MHz.uf2
hello_7segment.uf2
hello_adc.uf2
hello_divider.uf2
hello_dma.uf2
hello_double_tap.uf2
hello_gpio_irq.uf2
hello_gpout.uf2
hello_interp.uf2
hello_multicore.uf2
hello_pio.uf2
hello_pwm.uf2
hello_resus.uf2
hello_rtc.uf2
hello_serial.uf2
hello_timer.uf2
hello_uart.uf2
hello_usb.uf2
hello_watchdog.uf2
host_cdc_msc_hid.uf2
ht16k33_i2c.uf2
i2c_bus_scan.uf2
joystick_display.uf2
lcd_1602_i2c.uf2
lcd_uart.uf2
lis3dh_i2c.uf2
max7219_32x8_spi.uf2
max7219_8x7seg_spi.uf2
mcp9808_i2c.uf2
microphone_adc.uf2
mma8451_i2c.uf2
mpl3115a2_i2c.uf2
mpu6050_i2c.uf2
mpu9250_spi.uf2
multicore_fifo_irqs.uf2
multicore_runner.uf2
multicore_runner_queue.uf2
narrow_io_write.uf2
onboard_temperature.uf2
pa1010d_i2c.uf2
pcf8523_i2c.uf2
periodic_sampler.uf2
picoboard_blinky.uf2
picoboard_button.uf2
picoprobe.uf2
picow_access_point_background.uf2
picow_access_point_poll.uf2
picow_ble_temp_reader.uf2
picow_ble_temp_sensor.uf2
picow_ble_temp_sensor_with_wifi.uf2
picow_blink.uf2
picow_bt_example_a2dp_sink_demo_background.uf2
picow_bt_example_a2dp_source_demo_background.uf2
picow_bt_example_gap_inquiry_background.uf2
picow_bt_example_gap_le_advertisements_background.uf2
picow_bt_example_gatt_counter_background.uf2
picow_bt_example_gatt_counter_with_wifi_background.uf2
picow_bt_example_gatt_heart_rate_client_background.uf2
picow_bt_example_gatt_streamer_server_background.uf2
picow_bt_example_gatt_streamer_server_with_wifi_background.uf2
picow_bt_example_hid_host_demo_background.uf2
picow_bt_example_hid_keyboard_demo_background.uf2
picow_bt_example_hid_mouse_demo_background.uf2
picow_bt_example_hog_host_demo_background.uf2
picow_bt_example_hog_keyboard_demo_background.uf2
picow_bt_example_hog_mouse_demo_background.uf2
picow_bt_example_pan_lwip_http_server_background.uf2
picow_bt_example_pbap_client_demo_background.uf2
picow_bt_example_sm_pairing_central_background.uf2
picow_bt_example_sm_pairing_peripheral_background.uf2
picow_bt_example_spp_counter_background.uf2
picow_bt_example_spp_streamer_background.uf2
picow_bt_example_spp_streamer_client_background.uf2
picow_iperf_server_background.uf2
picow_iperf_server_poll.uf2
picow_ntp_client_background.uf2
picow_ntp_client_poll.uf2
picow_tcpip_server_background.uf2
picow_tcpip_server_poll.uf2
picow_tls_client_background.uf2
picow_tls_client_poll.uf2
picow_tls_verify_background.uf2
picow_udp_beacon_background.uf2
picow_udp_beacon_poll.uf2
picow_wifi_scan_background.uf2
picow_wifi_scan_poll.uf2
pio_addition.uf2
pio_apa102.uf2
pio_blink.uf2
pio_clocked_input.uf2
pio_differential_manchester.uf2
pio_hub75.uf2
pio_i2c_bus_scan.uf2
pio_ir_loopback.uf2
pio_logic_analyser.uf2
pio_manchester_encoding.uf2
pio_onewire.uf2
pio_pwm.uf2
pio_quadrature_encoder.uf2
pio_spi_flash.uf2
pio_spi_loopback.uf2
pio_squarewave.uf2
pio_st7789_lcd.uf2
pio_uart_rx.uf2
pio_uart_rx_intr.uf2
pio_uart_tx.uf2
pio_ws2812.uf2
pio_ws2812_parallel.uf2
pwm_led_fade.uf2
pwm_measure_duty_cycle.uf2
read_vsys.uf2
rtc_alarm.uf2
rtc_alarm_repeat.uf2
slave_mem_i2c.uf2
sniff_crc.uf2
spi_dma.uf2
spi_flash.uf2
spi_master.uf2
spi_slave.uf2
ssd1306_i2c.uf2
timer_lowlevel.uf2
tinyusb_dev_audio_4_channel_mic.uf2
tinyusb_dev_audio_test.uf2
tinyusb_dev_board_test.uf2
tinyusb_dev_cdc_dual_ports.uf2
tinyusb_dev_cdc_msc.uf2
tinyusb_dev_dfu.uf2
tinyusb_dev_dfu_runtime.uf2
tinyusb_dev_dynamic_configuration.uf2
tinyusb_dev_hid_composite.uf2
tinyusb_dev_hid_generic_inout.uf2
tinyusb_dev_hid_multiple_interface.uf2
tinyusb_dev_midi_test.uf2
tinyusb_dev_msc_dual_lun.uf2
tinyusb_dev_uac2_headset.uf2
tinyusb_dev_usbtmc.uf2
tinyusb_dev_video_capture.uf2
tinyusb_dev_webusb_serial.uf2
tinyusb_host_bare_api.uf2
tinyusb_host_cdc_msc_hid.uf2
tinyusb_host_hid_controller.uf2
tinyusb_host_msc_file_explorer.uf2
uart_advanced.uf2
unique_board_id.uf2
　ができる。

　ブルーツースKEYBOARD（picow_bt_example_hid_keyboard_demo_background.uf2）
              +------------------+
  USB port ===| Debug Probe  (U)-+---------------オレンジ----> PICO-W GPIO-1(RX UART) pin2
              |              (D) | D  未接続     イエロー----> PICO-W GPIO-0(TX UART) pin1
              +------------------+               ブラック----> PICO-W GND  pin3

　USB port ==================================================> PICO-W USB port 
　
　やり直したら、Raspberry piは接続しない、AndroidスマホとWindows11は接続した。
　使わないBluetoothはオフにしてから。
　Rasberry piは　picow_bt_example_hog_host_demo_background.uf2で接続する。

micropythonソースは、

pico
└── pico
    ├── micropython
    ├── micropython-lib
    ├── openocd
    ├── pico-examples
    ├── pico-extras
    ├── pico-playground
    ├── pico-sdk
    ├── picoprobe
    └── picotool
になるように、git cloneする。
firmware.uf2をPICOに書き込む。

　USB port ==================================================> PICO-W USB port 

PICO-WのUSBケーブルをボードのSWを押しながら差し込む。
表示されたマスストレージデバイスに
　~/pico/pico/micropython/ports/rp2/build-RPI_PICO_W/firmware.uf2 ファイルをドラッグコピーする。
ファイル名が消えたら書き込まれたことになる。

Thonnyの右下からPICO　/dev/ttyACM0を選択してシェルから、

>>> help('modules')
__main__          array             framebuf          random
_asyncio          asyncio/__init__  gc                re
_boot             asyncio/core      hashlib           requests/__init__
_boot_fat         asyncio/event     heapq             rp2
_onewire          asyncio/funcs     io                select
_rp2              asyncio/lock      json              socket
_thread           asyncio/stream    lwip              ssl
_webrepl          binascii          machine           struct
aioble/__init__   bluetooth         math              sys
aioble/central    builtins          micropython       time
aioble/client     cmath             mip/__init__      uasyncio
aioble/core       collections       neopixel          uctypes
aioble/device     cryptolib         network           urequests
aioble/l2cap      deflate           ntptime           webrepl
aioble/peripheral dht               onewire           webrepl_setup
aioble/security   ds18x20           os                websocket
aioble/server     errno             platform
Plus any modules on the filesystem
>>> 

2023-10-17 「bookworm - Dockerインストール」
arm64 2023-10-10 bookworm Desktop イメージを使ってraspberry pi 4Bにインストール。

参考１：
https://docs.docker.com/engine/install/debian/
Install Docker Engine on Debian
  OS requirements
  To install Docker Engine, you need the 64-bit version of one of these Debian versions:
    Debian Bookworm 12 (stable)

参考２：
https://qiita.com/ykshr/items/c78eb72e3ee75664a5fe
Docker on Raspberry PiのインストールとLチカ

https://qiita.com/hisurga/items/7aca7484ac5bfd084294
Raspberry PiにDockerを入れる

http://docs.docker.jp/pdf-download.html#id1
Docker ドキュメント日本語版 PDF ダウンロード

SoftwareDesign 2015年１２月号　第１特集　Docker自由自在　技術評論社
Dockerエキスパート養成読本　　技術評論社

注意）
https://rimuru.lunanet.gr.jp/notes/post/how-to-root-from-inside-container/
Dockerコンテナ内からホストマシンのルートを取る具体的な方法（あるいは/var/run/docker.sockを晒すことへの注意喚起）

□□□□　インストール方法　□□□□□□

$ sudo apt-get install ca-certificates curl gnupg
$ sudo install -m 0755 -d /etc/apt/keyrings
$ curl -fsSL https://download.docker.com/linux/debian/gpg | sudo gpg --dearmor -o /etc/apt/keyrings/docker.gpg
$ sudo chmod a+r /etc/apt/keyrings/docker.gpg
$ echo   "deb [arch="$(dpkg --print-architecture)" signed-by=/etc/apt/keyrings/docker.gpg] https://download.docker.com/linux/debian \
   "$(. /etc/os-release && echo "$VERSION_CODENAME")" stable" | \
  sudo tee /etc/apt/sources.list.d/docker.list > /dev/null
$ sudo apt-get update
$ sudo apt-get install docker-ce docker-ce-cli containerd.io docker-buildx-plugin docker-compose-plugin
$ sudo usermod -aG docker `whoami`
$ newgrp docker
$ sudo docker run hello-world
$ docker ps
  実行中のDockerコンテナはない。
　ユーザがdockerグループにはいっていないとエラーがでる。
$ docker ps -a
  hello-worldのDockerコンテナIDが表示。

$ docker run tiny69/raspberrysay:justsaying cowsay hello
 _______
< hello >
 -------
    \
     \
      \     
       .~~.   .~~.
      '. \ ' ' / .'
       .~ .~~~..~.
      : .~.'~'.~. :
     ~ (   ) (   ) ~
    ( : '~'.~.'~' : )
     ~ .~ (   ) ~. ~
      (  : '~' :  )  Raspberry Pi
       '~ .~~~. ~'
           '~'

$ docker run -it arm64v8/debian /bin/bash
exit
これだとコンテナがいっぱいできる。
docker ps
動作中なし
docker ps -a
残っている
docker rm xxxx表示しているコンテナID
docker ps -a
なし。

$ docker run --rm -it arm64v8/debian /bin/bash
--rmをつけて動かす。
どっちにしてもexitすると結果が残せない。ctrl+p, ctrl+q でdocker runを抜け、
$ docker ps
$ docker commit コンテナID　イメージID
コンテナID、イメージIDはdocker ps で表示されたもの。
今の環境をイメージに残す時に使う。docker run に戻るには、
$ docker attach コンテナID

コンテナのもとになるdockerイメージ（docker hubにあるもの）を検索するには、
$ docker search キーワード
　キーワードはrpi, raspbian, bullseye等で検索して適当なイメージをdocker runで指定する。

自分用の環境を自動で作る。
ロケール日本、タイムゾーンJST, sshサーバ、ユーザpi の場合、以下の内容でテキストファイル名 "Dockerfile"を作成する。
----Dockerfile-----------
FROM arm64v8/debian
MAINTAINER "K.Shimoura"
ENV container docker
ENV DEBIAN_FRONTEND noninteractive
#           SIGNAL=37
STOPSIGNAL SIGRTMIN+3
#　root パスワード設定
RUN printf "rootdocker\nrootdocker\n"| passwd > /dev/null >&1
RUN apt update
#　ロケール設定
RUN apt install -y locales locales-all
ENV LC_ALL ja_JP.UTF-8
ENV LANG ja_JP.UTF-8
ENV LANGUAGE ja_JP.UTF-8
ENV TZ Asia/Tokyo
RUN echo 'export LC_ALL="ja_JP.UTF-8"' >> /etc/profile
RUN echo 'export LANG="ja_JP.UTF-8"' >> /etc/profile
RUN echo 'export LANGUAGE="ja_JP:jp"' >> /etc/profile
RUN echo 'export TZ="Asia/Tokyo"' >> /etc/profile
RUN ln -snf /usr/share/zoneinfo/$TZ /etc/localtime && echo $TZ > /etc/timezone
# PATH
RUN sed -i -e "s/^.*usr\/games\"$/    PATH=\"\/usr\/local\/sbin:\/usr\/local\/bin:\/usr\/sbin:\/usr\/bin:\/sbin:\/bin:\/usr\/local\/games:\/usr\/games\"/" /etc/profile
# GPIO 設定
RUN groupadd -g 998 i2c
RUN groupadd -g 999 spi
RUN groupadd -g 997 gpio
# install rc.local
COPY rc.local /etc/rc.local
RUN chmod +x /etc/rc.local
RUN echo "/etc/rc.local" >> /usr/bin/entry.sh

#　ユーザ作成
RUN echo "pi:pidocker:1000:1000:,,,:/home/pi:/bin/bash"|newusers
#　ユーザ 設定
RUN cp -r /etc/skel/.[a-z]* /home/pi
RUN chown -R pi:pi /home/pi
RUN adduser pi adm
RUN adduser pi gpio

# 動作環境
RUN apt install -y init
RUN apt install -y sudo
RUN printf 'pi ALL=(ALL) NOPASSWD: ALL\n' > /etc/sudoers.d/010_pi-nopasswd
RUN apt install -y openssh-server

# 開発環境のインストール
RUN apt install -y less nano python3
RUN apt install -y cdebconf net-tools iproute2 iptables tree
RUN apt install -y bind9-host telnet mailutils tcpdump
RUN apt install -y python3-dev python3-pip
RUN apt install -y original-awk install-info
RUN apt install -y patch dpkg-dev build-essential autoconf 
#RUN apt install -y minisat libvala-0.48-0 unzip
RUN apt install -y minisat unzip
RUN apt install -y ncurses-dev valac valabind libncursesw5-dev
RUN apt install -y sip-dev libzzip-0-13 libzzip-dev zziplib-bin
RUN apt install -y python3-tk python3-setuptools python3-wheel shared-mime-info python3-xdg file python3-keyring
RUN apt install -y nfs-common
RUN apt install -y libi2c-dev git
RUN apt install -y libpython3-dev wget curl

CMD ["/sbin/init"]
----作成

$ cp /etc/rc.local .

$ docker docker build -t bookworm-test .
  docker build -t タグ名 Dockerfileパス
タグ名はdocker imagesで表示されるrepository名、Dockefileパスはカレントディレクトリであれば、ドット。

$ docker run --privileged --cap-add SYS_ADMIN -ti --rm -p 222:22 タグ名
　login状態になるので、pi -> pidockerでログインできる。
　rootはrootdockerでログインできる。

SSHを使う場合は別 IPアドレスから、
$ ssh -p 222 pi@192.168.x.x
  パスワードpidockerでログインできる。

LED GPIO-26 PINを点滅

 GPIO 26 --\/\ 510Ω /\/\--(|>led)-----> GND

参照：Docker on Raspberry PiのインストールとLチカ
　　https://qiita.com/ykshr/items/c78eb72e3ee75664a5fe

上記のDockefileで作成したコンテナをRUNし、pi でログインする。
----
$ docker run --privileged --cap-add SYS_ADMIN -ti --rm -p 222:22 タグ名
  user : pi -> password : pidocker

Dockerコンテナ内で、

$ sudo apt install python3 python3-rpi.gpio
$ nano led.py
--- led.py ------------
import RPi.GPIO as GPIO
import time
GPIO.setwarnings(False)
GPIO.setmode(GPIO.BCM)
led_pin = 26
GPIO.setup(led_pin, GPIO.OUT)

while(True):
    GPIO.output(led_pin, GPIO.HIGH)
    time.sleep(1)
    GPIO.output(led_pin, GPIO.LOW)
    time.sleep(1)
---
$ sudo python3 led.py
点滅する。
$ sudo poweroff
Dockerコンテナ終了。

==== Docker プライベートレジストリ ====
参考：
https://docs.docker.com/registry/
 Docker registry

budry/registry-arm：   https://hub.docker.com/r/budry/registry-arm/

https://github.com/docker/whalesay

Docker Registry HTTP API V2:    https://docs.docker.com/registry/spec/api/

Python script Docker Registry 一覧：　https://github.com/AlekseyChudov/docker-registry
・・・

プライベートレジストリはDOCKERコンテナで実行するプログラムで管理されるものを使う。
$ mkdir -p ~/Docker
$ docker run -d -p 5000:5000  -v ${HOME}/Docker:/var/lib/registry -e REGISTRY_STORAGE_DELETE_ENABLED=true  --restart always --name registry registry:2
　レジストリイメージ実行
　-vはレジストリにアップロードされたイメージを消えないようにローカルマシンの世界へ持ってくるようにする。
　-v ${HOME}/Docker:/var/lib/registryの ~/DockerがDcokerホスト側で見えるアップロードされたコンテナが格納されるディレクトリ。

  Docker Registry コンテナ内のアップロード先ディレクトリの確認は、
　$ docker exec -ti コンテナID /bin/sh
  root@xxxxx:/# cat /etc/docker/registry/config.yml
  でストレージ・ファイルシステム・ルートディレクトリを見る。
　root@xxxxx:/# exit

テストは、
$ docker run tiny69/raspberrysay:justsaying cowsay hello
前記で作ったHello コンテナで行う。

$ docker tag tiny69/raspberrysay:justsaying localhost:5000/tiny69/raspberrysay:justsaying
　プライベートレジストリの名前をつける。

$ docker push localhost:5000/tiny69/raspberrysay:justsaying
  pushするときはタグをつけるようにする。プライベートレジストリへ送る。

手元にlocalhost:5000/tiny69/raspberrysay:justsayingがないことの確認。
$ docker ps -a
  localhost:5000/tiny69/raspberrysay, tiny69/raspberrysay コンテナないこと
$ docker images
$ docker rmi localhost:5000/tiny69/raspberrysay:justsaying
  localhost:5000/tiny69/raspberrysay, tiny69/raspberrysay イメージを消す

プライベートレジストリからのダウンロード。

$ docker run --rm localhost:5000/tiny69/raspberrysay:justsaying cowsay "Yahho"

 ________
< Yahho >;
 --------
    \
     \
      \     
       .~~.   .~~.
      '. \ ' ' / .'
       .~ .~~~..~.
      : .~.'~'.~. :
     ~ (   ) (   ) ~
    ( : '~'.~.'~' : )
     ~ .~ (   ) ~. ~
      (  : '~' :  )  Raspberry Pi
       '~ .~~~. ~'
           '~'


●プライベートレポジトリのレポジトリ登録一覧表示
$ curl http://localhost:5000/v2/_catalog
--
{"repositories":["tiny69/raspberrysay"]}
---
$ curl http://localhost:5000/v2/tiny69/raspberrysay/tags/list
--
{"name":"tiny69/raspberrysay","tags":["justsaying"]}
--

で表示できる。v2/よりあとはDocker Resistry API V2 コマンド仕様を参照。

●プライベートレポジトリの登録一覧表示のPythonスクリプトのインストール

$ git clone https://github.com/AlekseyChudov/docker-registry.git
$ cd docker-registry

このままでは動作しないので、以下の修正をする。
$ nano docker-registry
---
#!/usr/bin/env python3     >>== python2をpython3にする
import urlparse　＜＝この行を以下のように修正
from urllib.parse import urlparse　>>== form urllib.parse 追加

class DockerRegistry(object):の最初
def __init__(self, args):
    self._args = args
    self._registry = urlparse(self._args.url).netloc >>==urlparseのみに修正
    self._session = self._create_session()
---

 使い方
    ./docker-registry catalog [name_regex] [tag_regex]
    ./docker-registry images [name_regex] [tag_regex]
    ./docker-registry manifest name tag
    ./docker-registry blob name layer_digest output_file
    ./docker-registry delete name image_digest

　・sudo cp docker-registry /usr/local/sbin
   でコピーして使う。

$ ./docker-registry catalog
+----------------+---------------------+------------+
| REGISTRY       | NAME                | TAG        |
+----------------+---------------------+------------+
| localhost:5000 | tiny69/raspberrysay | justsaying |
+----------------+---------------------+------------+
|                                          Total: 1 |
+----------------+---------------------+------------+

$ ./docker-registry -l http://localhost:5000 catalog
+----------------+---------------------+------------+
| REGISTRY       | NAME                | TAG        |
+----------------+---------------------+------------+
| localhost:5000 | tiny69/raspberrysay | justsaying |
+----------------+---------------------+------------+
|                                          Total: 1 |
+----------------+---------------------+------------+

$ ./docker-registry images tiny69/raspberrysay
+----------------+---------------------+------------+------------------------------------------+----------+
| REGISTRY       | NAME                | TAG        | DIGEST                                   | SIZE     |
+----------------+---------------------+------------+------------------------------------------+----------+
| localhost:5000 | tiny69/raspberrysay | justsaying | sha256:5020d0a349654c6814720fe9f64506525 |          |
|                |                     |            |          3ca2b88ad7805355f794ae947b08966 | 63726689 |
+----------------+---------------------+------------+------------------------------------------+----------+
|                                                                                                Total: 1 |
+----------------+---------------------+------------+------------------------------------------+----------+

$ ./docker-registry delete tiny69/raspberrysay sha256:5020d0a349654c6814720fe9f645065253ca2b88ad7805355f794ae947b08966

$ ./docker-registry images tiny69/raspberrysay
+----------------+---------------------+--------+--------+--------+
| REGISTRY       | NAME                | TAG    | DIGEST | SIZE   |
+----------------+---------------------+--------+--------+--------+
| localhost:5000 | tiny69/raspberrysay | <none> | <none> | <none> |
+----------------+---------------------+--------+--------+--------+
|                                                        Total: 1 |
+----------------+---------------------+--------+--------+--------+

$ ./docker-registry catalog
+----------------+---------------------+--------+
| REGISTRY       | NAME                | TAG    |
+----------------+---------------------+--------+
| localhost:5000 | tiny69/raspberrysay | <none> |
+----------------+---------------------+--------+
|                                      Total: 1 |
+----------------+---------------------+--------+

■docker ファイアーウォール

(1) docker ホストのファイアーウォール設定をする。

(2) dockerサーバーが動作後、docker ホストのファイアーウォールを上書きされたあとに
　　フィルタDOCKER-USER にコンテナ動作するときの制限を差し込む。
　　dockerサーバーは、defaultではファイアーウォール上書き設定になっている。

◎付録
参照：https://itnext.io/stay-safe-with-docker-and-firewall-9190d2c0fde8
　　　Stay safe with Docker and firewall

　DOCERコンテナ起動時のポート番号引数にIPアドレスを付加する。
　docker run -ti --rm -p 127.0.0.1:222:22 タグ名
  コンテナ外側　localhost:222 <-> 22 コンテナ内側
　localhost以外は接続しない。
　-p 192.168.1.xxx:222:22 とするとlocalhost, 127.0.0.1では接続しない。
　コンテナが動作しているHOSTでは、ssh -p 222 xx@192.168.1.xxx で接続する。
　コンテナが動作している以外HOSTでは、ssh -p 222 xx@192.168.1.xxx で接続する。

■docker アップグレード

removeではコンテナイメージはなくならいのですが、イメージをセーブすることをおすすめです。
参照：https://www.thegeekdiary.com/how-to-backup-and-restore-docker-containers/
　　　How to backup and restore Docker containers
セーブ
　　docker save -o セーブファイル名.tar コンテナイメージ名
リストア
　　docker load -i セーブファイル名.tar

または、リモートリポジトリにセーブする。

(1) パケージを削除
   sudo apt remove --purge docker.io 
   sudo apt remove --purge docker-compose
   sudo apt remove --purge docker-doc
   sudo apt remove --purge podman-docker
   sudo apt autoremove

(2) もう一度Dockerをインストールする。

2023-09-21 「ENC28J60 LANアダプタ　Micropython WEB Serverプログラム」
参考：日経LINUX　2017年４月号　Zero用のHAT風ボード　イーサネットなどを実装　p-60 ~ 65

      http://www.picfun.com/ENC28J60frame.html
      デモプログラムを自作基板で動かす

      https://www.olimex.com/Products/Modules/Ethernet/MOD-ENC28J60/
      "ATMega32 example - ATMega32 and ENC28J60-H - written by Erik Rasmussen" In Right Window 
       https://www.olimex.com/Products/Modules/Ethernet/ENC28J60-H/resources/Webserver_ATMega32_ENC28J60-H.zip

ENC28J60 LANアダプタを使ってC言語で作成された
WEBサーバー"ATMega32 example - ATMega32 and ENC28J60-H - written by Erik Rasmussen"を
Raspberry pi PICO のMicropythonに書き換えてみた。

回路：
　　"ENC28J60 LANアダプタ　PYTHONプログラム"で使った基板を使う。
　　PHY機能動作中にエラーがあると、SPIコマンドRESETではPHY機能をRESETできないので
　　GP-22と基板RESETを接続し、プログラムでハードリセット実行可能。

配線：
　　LANボード　　　　　RaspberryPI PICO
　　3.3V  ------------- 3.3V OUT
    GND   ------------- GND
    INT   ------------- GP 21
    CS    ------------- GP 17
    SI    ------------- GP 19
    SO    ------------- GP 16
    SCK   ------------- GP 18
    RESET ------------- GP 22

実行：
$ thonny enc28j60.py
----
..... Init() Exit .....
. HwRevID: 0x04
. Cntrl: ECON1 ECON2 ESTAT  EIR  EIE
.        0x04  0x80  0x01  0x00  0xC0
. MAC  : MACON1 MACON3 MACON4
.        0x0D   0x32   0x00
. Rx   : ERXST  ERXND  ERXWRPT ERXRDPT ERXFCON EPKTCNT MAMXFL
.        0x0000 0x19FE 0x0000  0x0000  0xB0    0x00    0x05DC
. Tx   : ETXST  ETXND  MACLCON1 MACLCON2 MAPHSUP
.        0x19FF 0x1FFF 0x0F     0x37     0x10
..........
My MAC Adrress: b'3e:3f:3f:02:11:22'
------ PHY Register ------
- PHCON1:0000
- PHCON2:0100
- PHSTAT1:1804
- PHSTAT2:0400
- PHID1:0083
- PHID2:1400
------------
Link UP
Link UP
Link UP
Recv: 60 ,Data= b'3e 3f 3f 02 11 22 xx xx xx xx ed d5 08 06 00 01 08 00 06 04 00 02 xx xx xx xx ed d5 c0 a8 01 01 3e 3f 3f 02 11 22 c0 a8 01 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
1  Sec ..
Recv: 60 ,Data= b'3e 3f 3f 02 11 22 xx xx xx xx ed d5 08 06 00 01 08 00 06 04 00 01 xx xx xx xx ed d5 c0 a8 01 01 3e 3f 3f 02 11 22 c0 a8 01 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
2  Sec ..
Recv: 60 ,Data= b'3e 3f 3f 02 11 22 xx xx xx xx ed d5 08 06 00 01 08 00 06 04 00 01 xx xx xx xx ed d5 c0 a8 01 01 3e 3f 3f 02 11 22 c0 a8 01 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
3  Sec ..
4  Sec ..
Recv: 60 ,Data= b'3e 3f 3f 02 11 22 xx xx xx xx ed d5 08 06 00 01 08 00 06 04 00 01 xx xx xx xx ed d5 c0 a8 01 01 3e 3f 3f 02 11 22 c0 a8 01 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
Recv: 60 ,Data= b'ff ff ff ff ff ff xx xx xx xx ed d5 08 06 00 01 08 00 06 04 00 01 xx xx xx xx ed d5 c0 a8 01 01 00 00 00 00 00 00 c0 a8 01 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
5  Sec ..
6  Sec ..
Recv: 60 ,Data= b'ff ff ff ff ff ff xx xx xx xx ed d5 08 06 00 01 08 00 06 04 00 01 xx xx xx xx ed d5 c0 a8 01 01 00 00 00 00 00 00 c0 a8 01 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
Recv: 60 ,Data= b'ff ff ff ff ff ff xx xx xx xx ed d5 08 06 00 01 08 00 06 04 00 01 xx xx xx xx ed d5 c0 a8 01 01 00 00 00 00 00 00 c0 a8 01 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
7  Sec ..
8  Sec ..
9  Sec ..
10  Sec ..
11  Sec ..
12  Sec ..
13  Sec ..
14  Sec ..
15  Sec ..
---

WEBサーバーは実行前に、enc28j60.py, net.pyをRaspberry pi PICOメモリに書き込んでおく。

$ thonny websrv.py
---
..... Init() Exit .....
. HwRevID: 0x04
. Cntrl: ECON1 ECON2 ESTAT  EIR  EIE
.        0x04  0x80  0x01  0x00  0xC0
. MAC  : MACON1 MACON3 MACON4
.        0x0D   0x32   0x00
. Rx   : ERXST  ERXND  ERXWRPT ERXRDPT ERXFCON EPKTCNT MAMXFL
.        0x0000 0x19FE 0x0000  0x0000  0xB0    0x00    0x05DC
. Tx   : ETXST  ETXND  MACLCON1 MACLCON2 MAPHSUP
.        0x19FF 0x1FFF 0x0F     0x37     0x10
..........
---
[web-server-enc28j60.png]
WEBブラウザで　http://192.168.1.39:8080 で見る。
"Set Blue","Set Green", "Set Red", "Clear Color" をクリックすると丸の色が変わる。

プログラム：
[micro-py-enc28j60-web-srv.zip]
2023-09-07　「ENC28J60 LANアダプタ　PYTHONプログラム」
参考：日経LINUX　2017年４月号　Zero用のHAT風ボード　イーサネットなどを実装　p-60 ~ 65

      http://www.picfun.com/ENC28J60frame.html
      デモプログラムを自作基板で動かす

　　　From https://github.com/przemobe/micropy-ENC28J60.git

ENC28J60でLAN基板を作って、PYTHONで制御してみた。
まず、SPIインターフェースを有効にする。dtoverlayは設定しない。
もとのプログラムは　https://github.com/przemobe/micropy-ENC28J60.git　MICROPYTONのプログラムをPYTHON3に書換えました。

回路：
[enc28j60-lan-circuit.jpg]

　　　　PHY機能動作中にエラーがあると、SPIコマンドRESETではPHY機能をRESETできないので
　　　　GPIO２４と基板RESETを接続し、PYTHONプログラムでハードリセット実行を可能にしました。

配線：
　　LANボード　　　　　RaspberryPI
　　3.3V  ------------- 3.3V
    GND   ------------- GND
    INT   ------------- GPIO 25
    SCS   ------------- GPIO 8 / CE0
    MOSI  ------------- GPIO 10
    MISO  ------------- GPIO 9
    SCLK  ------------- GPIO 11
    RESET ------------- GPIO 24

実行：
$ python enc28j60.py
---
My MAC Adrress: b'3e:3f:3f:02:11:22'
..... INIT() exit .....
. HwRevID: 0x04
. Cntrl: ECON1 ECON2 ESTAT  EIR  EIE
.        0x04  0x80  0x01  0x00  0xD0
. MAC  : MACON1 MACON3 MACON4
.        0x0D   0xB3   0x40
. Rx   : ERXST  ERXND  ERXWRPT ERXRDPT ERXFCON EPKTCNT MAMXFL
.        0x0000 0x17FF 0x0000  0x17FF  0xA1    0x00    0x05EE
. Tx   : ETXST  ETXND  MACLCON1 MACLCON2 MAPHSUP
.        0x1800 0x1800 0x0F     0x37     0x10
..........
Link UP
Link UP
Link UP
------ PHY Register ------
- PHCON1:0100
- PHCON2:0100
- PHSTAT1:1804
- PHSTAT2:0600
- PHID1:0083
- PHID2:1400
------------
1  Sec ..
Recv: 60 ,Data= b'3e 3f 3f 02 11 22 XX XX XX X6 ed d5 08 06 00 01 08 00 06 04 00 02 XX XX XX X6 ed d5 c0 a8 01 01 3e 3f 3f 02 11 22 c0 a8 01 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
Recv: 60 ,Data= b'3e 3f 3f 02 11 22 XX XX XX X6 ed d5 08 06 00 01 08 00 06 04 00 01 XX XX XX X6 ed d5 c0 a8 01 01 3e 3f 3f 02 11 22 c0 a8 01 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
2  Sec ..
Recv: 60 ,Data= b'3e 3f 3f 02 11 22 XX XX XX X6 ed d5 08 06 00 01 08 00 06 04 00 01 XX XX XX X6 ed d5 c0 a8 01 01 3e 3f 3f 02 11 22 c0 a8 01 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
3  Sec ..
Recv: 60 ,Data= b'3e 3f 3f 02 11 22 XX XX XX X6 ed d5 08 06 00 01 08 00 06 04 00 01 XX XX XX X6 ed d5 c0 a8 01 01 3e 3f 3f 02 11 22 c0 a8 01 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
4  Sec ..
Recv: 60 ,Data= b'ff ff ff ff ff ff XX XX XX X6 ed d5 08 06 00 01 08 00 06 04 00 01 XX XX XX X6 ed d5 c0 a8 01 01 00 00 00 00 00 00 c0 a8 01 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
5  Sec ..
Recv: 60 ,Data= b'ff ff ff ff ff ff XX XX XX X6 ed d5 08 06 00 01 08 00 06 04 00 01 XX XX XX X6 ed d5 c0 a8 01 01 00 00 00 00 00 00 c0 a8 01 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
6  Sec ..
Recv: 60 ,Data= b'ff ff ff ff ff ff XX XX XX X6 ed d5 08 06 00 01 08 00 06 04 00 01 XX XX XX X6 ed d5 c0 a8 01 01 00 00 00 00 00 00 c0 a8 01 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
7  Sec ..
8  Sec ..
9  Sec ..
10  Sec ..
11  Sec ..
12  Sec ..
13  Sec ..
14  Sec ..
15  Sec ..
---

$ python sntp.py
---
..... INIT() exit .....
. HwRevID: 0x04
. Cntrl: ECON1 ECON2 ESTAT  EIR  EIE
.        0x04  0x80  0x01  0x00  0xD0
. MAC  : MACON1 MACON3 MACON4
.        0x0D   0xB3   0x40
. Rx   : ERXST  ERXND  ERXWRPT ERXRDPT ERXFCON EPKTCNT MAMXFL
.        0x0000 0x17FF 0x0000  0x17FF  0xA1    0x00    0x05EE
. Tx   : ETXST  ETXND  MACLCON1 MACLCON2 MAPHSUP
.        0x1800 0x1800 0x0F     0x37     0x10
..........
MAC ADDR: 3e:3f:3f:02:12:34
ENC28J60 revision ID: 0x04
[SNTP] Connecting...
ARP Request= b'ff ff ff ff ff ff 3e 3f 3f 02 12 34 08 06 00 01 08 00 06 04 00 01 3e 3f 3f 02 12 34 c0 a8 01 27 00 00 00 00 00 00 c0 a8 01 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
RECV= b'3e 3f 3f 02 12 34 XX xX XX X6 ed d5 08 06 00 01 08 00 06 04 00 02 XX xX XX X6 ed d5 c0 a8 01 01 3e 3f 3f 02 12 34 c0 a8 01 27 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
Rx ARP oper=2
ARP Register: 192.168.1.1 is at XX:XX:XX:X6:ED:D5
[SNTP] Connected
SNTP Request= b'1b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
SEND NTP request: b'XX xX XX X6 ed d5 3e 3f 3f 02 12 34 08 00 45 00 00 4c 00 00 00 00 80 11 0e 31 c0 a8 01 27 a2 9f c8 01 1f bb 00 7b 00 38 97 d7 1b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00'
RECV= b'3e 3f 3f 02 12 34 XX xX XX X6 ed d5 08 00 45 00 00 4c 7f bb 40 00 38 11 96 75 a2 9f c8 01 c0 a8 01 27 00 7b 1f bb 00 38 1f da 1c 03 00 e7 00 00 21 70 00 00 00 2f 0a 98 08 05 e8 9c 74 55 70 d5 43 24 00 00 00 00 00 00 00 00 e8 9c 74 a3 02 c4 c5 97 e8 9c 74 a3 02 c9 ab 45'
Rx my IP proto=17
[SNTP] Response received: time= 2023-09-01 23:33:07 (JST)
---

プログラム：
[python-enc28j60.zip]
2023-09-07 　「抵抗−２RラダーDAC」
参考：トランジスタ技術　２００１年３月号　P-343~347

[mcp23s17.jpg]

Microchip SPI 16bit Expander MCP23S17 を使って抵抗ラダーDACを作ってみた。

回路：
[ladder-adc.jpg]


配線：
　　DACボード　　　　　RaspberryPI
　　5V    ------------- 5V
    GND   ------------- GND
    CS    ------------- GPIO 8 / CE0
    SI    ------------- GPIO 10
    SO    ------------- GPIO 9
    CLK   ------------- GPIO 11

プログラム：

参照: https://hw101.tbs1.de/mcp23s17/
         MCP23S17 I/O Expander
         Ansteuerungen grundlegender Hardwarebausteine

$ nano MCP23S17.py
---
import spidev

class MCP23S17:
    def __init__(self, slave_address, busnumber, chipnumber):
        assert busnumber in [0, 1]
        assert chipnumber in [0, 1]
        self.controlbyte_write = 0x40 |(slave_address<<1)    # <<==修正
        self.controlbyte_read = 0x40 |((slave_address<<1)+1) # <<==修正
        self.spi = spidev.SpiDev()
        self.spi.open(busnumber, chipnumber)
        self.spi.max_speed_hz = 10000000
        # configure default registers
        self._regs = {'conf': {'A': 0x00, 'B': 0x01},
                      'input': {'A': 0x12, 'B': 0x13},
                      'output': {'A': 0x14, 'B': 0x15}}

    def write_config(self, portab, value):
        assert portab in ['A', 'B']
        reg = self._regs['conf'][portab]
        self.spi.xfer([self.controlbyte_write, reg, value])

    def read_config(self, portab):
        assert portab in ['A', 'B']
        reg = self._regs['conf'][portab]
        return self.spi.xfer([self.controlbyte_read, reg, 0])[2]

    def write_output(self, portab, value):
        assert portab in ['A', 'B']
        reg = self._regs['output'][portab]
        self.spi.xfer([self.controlbyte_write, reg, value])

    def read_output(self, portab):
        assert portab in ['A', 'B']
        reg = self._regs['output'][portab]
        return self.spi.xfer([self.controlbyte_read, reg, 0])[2]

    def read_input(self, portab):
        assert portab in ['A', 'B']
        reg = self._regs['input'][portab]
        return self.spi.xfer([self.controlbyte_read, reg, 0])[2]

---

$ nano macp23s1.py
---
import MCP23S17
import time
import math

mcp = MCP23S17.MCP23S17(0,0,0)
mcp.write_config('A',0x00)
mcp.write_config('B',0x00)
mcp.write_output('A',0x00)
mcp.write_output('B',0x00)
while 1:
    for d in range(256):
        mcp.write_output('A',d)
        mcp.write_output('B',d)
        time.sleep(0.5)
---
０〜２５５の変換。

[0-255-ladder-adc.jpg]


$ nano mcp23s2.py
---
import MCP23S17
import time
import math

mcp = MCP23S17.MCP23S17(0,0,0)
mcp.write_config('A',0x00)
mcp.write_config('B',0x00)
mcp.write_output('A',0x00)
mcp.write_output('B',0x00)
while 1:
    for d in range(0, 360, 5):
        s = math.sin( (math.pi * d) / 180.0 ) + 1.0
        a = int(s * 127)
        mcp.write_output('A',a & 0xFF)
        mcp.write_output('B',a & 0xFF)
        #time.sleep(0.01)
---
sin波形出力。

[sin-ladder-dac.jpg]


2023-07-12 　「Raspberry Pi Bullseye OS にCAN ボード追加」
参考：(1)https://www.beyondlogic.org/adding-can-controller-area-network-to-the-raspberry-pi/
　　　   Adding CAN to the Raspberry PI
      (2)https://qiita.com/suzutsuki0220/items/8642b1c3ea51859a95ad
        Raspberry PiでOBD-II (CAN)の情報を取得するための基板を自作する
　　　(3)https://westgate-lab.hatenablog.com/entry/2021/08/15/183000
        RaspberryPiでCAN通信（ドーターボード回路図付き）
      (4)http://reclearnengoolong.blog.fc2.com/blog-entry-1161.html
         動かして学ぶCAN通信（１２）
　　　(5)https://stackoverflow.com/questions/73080694/how-to-install-a-rx-callback-with-python-can
         How to install a rx callback with python-can?
      (6)python-can PDFドキュメント　Release 4.2.2　　（Jun 30, 2023）


RasPi PICOに使ったCAN基板を使う。
OS はBullseye arm32　で設定。

配線：
　　　CAN基板　　　　Ras PI
　　　CS   --------- GPIO 8
      SO   --------- GPIO 9
      SI   --------- GPIO 10
      SCK  --------- GPIO 11
      INT  --------- GPIO 25
      VCC  --------- 3.3V
      GND  --------- GND

      J1 ショート

設定：

$ sudo nano /boot/config.txt
---
dtparam=spi=on
dtoverlay=mcp2515-can0,oscillator=8000000,interrupt=25
---追加

動作確認：
$ sudo reboot

$ ip a
か
$ ifconfig

  can0 があればよい

$ sudo apt install can-utils
$ sudo ip link set can0 type can bitrate 500000 loopback on
$ sudo ip link set can0 up
$ candump can0 -x
別の端末WINDOWで
$ cansend can0 123#12345678
 candumpのWINDOWで送受信データが出ればOK.


$ sudo nano /etc/network/interfaces.d/can0.conf
----
auto can0
iface can0 inet manual
    pre-up /sbin/ip link set can0 type can bitrate 500000
    up /sbin/ip link set  can0 up
    down /sbin/ip link set can0 down
---作成

$ sudo reboot

Raspberry PiのMCP2515　CAN基板　と　Raspberry　Pi PICO のMCP2515　CAN基板を２線で接続する。

実行：

Raspberry Pi PICO側：　　　　　　　　　　　　　Raspberry Pi Bullseye OS側
　Thonny　で　MCP5215.py　を実行する。　　　　　　端末１　$ candump -x cano
                                                  端末２　$ cansend can0 123#12

  シェル：　recv: ['0x12'] 表示                   端末１に　 can0  TX - -  123   [1]  12
  　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 can0  RX - -  156   [4]  01 等が表示

となるところなのだが、PICO側MCP2515.pyの設定では反応がない。
CAN 500KBPS となっていないかもしれないので設定を調べる。


can CNF1,CNF2,CNF3を調べる
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

mcp251x.c を 使ってCNF設定を調べる。
ビットタイミングの設定値はドライバーの別モジュールで計算されたものがlink upでmcp2515ドライバーに
渡される。

手順：

https://www.raspberrypi.org/documentation/linux/kernel/building.md
のLocal building　のソースプログラム取得より

$ git clone --depth=1 https://github.com/raspberrypi/linux
ダウンロードされたら
　linux/drivers/net/can/spi/mcp251x.c をコピーする。

$ sudo apt install git bc bison flex libssl-dev make
  ほぼインストールされていると思うが。
  
$ nano Makefile
---
obj-m:=mcp251x.o

all:
	make -C /lib/modules/$(shell uname -r)/build M=${PWD} CFLAGS_$(obj-m)="-DDEBUG" modules

clean:
	make -C /lib/modules/$(shell uname -r)/build M=${PWD} clean

install:
	rm -f mcp251x.ko.xz
	xz mcp251x.ko
	cp mcp251x.ko.xz /lib/modules/$(shell uname -r)/kernel/drivers/net/can/spi/
---作成

　.xzのファイルでないとモジュールがロードされない。
　CFLAGS_$(obj-m)="-DDEBUG"　でdev_dbg()が有効となってdmesgでCNFの内容がわかる。

$ make
$ sudo make install
$ sudo reboot
   /boot/config.txt のdtoverlayは設定済のこと。

設定調査手順:

sudo ip link set can0 down
sudo ip link set can0 type can bitrate 125000
        800KBPS以上は設定できないとなる。
　　　　/bbo/config.txt の dtoverlay設定でXtal周波数がもっと高ければ,
        なんて仮定したらどうなるかは dtoverlay設定でXtal周波数を高くして定義して
　　　　やってみるとOKとなる。
　　　　もっと早いボーレートの場合は、もっと高いXtal周波数でないとだめ。

sudo ip link set can0 up
   これでMCP2515 のCNF1,CNF2,CNF3が設定される。
   600KBPSでワーニングが出る。
    mcp251x spi0.0 can0: bitrate error 4.7%
    mcp251x spi0.0: CNF: 0x00 0x89 0x01

dmesg | tail
ーーー
                 CNF1 CNF2 CNF3
    500KBPS      0x00 0x91 0x01
    250KBPS      0x00 0xB5 0x01
    125KBPS      0x01 0xB5 0x01
    100KBPS      0x01 0xBF 0x02
  

PYTHONプログラム：
　　相手はPICO側のプログラムを実行する。
    ビットボーレートは設定してあるもの（/etc/network/interfaces.d/can0.conf）で実行される。

$ sudo apt install python3-can
  CANモジュールインストール

$ nano can.py
---
import os
import can
import time

def print_message(msg) -> None:
    if msg.is_error_frame is False:
      print('ID:',hex(msg.arbitration_id), ' DATA:', msg.data.hex() )
    else:
      print("Error recv()")

filter = [
{"can_id": 0x156, "can_mask": 0x7FF, "extended": False},
]

can0 = can.interface.Bus(channel = 'can0', bustype = 'socketcan', can_filters=filter) # socketcan_native
n = 0
smsg = [0x10,0x20,0x30,0x40,0x50,0x60,0x70,0x80]

notifier = can.Notifier(can0, [print_message])

try:
    while True:
        msg = can.Message(arbitration_id=0x123, data=smsg[n%8:], is_extended_id=False)
        try:
            can0.send(msg, timeout=3.0)  # ID:0x156 ==> ID:0x123
        except Exception as e:
            print("Error send()")

        n += 1
        time.sleep(0.5)

except KeyboardInterrupt:
    print('')
    notifier.stop()
    can0.shutdown()

--作成
  フィルター設定があるので指定IDしか受信しない。

$ python can.py

PICO ThonnyでCANプログラム実行

--- 結果---
Error recv()
Error recv()
ID: 0x156  DATA: 0102030405060708
ID: 0x156  DATA: 01
ID: 0x156  DATA: 0102
ID: 0x156  DATA: 010203
ID: 0x156  DATA: 01020304
ID: 0x156  DATA: 0102030405
ID: 0x156  DATA: 010203040506
ID: 0x156  DATA: 01020304050607
ID: 0x156  DATA: 0102030405060708
ID: 0x156  DATA: 01
ID: 0x156  DATA: 0102
ID: 0x156  DATA: 010203
ID: 0x156  DATA: 01020304
ID: 0x156  DATA: 0102030405

---PICO側シェル　結果---
...
init...
send data...
0x123 ['0x30', '0x40', '0x50', '0x60', '0x70', '0x80']
0x123 ['0x40', '0x50', '0x60', '0x70', '0x80']
0x123 ['0x50', '0x60', '0x70', '0x80']
0x123 ['0x60', '0x70', '0x80']
0x123 ['0x70', '0x80']
0x123 ['0x80']
0x123 ['0x10', '0x20', '0x30', '0x40', '0x50', '0x60', '0x70', '0x80']
0x123 ['0x20', '0x30', '0x40', '0x50', '0x60', '0x70', '0x80']
0x123 ['0x30', '0x40', '0x50', '0x60', '0x70', '0x80']
0x123 ['0x40', '0x50', '0x60', '0x70', '0x80']
0x123 ['0x50', '0x60', '0x70', '0x80']


2023-07-12 　「Raspberry Pi PICO CAN 通信」
PICOでCAN通信ができるかやってみた。
使ったのはamazon で買った「MCP2515 CAN バス モジュール TJA1050 SPI レシーバー」３個セット。

[pico-can-board.jpg]

[pico-can-can.jpg]

参考：https://www.waveshare.com/wiki/Pico-CAN-B
　　　WIKI　Pico-CAN-B
を参考にmicropython 上でWIKI　Pico-CAN-B にあるPYTHONサンプルを使用した。

配線：
　　CAN基板　　　　PICO
　　VCC   -------- 3.3V OUT
    GND   -------- GND
    CS    -------- GP5
    SO    -------- GP4
    SI    -------- GP7
    SCK   -------- GP6
    INT   -------- GP21
    J1 ショート　　終端抵抗あり

    CAN-H  ------- CAN-H
    CAN-L  ------- CAN-L

プログラム：

サンプルプログラムは、IDが何でも受信するようになっているのでそれをID一致に修正した。

$ nano MCP5215.py
---
from machine import Pin,SPI
import time

# Config Reg
CANSTAT      = 0x0E
CANCTRL      = 0x0F
BFPCTRL      = 0x0C
CNF3         = 0x28
CNF2         = 0x29
CNF1         = 0x2A
CANINTE      = 0x2B
CANINTF      = 0x2C
EFLG         = 0x2D
TXRTSCTRL    = 0x0D

#  Recieve Filters 
RXF0SIDH     = 0x00
RXF0SIDL     = 0x01
RXF0EID8     = 0x02
RXF0EID0     = 0x03

# Receive Masks 
RXM0SIDH     = 0x20
RXM0SIDL     = 0x21
RXM0EID8     = 0x22
RXM0EID0     = 0x23

# Tx Buffer 0
TXB0CTRL     = 0x30
TXB0SIDH     = 0x31
TXB0SIDL     = 0x32
TXB0EID8     = 0x33
TXB0EID0     = 0x34
TXB0DLC      = 0x35
TXB0D0       = 0x36
TXB0D1       = 0x37
TXB0D2       = 0x38
TXB0D3       = 0x39
TXB0D4       = 0x3A
TXB0D5       = 0x3B
TXB0D6       = 0x3C
TXB0D7       = 0x3D

# Rx Buffer 0 
RXB0CTRL     = 0x60
RXB0SIDH     = 0x61
RXB0SIDL     = 0x62
RXB0EID8     = 0x63
RXB0EID0     = 0x64
RXB0DLC      = 0x65
RXB0D0       = 0x66
RXB0D1       = 0x67
RXB0D2       = 0x68
RXB0D3       = 0x69
RXB0D4       = 0x6A
RXB0D5       = 0x6B
RXB0D6       = 0x6C
RXB0D7       = 0x6D

#  CANCTRL 
REQOP_CONFIG = 0x80
REQOP_LISTEN = 0x60
REQOP_LOOPBACK  =0x40
REQOP_SLEEP  = 0x20
REQOP_NORMAL = 0x00

ABORT        = 0x10

# CANSTAT
OPMODE_CONFIG= 0x80
OPMODE_LISTEN= 0x60
OPMODE_LOOPBACK =0x40
OPMODE_SLEEP = 0x20
OPMODE_NORMAL= 0x00

# CAN Command
CAN_RESET    = 0xC0
CAN_READ     = 0x03
CAN_WRITE    = 0x02
CAN_RTS      = 0x80
CAN_RTS_TXB0 = 0x81
CAN_RTS_TXB1 = 0x82
CAN_RTS_TXB2 = 0x84

CAN_RATE = {   # 8MHz Xtal
    "5KBPS"   : [0x31, 0XB5, 0x01],
    "10KBPS"  : [0x18, 0XB5, 0X01],
    "20KBPS"  : [0x09, 0XBF, 0x02],
    "50KBPS"  : [0x04, 0XB5, 0x01],
    "100KBPS" : [0x01, 0xBF, 0x02],
    "125KBPS" : [0x01, 0xB5, 0x01],
    "250KBPS" : [0x00, 0xB5, 0x01],
    "500KBPS" : [0x00, 0x91, 0x01],
}

class MCP2515():
    def __init__(self, my_id=0, intPin=21):
        self.intPin = intPin
        self.my_id = my_id
        self.SPI0_CS0 = 5
        self.spi = SPI(0)
        self.spi = SPI(0,10000_000)
        self.spi = SPI(0,10000_000,polarity=0, phase=0,sck=Pin(6),mosi=Pin(7),miso=Pin(4))
        self.cs = Pin(self.SPI0_CS0,Pin.OUT)
        
    def ReadByte(self, addr):
        self.cs(0)
        self.spi.write(bytearray([CAN_READ]))
        self.spi.write(bytearray([addr]))
        res = self.spi.read(1)
        self.cs(1)
        return int.from_bytes(res,'big')

    def WriteByte(self, addr):
        self.cs(0)
        self.spi.write(bytearray([addr]))
        self.cs(1)

    def WriteBytes(self, addr, data):
        self.cs(0)
        self.spi.write(bytearray([CAN_WRITE]))
        self.spi.write(bytearray([addr]))
        self.spi.write(bytearray([data]))
        self.cs(1)

    def Reset(self):
        self.cs(0)
        self.spi.write(bytearray([CAN_RESET]))
        self.cs(1)

    def Init(self, speed="500KBPS"):
        self.Reset()
        time.sleep(0.1)
        self.WriteBytes(CNF1, CAN_RATE[speed][0])
        self.WriteBytes(CNF2, CAN_RATE[speed][1])
        self.WriteBytes(CNF3, CAN_RATE[speed][2])
        self.WriteBytes(TXB0SIDH,0xFF)
        self.WriteBytes(TXB0SIDL,0xE0)
        self.WriteBytes(TXB0DLC, 0)
        self.WriteBytes(RXB0SIDH,0x00)
        self.WriteBytes(RXB0SIDL,0x60)
        self.WriteBytes(RXB0CTRL,0x00)   # match id
        self.WriteBytes(RXB0DLC, 0)
        self.WriteBytes(RXF0SIDH,(self.my_id>>3)&0xFF)
        self.WriteBytes(RXF0SIDL,(self.my_id&0x07)<<5)
        self.WriteBytes(RXM0SIDH,0xFF)
        self.WriteBytes(RXM0SIDL,0xE0)

        self.WriteBytes(CANINTF,0x00) # clean interrupt flag
        self.WriteBytes(CANINTE,0x00) # Recv Int

        self.WriteBytes(CANCTRL, REQOP_NORMAL)
        self.pInt = Pin(self.intPin, Pin.IN)
        self.pInt.irq(trigger=Pin.IRQ_FALLING, handler=self.call_read)
        self.WriteBytes(CANINTE,0x01) # Enabled Recv Interrupt

    def Send(self, CAN_ID, CAN_TX_Buf, length1):
        while (self.ReadByte(TXB0CTRL) & 0x08):
            time.sleep(0.01)        #  Wait Tx Busy
        self.WriteBytes(TXB0SIDH, (CAN_ID>>3)&0XFF)
        self.WriteBytes(TXB0SIDL, (CAN_ID&0x07)<<5)
        self.WriteBytes(TXB0EID8, 0)
        self.WriteBytes(TXB0EID0, 0)
        self.WriteBytes(TXB0DLC, length1)
        for j in range(0, length1): 
            self.WriteBytes(TXB0D0+j,CAN_TX_Buf[j])
        self.WriteBytes(TXB0CTRL, 0) # clean flag
        self.WriteByte(CAN_RTS_TXB0)

    def Receive(self):
        CAN_RX_Buf = []
        len = self.ReadByte(RXB0DLC)
        for i in range(0, len): 
            CAN_RX_Buf.append(hex(self.ReadByte(RXB0D0+i)))
        self.WriteBytes(CANINTF, 0)
        rid = (self.ReadByte(RXB0SIDH)<<3)|((self.ReadByte(RXB0SIDL)>>5)&0x07) # clean
        return [rid,CAN_RX_Buf]

    def call_read(self, p):
        msg = self.Receive()
        print(hex(msg[0]), msg[1])

if __name__ == '__main__':
    print("...")
    To_id = 0x156
    can = MCP2515(my_id=0x123)
    print("init...")
    can.Init(speed='500KBPS')
    print("send data...")
    data = [65, 66, 67, 68, 69, 70, 71, 72]
    n = 0
    try:
        while(1):
            can.Send(To_id, data, (n % 8) + 1)
            n += 1
            time.sleep(0.3)
    
    except KeyboardInterrupt:
        print("\n...")
---

実行：

...
init...
send data...
0x123 ['0x30', '0x40', '0x50', '0x60', '0x70', '0x80']
0x123 ['0x40', '0x50', '0x60', '0x70', '0x80']
0x123 ['0x50', '0x60', '0x70', '0x80']
0x123 ['0x60', '0x70', '0x80']
0x123 ['0x70', '0x80']
0x123 ['0x80']
0x123 ['0x10', '0x20', '0x30', '0x40', '0x50', '0x60', '0x70', '0x80']
0x123 ['0x20', '0x30', '0x40', '0x50', '0x60', '0x70', '0x80']
0x123 ['0x30', '0x40', '0x50', '0x60', '0x70', '0x80']
0x123 ['0x40', '0x50', '0x60', '0x70', '0x80']
0x123 ['0x50', '0x60', '0x70', '0x80']
0x123 ['0x60', '0x70', '0x80']
0x123 ['0x70', '0x80']
0x123 ['0x80']
0x123 ['0x10', '0x20', '0x30', '0x40', '0x50', '0x60', '0x70', '0x80']
0x123 ['0x20', '0x30', '0x40', '0x50', '0x60', '0x70', '0x80']

2023-06-29　「RasPI PICO LANケーブル接続」
Raspberry pi PICOにW5500 IC 基板でLANケーブルを接続する。
micropythonのW5500用のNetworkモジュールを追加したものを作成する。
[raspi-pico-page-http.jpg]

https://rafaelaroca.wordpress.com/2022/02/13/building-micropython-for-the-raspberry-pi-pico-with-ethernet-and-webrepl-support/
Yet Another Technology Blog
Building MicroPython for the Raspberry Pi PICO with Ethernet and WebREPL support
の中の　「Ethernet and Raspberry Pi Pico」
を参考にする。

$ git clone https://github.com/rafaelaroca/RP2040-HAT-MicroPython
$ cd RP2040-HAT-MicroPython
$ git submodule add https://github.com/micropython/micropython-lib/
$ cmake CMakeLists.txt
$ cd libraries
$ make -C mpy-cross
$ cd ports/rp2

$ nano boards/manifest.py
 ---
freeze("$(PORT_DIR)/modules")
freeze("$(MPY_DIR)/drivers/onewire")
freeze("$(MPY_DIR)/drivers/dht", "dht.py")
include("$(MPY_DIR)/extmod/uasyncio/manifest.py")
include("$(MPY_DIR)/drivers/neopixel/manifest.py")

freeze("$(MPY_DIR)/tools", ("upip.py", "upip_utarfile.py"))
freeze("$(MPY_DIR)/drivers/display", "ssd1306.py")
include("$(MPY_DIR)/extmod/webrepl/manifest.py")

# Libraries from micropython-lib, include only if the library directory exists
if os.path.isdir(convert_path("$(MPY_LIB_DIR)")):
    # file utilities
    freeze("$(MPY_LIB_DIR)/micropython/upysh", "upysh.py")

    # requests
    freeze("$(MPY_LIB_DIR)/python-ecosys/urequests", "urequests.py")
    freeze("$(MPY_LIB_DIR)/micropython/urllib.urequest", "urllib/urequest.py")

    # umqtt
    freeze("$(MPY_LIB_DIR)/micropython/umqtt.simple", "umqtt/simple.py")
    freeze("$(MPY_LIB_DIR)/micropython/umqtt.robust", "umqtt/robust.py")
---修正

$ make

  できた　build-PICO/firmware.uf2 　をPICOに書き込む。

配線：
	GPIO16  ---- MISO  W5500
	GPIO17	---- SCS   W5500
	GPIO18	---- SCLK  W5500
	GPIO19	---- MOSI  W5500
	GPIO20	---- RST   W5500
	GPIO21	---- INT   W5500
        3.3V    ---- 3.3V  W5500
        GND     ---- GND   W5500

        USB     ---- Raspberry Pi USB

実行：
　Thonny で　RP2040-HAT-MicroPython-00/examples/HTTP/HTTP_Serverを開く。
ーーー
from usocket import socket
from machine import Pin,SPI
import network
import rp2
import time

led = Pin(25, Pin.OUT)

#W5x00 chip init
def w5x00_init():
    spi=SPI(0,2_000_000, mosi=Pin(19),miso=Pin(16),sck=Pin(18))
    nic = network.WIZNET5K(spi,Pin(17),Pin(20)) #spi,cs,reset pin
    nic.ifconfig(('192.168.1.20','255.255.255.0','192.168.1.1','8.8.8.8'))
    while not nic.isconnected():
        time.sleep(1)
        print(nic.regs())
    
def web_page():
    if led.value()==1:
        led_state="ON"
    else:
        led_state="OFF"
        
    html = """
    <!DOCTYPE html>
    <html lang="en">
    <head>
    <meta charset="UTF-8">
    <meta http-equiv="X-UA-Compatible" content="IE=edge">
    <meta name="viewport" content="width=device-width, initial-scale=1.0">
    <title>Raspberry Pi Pico Web server - WIZnet W5100S</title>
    </head>
    <body>
    <div align="center">
    <H1>Raspberry Pi Pico Web server & WIZnet Ethernet HAT</H1>
    <h2>Control LED</h2>
    PICO LED state: <strong>""" + led_state + """</strong>
    <p><a href="/?led=on"><button class="button">ON</button></a><br>
    </p>
    <p><a href="/?led=off"><button class="button button2">OFF</button></a><br>
    </p>
    </div>
    </body>
    </html>
    """
    return html

def main():
    w5x00_init()
    s = socket()
    s.bind(('192.168.1.20', 80))
    s.listen(5)

    while True:
        conn, addr = s.accept()
        print('Connect from %s' % str(addr))
        request = conn.recv(1024)
        request = str(request)
        #print('Content = %s' % request)
        led_on = request.find('/?led=on')
        led_off = request.find('/?led=off')
        if led_on == 6:
            print("LED ON")
            led.value(1)
        if led_off == 6:
            print("LED OFF")
            led.value(0)
        response = web_page()
        conn.send('HTTP/1.1 200 OK\n')
        conn.send('Connection: close\n\n')
        conn.send(response)
        time.sleep(0.1)    # <<== 追加
        conn.close()

if __name__ == "__main__":
    main()
ーーー修正
DHCP IPアドレスは獲得できない。ifconfig()固定アドレスとなる。

実行する。

[raspi-pico-lan-http.png]
ブラウザでhttp://192.168.1.20 で　LED ON/OFFボタンをクリックするとPICO基板のLEDが点灯・消灯する。

2023-06-24　「雑誌MabPi」
雑誌　The MagPi が　issue 130　から、月末にアップロードされたが、次の月の１５日にならないとPDF Freeダウンロード
できなくなった。


2023-08-07　「RasPI ZERO W5500、ENC29J60 LANアダプタ接続」
[Raspi-zero-enc28j60.jpg]
参考：日経LINUX　2017年４月号　Zero用のHAT風ボード　イーサネットなどを実装　p-60 ~ 65

      http://www.picfun.com/ENC28J60frame.html
      デモプログラムを自作基板で動かす

ENC28J60でLAN基板を作ってみた。
ENC28J60はチップのREVSIONが４種類ある。
今回使うのを調べてみた。
まず、SPIインターフェースを有効にする。（まだ、dtoverlayは設定しない）
pythonプログラム
$ nano enc.py
---
import spidev
import time

spi = spidev.SpiDev()
spi.open(0, 0)
spi.max_speed_hz = 1200000

spi.xfer2([0xff]) # reset enc28j60
time.sleep(0.5)
spi.xfer2([0x9f,0x03])  # select enc28j60 banck 3
rev = spi.xfer2([0x12,0x00])  # read enc28j60 EREVID
print(rev[1]) # 4
spi.close()
---作成

$ python enc.py
...
4
...
EREVIP が４である。

回路：
[enc28j60-lan-circuit.jpg]

配線：
　　LANボード　　　　　RaspberryPI
　　3.3V  ------------- 3.3V
    GND   ------------- GND
    INT   ------------- GPIO 25
    CS    ------------- GPIO 8 / CE0
    SI    ------------- GPIO 10
    SO    ------------- GPIO 9
    SCLK  ------------- GPIO 11

OS: 2023-05-03 arm32 bullseye Desctopイメージ

設定：
　　raspi-config     SPI インターフェース　ON

　　/boot/config.txt
    ------
    dtoverlay=enc28j60,int=pin=25
    -----追加

　　/etc/dhcpcd.conf
    -----
    interface eth0
    static ip_address=192.168.1.5x/24
    static routers=192.168.1.x
    static domain_name_servers=192.168.1.x
    -----追加(固定IPアドレス)

★★★★他のLAN基板↓↓

[w5500-1.jpg]
[w5500-2.jpg]

Raspberry pi ZERO (WIFIなし)にMicroChip　ENC28J60を同様なLANカードを接続する。
W5500が実装されたボードがAMAZONで売られているので買ってやってみた。

Copuhgima W5500イーサネットネットワークモジュールハードウェア / IP 51 / St2
マイクロコントローラプログラムオーバー W5100

配線：
　　LANボード　　　　　RaspberryPI
　　3.3V  ------------- 3.3V
    GND   ------------- GND
    INT   ------------- GPIO 25
    SCS   ------------- GPIO 8 / CE0
    MOSI  ------------- GPIO 10
    MISO  ------------- GPIO 9
    SCLK  ------------- GPIO 11
    5V     NC
    RST    NC

OS: 2023-05-03 arm32 bullseye Desctopイメージ

.... osinfo ....
==== BOARD ( Memory 0.5MB ) ===
Raspberry Pi Zero Rev 1.3
======= OS ( 32 Bits ) ========
Raspbian GNU/Linux 11 (bullseye)
===============================

設定：
　　raspi-config     SPI インターフェース　ON

　　/boot/config.txt
    ------
    dtoverlay=w5500,int=pin=25,speed=20000000
    -----追加

　　/etc/dhcpcd.conf
    -----
    interface eth0
    static ip_address=192.168.1.5x/24
    static routers=192.168.1.x
    static domain_name_servers=192.168.1.x
    -----追加(固定IPアドレス)

　　　DHCPでアドレスをふるようになってる場合はリブートするたびにアドレスが変わるので面倒な場合は
　　　固定IPアドレスにするのがよい。（MACアドレスがランダムに自動割当される）

設定が終わったら、リブートする。
dtoverlayではW5500を指定するのですがlsmodするとw5100となっている。

2023-06-13  「octave GPIO」
google検索の途中にたまたま引っかかったのでやってみた。
大分前にやったことがあったが、今はGUIも付いて変わっている。
CPPで作った関数が使えるんだとのこと。

sudo apt install octave
sudo apt install liboctave-dev　　（実行ファイル　mkoctfile）

wget http://www.airspayce.com/mikem/bcm2835/bcm2835-1.68.tar.gz
tar xzvf bcm2835-1.68.tar.gz
cd bcm2835-1.68/
./configure CFLAGS=-fPIC
make
sudo make install

cd ..

git clone https://github.com/gnu-octave/octave-rpi-gpio.git

cd octave-rpi-gpio

make

nano test_bcm2835oct.m
 ---
 sleep(x) を　pause(x) に修正。
 ---

LEDと抵抗を４０ピン 26(GPIO-7) と　30（GND)に配線。

octave
  端末でOCTAVE

　＞＞ test_bcm2835oct

  test_bcm2835oct.m 実行。LEDが点滅する。


2023-06-25　「Raspberry Pi の小ワザ」
▲▲▲▲
PYTHONでファイルの種類を確認する。
・その１
sudo apt install python3-magic

>>> import magic
>>> f.from_file('345', mime=True)
'text/plain'
>>> f.from_file('pic01', mime=True)
'image/png'

・その２
>>> from subprocess import getoutput
>>> getoutput('file 345')
'345: UTF-8 Unicode text'
>>> getoutput('file pic01')
'pic01: PNG image data, 620 x 491, 8-bit/color RGBA, non-interlaced'

▲▲▲▲
Windowsで漢字ファイル名の入ったZIPファイルを解凍する。

　そのまま解凍すると文字化けになる。convmvでも変換できない。そんな時、
　$ sudo apt install unar
　$ unar xxxx.zip
▲▲▲▲
サービスの一覧

sudo service --status-all
sudo systemctl list-units --type=service

▲▲▲▲
https://www.raspberrypi.org/forums/viewtopic.php?t=96273
Mouse cursor 
より
・・・・・
白いカーソルにする。黒いのも。

sudo apt install  dmz-cursor-theme

メインメニュー　→　ルックアンドフィールの設定をする（メインメニューエディターでチェックを入れる）→　マウスカーソル　タグ　→　DMZ(白）で選択する

大きさの設定はメインメニュー　→　Appearance Settings　→　System　→　Mouse Cursor　で大中小サイズ選択

▲▲▲▲
GREP でPerlの正規表現を使う。
指定文字列以外の行。

gerp -P '(?!1234)' test.txt

カッコ,?,!にはエスケープシーケンスはいらない。

▲▲▲▲
nanoエディタ行番号表示
~/.nanorc
ーーー
set linenumbers
追加。

▲▲▲▲
WiFi POWER ON/OFF

https://raspberrypi.stackexchange.com/questions/73727/turning-off-wifi-bluetooth-module
Turning off Wifi/ Bluetooth module
より

ON :
 rfkill unblock wifi
OFF:
 rfkill block wifi

▲▲▲▲
sshfs でシンボリックリンクを扱う

sshfs pi@192.168.xx.xxx:/home/xxx mnt -o follow_symlinks

2023-06-123　「USB WIFI アダプタ　ELECOM WDC-433SU2M2BK、I-O WN-AC867U インストール」
古いRasPiボードを有効利用しようと考えて。
ELECOM WIFI　5GHz専用　USBアダプタが安すかったので買いました。
I-O　WN-AC867U (2.4GHz, 5GHz)　USBアダプタは中古で。

Arm 32 Bullseye 2023-05-03 をインストールする。
==== BOARD ( Memory 0.5MB ) ===
Raspberry Pi Model B Rev 2
======= OS ( 32 Bits ) ========
Raspbian GNU/Linux 11 (bullseye)
===============================
ただ差し込んでも動作しない。ドライバーを探してコンパイルして試してみてもなかなか動作するものが見つからなかった。

https://github.com/morrownr/8821au-20210708 より

(1) sudo apt install -y raspberrypi-kernel-headers build-essential bc dkms git
(2) mkdir src
(3) cd src

　◎ELECOM WDC-433SU2M2BK (5GHz)　の時

(4) git clone https://github.com/morrownr/8821au-20210708.git
(5) cd 8821au-20210708

　◎I-O　WN-AC867U (2.4GHz, 5GHz)　の時

(4) git clone https://github.com/morrownr/8812au-20210629.git
(5) cd 8812au-20210629

　◎共通

(6) sudo ./install-driver.sh NoPrompt
    少し時間がかかる
(7) make clean
(8) make
    少し時間がかかる
(9) sudo make install
(10) sudo reboot
(11) タスクバーのネットアイコンをクリックしてWlan0の国別コード設定選択
　　　JAPANを設定する。
(12) タスクバーのネットアイコンをクリックして、5GHz、2.4GHzアクセスポイント一覧が表示されること。
(13) アクセスポイントに接続して動作確認する。


2023-05-23 「USBシリアルケーブルでシリアルコンソール追加」
本体のUART　PINはそのまま使って、シリアルコンソールを使いたい場合はUSBシリアルケーブルを差し込んでそれを
シリアルコンソールとして使う。デバイス名が変化する場合はUDEVルールでデバイス名をシンボリックリンクで設定する。

$ sudo mkdir -p /etc/systemd/system/getty@ttyUSB0.service.d
$ sudo nano /etc/systemd/system/getty@ttyUSB0.service.d/autologin.conf
---
[Service]
ExecStart=
ExecStart=-/sbin/agetty --autologin pi --noclear %I 115200,38400,9600 vt220
---
  自動ログインを希望しない場合は、"--autologin pi" を削除。

$ sudo ln -s  /lib/systemd/system/getty@.service /etc/systemd/system/getty.target.wants/getty@ttyUSB0.service
$ sudo reboot
...
参考：https://gist.github.com/yoggy/de9a4a6405834f52accc
　　　yoggy/電源を入れたときにtty1を自動ログインする設定あれこれ集.md

      https://archlinuxarm.org/forum/viewtopic.php?f=31&t=5640
      Serial Console Configuration Question

2023-05-23　「Micropython TELNET サーバー」
2.4Ghz Wifi TELNET Server
Raspberry piのLAN経由で接続ができなくなったときとか、ただのWIFIリモートUARTケーブルとして使う。

Pico-wとESP32のMicropythonで動作。
Pico-W,ESP32のmain.pyと同じところにファイル"wifi.conf"は書き込む。

＋＋配線＋＋
raspberry pi                   PIco-W
 5V ----------------▶｜--------VSYS
                  ダイオード
 GND ---------------------------GND
 GPIO 14(txd) ------------------GP1(RX)
 GPIO 15(rxd)-------------------GP0(TX)
　　　　　　　　　　　　　　　　GP10 -----/\/\/\---▶｜-----+
                                           1K      LED　　　|
                                GND ------------------------+
                                     TELNET接続時　UARTスピードにより
　　　　　　　　　　　　　　　　　　　点滅時間が違う。
　　　　　　　　　　　　　　　　　　　２秒以上点灯がある場合はLAN接続エラー。
ESP32
　LED = IO 5
  TXD = IO 17
  RXD = IO 16
　
＋＋設定＋＋
Raspberry pi
　シリアルコンソール有効
または、
Raspberry pi
  USBシリアルケーブルをシリアルコンソール設定する。
　このときは　TXD ーーーー　GP1
　　　　　　　RXD ーーーー　GP0
　に接続する。
  USBシリアルケーブルはPICO　ProbeをコンパイルしてPICOに書き込んだものでもよい。


---wifi.conf---
ssid=xxxSSIDxxx
passwd=xxxPASSWORDxxx
network=192.168.12.xxx,255.255.255.0,192.168.12.1,192.168.1.1
port=23
led=5
-------
port省略時は、23。led省略時は10。
networkは、固定IP,ネットワークマスク、GATEWAY,DNSサーバアドレスの順。省略時は、DHCPによる。

---program----
# (c) K.Shimomura (The MIT License)
from machine import UART, Pin,Timer
import machine
import network, time
import socket
import select
import _thread
import re
import uos

# for micropython

baud = (115200, 57600, 38400, 19200, 9600, 0)
bidx = 0
btmr = 0
mname = uos.uname()[0]

'''
    Timer Interrupt
'''
def RemoteGets(Timer):
    global btmr, pa, bidx

    # Run Wifi and Run UART speed by LED
    btmr += 1
    btmr &= 0xFF
    if (btmr & (1<<(bidx+1))):
        pa.value(1)  
    else:
        pa.value(0)

'''
   Telnet Protocol
'''
def will(id):
    return b'\xff\xfb' + id
    #print('will:',id)

def do(id):
    return b'\xff\xfd' + id
    #print('do:',id)

def wont(id):
    return b'\xff\xfc' + id
    #print('wont:',id)

def dont(id):
    return b'\xff\xfe' + id
    #print('dont:',id)

def negotiation(cl,polan):
    tcmd = b''
    subc = b'\x00'
    while True:
        res = polan.poll(300)
        if not res:
            c = None
            break
        c = cl.recv(1)
        if c == b'\xFF':  # IAC ?
            c = cl.recv(1)
            if c == b'\xfb':  # WILL ?
                tcmd += wont(cl.recv(1))
            elif c == b'\xfd': # DO ?
                tcmd += dont(cl.recv(1))
            elif c == b'\xfc': # WON'T ?
                tcmd += wont(cl.recv(1))
            elif c == b'\xfe': # DON'T ?
                tcmd += dont(cl.recv(1))
            elif c == b'\xfa': # sub ?
                subc = cl.recv(1)
                continue
            elif c == b'\xf0': # sub end ?
                tcmd += wont(subc)
                subc = b'\x00'
            else:
                if subc != b'\x00':
                    continue
                else:
                    break
        else:
            if subc != b'\x00':
                continue
            else:
                break
    if len(tcmd) > 0:
        cl.send(tcmd)
    return c

'''
  Password File 'wifi.conf'
  　ssid=xxxSSIDxxx
    passwd=xxxPASSWORDxxx
    network=192.168.12.xxx,255.255.255.0,192.168.12.1,192.168.1.1
    port=23
    led=5
'''
def Get_Wificonf():
    ssid = ''
    passwd = ''
    content = ''
    netw = [ '' ]
    nport = 23
    ledpin = 10
    with open("wifi.conf", 'r') as file:
        content = file.read()
    if content != "":
        configs = content.split("\n") 
        pattn = re.compile(r'=')
        for c in configs:
            if c == "":
                continue
            id = pattn.split(c)
            if id[0].lower() == 'ssid':
                ssid = id[1]
            elif id[0].lower() == 'passwd':
                passwd = id[1]
            elif id[0].lower() == 'network':
                netw = id[1].split(",")
                if len(netw) < 4:
                    netw = [ "" ]
            elif id[0].lower() == 'port':
                try:
                    nport = int(id[1])
                except:
                    pass
            elif id[0].lower() == 'led':
                try:
                    ledpin = int(id[1])
                except:
                    pass
            else:
                pass
    return (ssid, passwd, netw, nport, ledpin)

'''
   Find null and write to serial console
'''
def CandSend(bstr, u0):
    s = bstr.replace(b'\r\000', b'\r')
    s = s.replace(b'\r\n',b'\r')
    if s != b'\000':
        u0.write(s)

'''
   Telnet Server for micropython
     Main
'''        
network.country('JP')

if mname == 'rp2':
    tim = Timer()
else:
    tim = Timer(0)

if mname == 'rp2':
    u0 = UART(0,baud[bidx],timeout=0)
else:
    u0 = UART(2,baud[bidx],timeout=0, tx=17, rx=16)

while u0.any():
    c = u0.read(1)
    time.sleep_ms(5)

#print("UART baud:", baud[bidx])
u0_poll = select.poll()

'''
   Initial Network and Connect WIFI
'''
wconf = Get_Wificonf()
wlssid = wconf[0]
wlpasswd = wconf[1]
wlnet = wconf[2]
wlport = wconf[3]
pa = Pin(wconf[4], Pin.OUT, value=0)
wlan = network.WLAN(network.STA_IF)
print('connecting to network...')
wlan.active(True)
# Set to Fixed IP address
if len(wlnet) == 4:
    wlan.ifconfig((wlnet[0], wlnet[1], wlnet[2], wlnet[3]))
else:
    pass
# Connect WIFI
wlan.connect(wlssid, wlpasswd)

max_wait = 10
while max_wait > 0:
    if wlan.isconnected():
        break
    max_wait -= 1
    print('waiting for connection...')
    time.sleep(1)

if not wlan.isconnected():
    pa.value(1)
    if wlan.status() != 3:
        time.sleep(2)
    else:
        time.sleep(5)
    machine.soft_reset()
    #raise RuntimeError('network connection failed')
else:
    print('connected')

print(wlan.ifconfig())

# Waiting a client
addr = socket.getaddrinfo('0.0.0.0', wlport)[0][-1]

s = socket.socket()

poller = select.poll()

s.bind(addr)
s.listen(1)

print('listening on', addr)

while True:
    '''
       Connect Client
    '''
    cl, addr = s.accept()
    poller.register(cl, select.POLLIN)
    print('client connected from', addr)
    # Start Interrupt Timer 10msec
    #   (Read Terminal Console to write client socket and LED ON)
    tim.init(period=10, mode=Timer.PERIODIC, callback=RemoteGets)
    u0.deinit()
    #bidx = 0
    if mname == 'rp2':
        u0 = UART(0,baud[bidx],timeout=0)
    else:
        u0 = UART(2,baud[bidx],timeout=0, tx=17, rx=16)
    while u0.any():
        c = u0.read(1)
        time.sleep_ms(5)
    time.sleep_ms(100)
    u0_poll.register(u0, select.POLLIN)
    # Send protocol
    cl.send(will(b'\x01')) # will
    cl.send(do(b'\x22'))   # do
    while True:
        res = poller.poll(0)
        if not res:
            continue
        else:
            r = negotiation(cl,poller)
            if r != None:
                CandSend(r, u0)
            else:
                pass
            break
    # Send Help Message
    cl.send(b'Pico-w TELNET Server\r\n Change UART Baudrate with "~~".\r\n')
    #
    r0 = b'\00'
    
    while True:
        '''
           Loop TELNET data Read
        '''

        try:
            res = poller.poll(0)
            if res:
                r = cl.recv(128)
                # Check Close socket (Disconnect Client)
                if r == b'':
                    break
                else:
                    pass
                #
                if r == b'~' and r0 == b'~':
                    # USRT baudrate change
                    u0_poll.unregister(u0)
                    u0.deinit()
                    bidx += 1
                    if baud[bidx] == 0:
                        bidx = 0
                    else:
                        pass
                    #print("UART baud:", baud[bidx])
                    if mname == 'rp2':
                        u0 = UART(0,baud[bidx],timeout=0)
                    else:
                        u0 = UART(2,baud[bidx],timeout=0, tx=17, rx=16)
                    # Read Noise data
                    while u0.any():
                        c = u0.read(1)
                        time.sleep_ms(5)

                    u0_poll.register(u0, select.POLLIN)
                    # Confirm To baudrate
                    # Check Printabled character
                    #u0.write(b'\r')
                    r0 = b' '
                    continue
                else:
                    if r0 == b'~':
                        u0.write(r0)
                    else:
                        pass
                if r0 != b'~' and r == b'~':
                    r0 = r
                    continue
                else:
                    pass
                r0 = r
                # Check Enter key code
                CandSend(r, u0)
            else:
                pass
        except:
            print("except")
        try:
            rtn = u0_poll.poll(0)
            if rtn:
                r = u0.read(128)
                cl.send(r)
            else:
                pass
        except:
            print("int-except")

    # Close Connect Client
    #   Close Timer Interrupt
    tim.deinit()
    time.sleep(0.2)
    poller.unregister(cl)
    # Connect LED OFF
    pa.value(0)  
    cl.close()


2023-04-08 「Rasperry pi PICO-W」
Raspberry pi PICO Wが発売になったのでひとつ買ってみた。
デバッグプローブも欲しかったのでセットになったものを入手。

[pico-w.jpg]

環境は
===== BOARD ( Memory 4MB ) ====
Raspberry Pi 400 Rev 1.0
======= OS ( 64 Bits ) ========
Debian GNU/Linux 11 (bullseye)　　2023-2-21 bullseye Desktopイメージです。
===============================
または、
===== BOARD ( Memory 8MB ) ====
Raspberry Pi 4 Model B Rev 1.5
======= OS ( 64 Bits ) ========
Debian GNU/Linux 11 (bullseye)
===============================

NTPサーバより時刻データを取り込み表示する。
micropythonプログラム。
ssd1306モジュールはThonnyを使い取り込み、以下のプログラムはPICO-W基板へ"main.py"でセーブする。
----
# NTP Clock
from machine import Pin, I2C, RTC
import ssd1306  # 表示ライブラリ Thonnyで追加
import time
import network
import socket
import struct
import _thread

NTP_DELTA = 2208988800
host = "pool.ntp.org"
ssid = 'xxYour SSIDxx'
password = 'xxYour PASSWORDxx'
srtc = 0
rp2.country('JP')

def set_time(rtc):
    NTP_QUERY = bytearray(48)
    NTP_QUERY[0] = 0x23  # NTP V.4 , client, 設定時刻なし（RFC5905)
    addr = socket.getaddrinfo(host, 123)[0][-1]
    s = socket.socket(socket.AF_INET, socket.SOCK_DGRAM)
    try:
        #s.settimeout(1)
        res = s.sendto(NTP_QUERY, addr)
        msg = s.recv(48)
        val = struct.unpack("!I", msg[40:44])[0]
        t = val - NTP_DELTA + 9 * 3600  # JST
        tm = time.gmtime(t)
        #print(tm)
        rtc.datetime((tm[0], tm[1], tm[2], tm[6] + 1, tm[3], tm[4], tm[5], 0))
    finally:
        s.close()

def ntptime(rtc):
    wlan = network.WLAN(network.STA_IF)
    wlan.active(True)
    wlan.connect(ssid, password)
    max_wait = 10
    while max_wait > 0:
        if wlan.status() < 0 or wlan.status() >= 3:
            break
        max_wait -= 1
        print('connection...')
        time.sleep(1)
    if wlan.status() != 3:
        print("Network connection Failed!")
    else:
        print('connected')
        status = wlan.ifconfig()
        print( 'ip = ' + status[0] )
        set_time(rtc)
    wlan.deinit()

def Clock():
    rtc = RTC()
    # I2C設定
    i2c = I2C(0, sda=Pin(8), scl=Pin(9) )
    addr = i2c.scan()
    print( "I2C Address :" + hex(addr[0]) )
    # 表示設定
    display = ssd1306.SSD1306_I2C(128, 64, i2c)
    display.poweron()
    while True:
        timd = rtc.datetime()
        tsr ="%4d-%02d-%02d %d %02d:%02d:%02d %d" % timd 
        display.fill(0)
        display.text("Time",48,10)
        display.text(tsr[:10], 24, 30)
        display.text(tsr[13:21],32, 40)
        display.show()
        time.sleep(1)

rtc = RTC()
ntptime(rtc)
print("%4d-%02d-%02d [%d] %02d:%02d:%02d %d" % rtc.datetime()) 
_thread.start_new_thread(Clock, ())

while True:
    timd = rtc.datetime()
    if srtc != timd[2] and timd[3] == 0:
        ntptime(rtc)
        srtc = timd[2]
    else:
        time.sleep(3600)
-----
[ntpclock.jpg]

□□□□□□□□□□
Debug Probe なしで使う

　USB port ==================================================> PICO-W USB port 

デバッグプローブUSBはまだUSBポートに差し込まない。
PICO-WのUSBケーブルをボードのSWを押しながら差し込む。
表示されたマスストレージデバイスに
　~/pico//micropython/ports/rp2/build-PICO/firmware.uf2 ファイルをドラッグコピーする。
ファイル名が消えたら書き込まれたことになる。

配線を以下のようにする。
              +------------------+
  USB port ===| Debug Probe  (U)-+---------------オレンジ----> PICO-W GPIO-1(RX UART) pin2
              |              (D) | D  未接続     イエロー----> PICO-W GPIO-0(TX UART) pin1
              +------------------+               ブラック----> PICO-W GND  pin3

　USB port ==================================================> PICO-W USB port 

$ sudo apt install minicom

PICO-W側のUSBケーブルを接続。

$ minicom -o -D /dev/ttyACM0
改行入力

>>> from machine import UART, Pin
>>> uart0 = UART(0,baudrate=115200, tx=Pin(0), rx=Pin(1))
>>> tsData= b'Hello world!!\r\n'

デバッグプローブのUSBケーブルを接続。
別端末ウィンドウより、

$ minicom -o -D /dev/ttyACM1

次にプログラム入力中ウィドウに以下を入力する。

>>> uart0.write(tsData)

デバッグプローブ側のウィンドウに"Hello world!!"が表示される。

>>> help('modules')
__main__          lwip              uasyncio/lock     ure
_boot             math              uasyncio/stream   urequests
_boot_fat         micropython       ubinascii         uselect
_onewire          mip/__init__      ucollections      usocket
_rp2              neopixel          ucryptolib        ussl
_thread           network           uctypes           ustruct
_uasyncio         ntptime           uerrno            usys
_webrepl          onewire           uhashlib          utime
builtins          rp2               uheapq            uwebsocket
cmath             uarray            uio               uzlib
dht               uasyncio/__init__ ujson             webrepl
ds18x20           uasyncio/core     umachine          webrepl_setup
framebuf          uasyncio/event    uos
gc                uasyncio/funcs    urandom                                     
Plus any modules on the filesystem                                              
>>> print(rp2.country())                                                        
XX                                                                              
>>> rp2.country('JP')                                                           
>>> print(rp2.country())                                                        
JP                                                                              

□□□□□□□□□□
Debug Probe を使う
getting_started_with_pico.pdf page-62

$ cd ~/pico
$ sudo apt install automake autoconf build-essential texinfo libtool libftdi-dev libusb-1.0-0-dev
$ git clone https://github.com/raspberrypi/openocd.git --branch rp2040 --depth=1
$ cd openocd
$ ./bootstrap
$ ./configure
$ make -j4
$ sudo make install

　configureに引数はDebug Probeのときはない。

  USB picoprobeのパーミッションの変更
　　sudo nano /etc/udev/rules.d/98-p-probe.rules
   ---
   ATTRS{idVendor}=="2e8a", ATTRS{idProduct}=="000c", MODE="0666"
   ---作成
　　sudo reboot

　　USBベンダーとプロダクトはlsusbコマンドで表示されるもの。
　　"ID 2e8a:000c Raspberry Pi Debug Probe (CMSIS-DAP)"
 　　作成したら、リブートして有効にすること。
   有効にしないとコンパイルはできるがデバッグができない。

$ cd ~/pico/pico-examples/blink
$ nano blink.c
  -----
    const uint LED_PIN = 15;
  -----修正

$ cd ~/pico/pico-examples/build/blink
$ make -j4

配線を以下のようにする。
 LEDに抵抗１KΩを直列に配線する。

 GPIO-15(20) -\/\/\---▶|---- GND(18)
               1K

              +------------------+
  USB port ===| Debug Probe  (U)-+---------------オレンジ----> PICO-W GPIO-1(RX UART) pin2
              |                  |               イエロー----> PICO-W GPIO-0(TX UART) pin1
              |                  |　　　　　     ブラック----> PICO-W GND  pin3
              |                  |
              |              (D)-+---------------オレンジ----> PICO-W SWCLK
              +------------------+               ブラック----> PICO-W GND
              　　　　　　　　　　　             イエロー----> PICO-W SWDIO

　USB port ==================================================> PICO-W USB port 

[probe-conn.jpg]

$ openocd -f interface/cmsis-dap.cfg -c "adapter speed 5000" -f target/rp2040.cfg -c "program blink.elf verify reset exit"

 Debug Probeが刺さっていないとMSIS-DAPがないとエラーになる。
 プログラムの書き込み。LEDが点滅する。

■GDBでデバッグ
Firewallが設定してある場合は、IPV6許可をする。

$ sudo apt install gdb-multiarch
　最初のインストールで一緒に入るのかも。

$ cd ~/pico/pico-examples
$ cd build
$ export PICO_SDK_PATH=../../pico-sdk
$ cmake -DCMAKE_BUILD_TYPE=Debug ..
$ cd hello_world/serial
$ make -j4

配線を上記のまま使う。

$ openocd -f interface/cmsis-dap.cfg  -c "adapter speed 5000" -f target/rp2040.cfg

デバッグプローブ接続を先に接続して、別ウィンドウ１で
$ minicom -o -D /dev/ttyACM0

別ウィンドウ２で、

$ cd ~/pico/pico-examples/build/hello_world/serial
$ gdb-multiarch hello_serial.elf

(gdb) target remote localhost:3333

　これを省略するには、
　~/.gdbinit  ファイルに
　----
  target remote localhost:3333
  ----
  とする。

(gdb) load
(gdb) monitor reset init
(gdb) b main
(gdb) continue
　main()で止まる
(gdb) continue

　　別ウィンドウ１で　"Hello, world!" が表示される。

□□□□□□□□□□
自分のプロジェクト・WIFIアクセスポイント作成

$ cd ~/pico
$ git clone https://github.com/raspberrypi/pico-project-generator.git --branch master
$ cd pico-project-generator
$ ./pico_project.py --gui

Project Name: picow_access_point
 ソース名になる
Location:　適当な場所
Board Type: pico_W
Pico Wireless OPtion: BAckground lwIP  または、　Polled IwIP
Build Option: Run Build after generation
IDE OPtuin: SWD
[OK] クリック。雛形で生成コンパイルさせる。

その後、
~/pico/pico-examples/pico_w/wifi/access_point/ のディレクトリ　dhcpserver、dnsserver　と　picow_access_point.cを
プロジェクトのディレクトリに上書きする。

├── CMakeLists.txt
├── build
├── dhcpserver
├── dnsserver
├── lwipopts.h
├── pico_sdk_import.cmake
└── picow_access_point.c

プログラム修正
$ nano picow_access_point.c
---
int main() {
    stdio_init_all();

    TCP_SERVER_T *state = calloc(1, sizeof(TCP_SERVER_T));
    if (!state) {
        DEBUG_printf("failed to allocate state\n");
        return 1;
    }

    //if (cyw43_arch_init()) {
    if (cyw43_arch_init_with_country(CYW43_COUNTRY_JAPAN)) {　　＜＜＝＝修正　国コードJP　設定
        DEBUG_printf("failed to initialise\n");
        return 1;
    }
    uint32_t c_code = cyw43_arch_get_country_code();　　　　　　＜＜＝＝追加　国別コード
    printf("contry-code:%c%c\n", c_code&0xFF,c_code>>8);　　　　＜＜＝＝追加

    const char *ap_name = "bxxxxx";　＜＜＝＝SSID修正
#if 1
    const char *password = "5xxxxx";　＜＜＝＝パスワード修正
#else
    const char *password = NULL;
#endif

    cyw43_arch_enable_ap_mode(ap_name, password, CYW43_AUTH_WPA2_AES_PSK);

--- 追加,修正する

$ nano CMakeLists.txt
---
add_executable(picow_access_point picow_access_point.c
        dhcpserver/dhcpserver.c                         # カッコ内に２業追加
        dnsserver/dnsserver.c　　　　　　　　　　　　　 #
 )
 ;;

 ;;
target_include_directories(picow_access_point PRIVATE
  ${CMAKE_CURRENT_LIST_DIR}
  ${CMAKE_CURRENT_LIST_DIR}/.. # for our common lwipopts or any other standard includes, if required
  ${CMAKE_CURRENT_LIST_DIR}/dhcpserver   # ２行追加
  ${CMAKE_CURRENT_LIST_DIR}/dnsserver    #
)

---

プロジェクトのbuildデイレクトリで

$ make

エラーがなければ、

$ openocd -f interface/cmsis-dap.cfg -c "adapter speed 5000" -f target/rp2040.cfg -c "program picow_access_point.elf verify reset exit"

書き込み。

$ minicom -o -D /dev/ttyACM0

PICO-Wをリセットし、プログラムに設定したWIFI　SSIDに接続して、ブラウザで、
http://192.168.4.1
URLでWEBページが表示される。LED ON/OFFをクリックするとUSBコネクタ脇の緑LEDが点滅する。

[access-point.png]

参照ドキュメント

　PicoW-A4-Pinout.pdf
　debug-connector-specification.pdf
　getting-started-with-pico.pdf
　pico-w-datasheet.pdf
　raspberry-pi-pico-c-sdk.pdf
　raspberry-pi-pico-python-sdk.pdf
  connecting-to-the-internet-with-pico-w.pdf

  https://www.raspberrypi.com/documentation/microcontrollers/debug-probe.html
  Raspberry Pi Debug Probe - About the Debug Probe


2023-12-01　「オートフォーカスカメラIMX519 INSTALL」
Piカメラ Arducam 16MP IMX519搭載 オート フォーカス [B0371]
==== bookworm =======arm64=======
Quick Start
https://docs.arducam.com/Raspberry-Pi-Camera/Native-camera/Quick-Start-Guide/

libcamera and libcamera-apps
https://docs.arducam.com/Raspberry-Pi-Camera/Native-camera/Libcamera-User-Guide/#autofocusmanual-focus-function
...

Quick Start / SOFTWARE GUIDE for IMX519 Autofocus Camera

wget -O install_pivariety_pkgs.sh https://github.com/ArduCAM/Arducam-Pivariety-V4L2-Driver/releases/download/install_script/install_pivariety_pkgs.sh

chmod +x install_pivariety_pkgs.sh

./install_pivariety_pkgs.sh -p libcamera

./install_pivariety_pkgs.sh -p libcamera_apps

sudo nano /boot/config.txt 
...
dtoverlay=imx519
...追加

sudo reboot

libcamera-jpeg -o test.jpg
libcamera-still -t 5000
libcamera-still -t 5000 -n -o test.jpg
libcamera-still -t 0 --autofocus-mode auto
libcamera-vid -t 10000 -o test.h264
libcamera-still -t 5000 --datetime -n --timelapse 1000
libcamera-vid -t 50000 --autofocus-mode continuous  --framerate 1 --autofocus-speed fast -n -o test.h264


2023-11-09 「google翻訳」
●Google翻訳,スピーチ

$ sudo apt install python3-venv
$ sudo apt install sox libsox-fmt-all
$ python3 -m venv venv
$ source venv/bin/activate

(venv) pi@xxxxx:~ $ pip3 install googletrans==4.0.0-rc1

(venv) pi@xxxxx:~ $ nano tr.py
---
from googletrans import Translator
tr = Translator()
txt = "I'm here."
ja1 = tr.translate(txt, src="en", dest="ja")
print("翻訳結果：",end='')
print(txt,end='')
print(" ==> ",end='')
print(ja1.text)
---
(venv) pi@xxxxx:~ $ python tr.py
翻訳結果：I'm here. ==> 私はここにいます。

(venv) pi@xxxxx:~ $ pip3 install google-speech

(venv) pi@xxxxx:~ $ google_speech -h

sox EFFECTを追加する。(-e の位置注意）
(venv) pi@xxxxx:~ $ google_speech -e speed 0.8 -l en "Hello"
ファイルへ。
(venv) pi@xxxxx:~ $ google_speech -l en -o out1.mp3 "Hello"; sox out1.mp3 out2.mp3 speed 0.8

●DOCKERコンテナ

１．Dockerfile

---
# translate/Dockerfile
FROM arm64v8/debian
MAINTAINER “K.Shimoura"
ENV container docker
ENV DEBIAN_FRONTEND noninteractive
#           SIGNAL=37
STOPSIGNAL SIGRTMIN+3
#　root パスワード設定
RUN printf "rootdocker\nrootdocker\n"| passwd > /dev/null 2>&1
RUN apt update
#　ロケール設定
RUN apt install -y locales locales-all
ENV LC_ALL ja_JP.UTF-8
ENV LANG ja_JP.UTF-8
ENV LANGUAGE ja_JP.UTF-8
ENV TZ Asia/Tokyo
RUN echo 'export LC_ALL="ja_JP.UTF-8"' >> /etc/profile
RUN echo 'export LANG="ja_JP.UTF-8"' >> /etc/profile
RUN echo 'export LANGUAGE="ja_JP:jp"' >> /etc/profile
RUN echo 'export TZ="Asia/Tokyo"' >> /etc/profile
RUN ln -snf /usr/share/zoneinfo/$TZ /etc/localtime && echo $TZ > /etc/timezone
# 1 ユーザ登録
#　ユーザ作成
RUN echo "pi:pidocker:1000:1000:,,,:/home/pi:/bin/bash"|newusers
#　ユーザ 設定
RUN cp -r /etc/skel/.[a-z]* /home/pi
RUN chown -R pi:pi /home/pi
RUN adduser pi audio
# アプリケーションインストール
RUN apt install -y alsa-utils
RUN apt install -y nano python3 python3-pip git
RUN apt install -y python-is-python3
RUN apt install -y python3-venv
RUN apt install -y sox libsox-fmt-all
RUN su - pi -c "python3 -m venv /home/pi/venv"
RUN su - pi -c "/bin/bash -c 'source /home/pi/venv/bin/activate;pip3 install googletrans==4.0.0-rc1'"
RUN su - pi -c "/bin/bash -c 'source /home/pi/venv/bin/activate;pip3 install google-speech'"
RUN apt install -y sudo
RUN printf 'pi ALL=(ALL) NOPASSWD: ALL\n' > /etc/sudoers.d/010_pi-nopasswd
RUN echo "if [ -n \$VIRTUAL_ENV_PROMPT ]; then PS1=\"\$VIRTUAL_ENV_PROMPT\$PS1\";fi"| tee -a /home/pi/.bashrc
# ユーザpiで実行
WORKDIR /home/pi
COPY config.sh /home/pi
RUN chmod +x /home/pi/config.sh
RUN chown pi:pi /home/pi/config.sh
USER pi
CMD ["/home/pi/config.sh"]
#CMD ["/home/pi/config.sh", "USB Sound Device" ]
#  コンテナ内でaplay -l での一覧でMP3,声を再生するデバイス名を引数で与える
#  声を再生しないときはデバイス名を省略する
---

２．環境設定
   $ nano config.sh
---
#!/bin/bash
# P1: sound device
if [ "$1" != "" ]; then
  sa=`aplay -l | grep "$1"| sed -e "s/^[^0-9]\+\([0-9]\+\).*$/\1/"`
  printf "defaults.pcm.card ${sa}\ndefaults.ctl.card ${sa}\n" | sudo tee /etc/asound.conf
fi
source /home/pi/venv/bin/activate;/bin/bash
---作成

３．コンテナ作成

   $ docker build -t arm64/translate .

４．コンテナ実行

   $ docker run -ti --rm -v ~/mp3:/home/pi/mp3 --name translate arm64/translate
     音を出す場合は、--privileged を指定する。mp3ファイル作成はいらない。

５．コマンド実行

   (venv) pi@xxxxxxxx:~$ nano tr.py
   ---
   from googletrans import Translator
   tr = Translator()
   txt = "I'm here."
   ja1 = tr.translate(txt, src="en", dest="ja")
   print("翻訳結果：",end='')
   print(txt,end='')
   print(" ==> ",end='')
   print(ja1.text)
   ---
   (venv) pi@xxxxxxxx:~$ python tr.py
   翻訳結果：I'm here. ==> 私はここにいます。

   (venv) pi@xxxxxxxx:~$ google_speech -h
   (venv) pi@xxxxxxxx:~$ google_speech -l en -o mp3/out1.mp3 "Hi, How are you?"
   (venv) pi@xxxxxxxx:~$ sox mp3/out1.mp3 mp3/out2.mp3 speed 0.8

５．コンテナ終了

　 (venv) pi@xxxxxxxx:~$ exit

2023-03-07　「jupyter notebook, scikit-learn インストール」
■東京大学のデータサイエンティスト育成講座
　塚本邦尊、 山田典一、 大澤文孝　著　　　　　　マイナビ出版　2019(1),2022(17)

　サンプルデータをダウンロードしてやってみた。
　サンプルデータはまだ修正されていなので本のプログラムのように修正する。

☆Chapter2-3-2-2 固有値と固有ベクトル
　# 固有値と固有ベクトル
　eig_value, eig_vector = linalg.eig(matrix)

　# 固有値と固有ベクトル
　print('固有値')
　print(eig_value)
　print('固有ベクトル')
　print(eig_vector)
  ------
  固有値
  [-1.+0.j  2.+0.j  2.+0.j]
  固有ベクトル
  [[-0.577 -0.578  0.579]
   [-0.577 -0.21  -0.788]
   [-0.577  0.788  0.209]]
  ----
  numpy.linag.eig()でも同じ
　Windowsマシンでもやってみたが本に記載されたような数値にはならない。
  ----
  import numpy as np
  import scipy as sc
  a = np.array([[1,-1,-1],[-1,1,-1],[-1,-1,1]])
  sc.linalg.eig(a)

  (array([-1.+0.j,  2.+0.j,  2.+0.j]),
   array([[ 0.57735027,  0.81649658,  0.40824829],
          [ 0.57735027, -0.40824829, -0.81649658],
          [ 0.57735027, -0.40824829,  0.40824829]]))
  ---

　WEB上の他の配列データを見てやってみたが、示されている数値になるものはある。
　本の配列データは誤差が大きくなるものなんだろうか？
　データサイエンスをやって見るにはいいきっかけなのかもしれない。

☆Chapter4-4-3-1 で３Dグラフが書けないのが気になって調べてみた。

　”<Figure size 600x400 with 0 Axes>”これは３Dグラフから出るメッセージなんだ。
　グラフは出ない。

　参考：　https://matplotlib.org/2.0.2/mpl_toolkits/mplot3d/tutorial.html
　　　　　mplot3d tutorial　　　　　　　　　　　　より
　そこでplot_wireframe()例にあるように修正する。
　----
  fig = plt.figure(dpi=100)

  # ax = Axes3D(fig)
  ax = fig.add_subplot(111, projection='3d') # <<<===
  ax.plot_wireframe(x, y, z)

  # x,y,zラベルの設定など
  ax.set_xlabel('x')
  ax.set_ylabel('y')
  ax.set_zlabel('f(x, y)')
  ----

　その他に、
　---
  %matplotlib notebook
  ---
  とするとマウスでグルグル回せることがわかった。

　もうひとつ、この本はanaconda環境でやると便利といっていますが、Raspberry piでは今のところインストール環境が
　ない。minicondaがあるというので検索してみた。
　元ネタ：https://stackoverflow.com/questions/71150891/raspberry-pi-3-miniconda-install-aarch64-error
　　　　　Raspberry Pi 3 Miniconda install aarch64 error
　この手順でやってみた。
　ーー
　$ wget https://github.com/conda-forge/miniforge/releases/download/22.11.1-4/Mambaforge-22.11.1-4-Linux-aarch64.sh
　$ bash Mambaforge-22.11.1-4-Linux-aarch64.sh
  ライセンス表示、インストールするかの質問がくる。
　インストールが終わると、「Do you wish the installer to initialize Mambaforge by running conda init?」
　と聞かれてyesとすると.bashrcに自動的に端末ターミナルを開くとconda initが実行されるスクリプトが追加される。
　NOとする。
　$ nano ~/.bashrc
  ---
  export PATH="/home/ユーザ名/mambaforge/bin:$PATH"
  ---を最後に追加する。
　$ source ~/.bashrc
   PATHが追加される。
　$ conda init
  $ conda list
   インストールされているのが表示される。なにもない。conda環境だけである。
　元ネタではsudoコマンドであるがsudoにすると/root/.bashrc , /rootに環境ができてしまう。
　本には使うモジュールはまとまって記載されているので手でやってもいいかなと思う。
　特にCONDA環境でなくてもできるので使わないことにした。

☆Chapter5-3-3-3 微分方程式の計算
　３Dグラフが出ない。3Dの設定の関数呼び出しが誤りになっている。
　mplot3d tutorialより、同様に修正する
　---
  # 関数の呼び出し
  v = odeint(lorenz_func, v0, t, args=(p, r, b))

  # 可視化
  fig = plt.figure()
　#　ax = fig.gca(projection='3d')
  ax = fig.add_subplot(111,projection='3d')  # <<<=== 修正
  ax.plot(v[:, 0], v[:, 1], v[:, 2])

  # ラベルなど
  plt.title('Lorenz')
  plt.grid(True)
  ---
☆Chapter6  数値が半分くらいのがある。
　　　　　　他にもある。
　『手を動かして学ぶデータ分析』なんです。
　表示された数値があっていたり、末尾の数値が１，２桁違っていたとしたら正しいと思えるが、それ以外は
　グラフのプロットする位置が違っていたり、数値が半分、倍の時っはなんとも言えない。

　バカが開けてはいけない”データサイエンス”の扉かもしれない。

☆Chapter10でload_boston()が使われていた。エラーメッセージに表示される手順でやってみた。

　[load_boston]

 ---- Iload_boston.ipynb -------
# # ボストンデータをインターネットから読み込む
# 
#   load_boston() で出るエラーメッセージより作成

# In[1]:


import pandas as pd
import numpy as np
from sklearn.utils import Bunch
from io import StringIO
import requests

def Iload_boston():
    data_url = "http://lib.stat.cmu.edu/datasets/boston"
    try:
        file_data = requests.get(data_url).text
        # bostonテキスト行データ
    except:
        print("インターネットデータ退避できていません")
        return None
    
    idata = pd.read_csv(StringIO(file_data), sep="\s+", skiprows=22, header=None)
    # 先頭22行読み飛ばし BOSTONデータ数値抽出
    vdata = np.hstack([idata.values[::2, :], idata.values[1::2, :2]])
    # 現行　1カラム目から、１１データ　次の行に　1カラム目から、２データ ＝　BOSTON数値データ
    target = idata.values[1::2, 2]
    # 次の行の　3カラム目をtaget データ
    raw_feature_names = pd.read_csv(StringIO(file_data), sep="\s+", skiprows=7,nrows=13,usecols=[0], header=None)
    # ファイル　8行目から、１３行分が boston データ表のタイトル
    feature_names = raw_feature_names[0].to_list()
    # タイトルの行型データから、リスト型に変換
    return Bunch(data=vdata,target=target,feature_names=feature_names)


# In[2]:


qdata = Iload_boston()

# DataFrameにデータを格納
X = pd.DataFrame(qdata.data, columns=qdata.feature_names)

# 住宅価格の中央値（MEDV）のデータを用意
y = pd.Series(qdata.target, name='MEDV')

# Xとyを結合して先頭の5行を表示
X.join(y).head() 
-----

■jupyter-notebook インストール

　　$ sudo apt install -y jupyter-notebook
   $ jupyter notebook --generate-config

   jupyter notebook 環境設定　パスワード設定
   $ jupyter notebook password
  
   実行は、プログラム格納ディレクトリで
　　$ jupyter notebook
   (X winowのデスクトップOSでlocalhost接続でブラウザが起動する）

　　$ jupyter notebook --ip=* --no-browser
   (別PCのブラウザで使う）
　　
   python言語以外でも使おうと思えば、”！シェルスクリプト”で　stdoutの結果が残せるのでいいかも。

■英文構文解析
　参考：https://qiita.com/krang/items/6e34c595ac77e46c3650
　　　　pythonのnltkライブラリを使ってstanford parserを導入する

　java インストールを追加した。
　RUN apt install -y openjdk-17-jdk

　[構文解析]
 
　docker run  {scikit-learnデモ解凍ディレクトリ}　に、
　
　　https://stanfordnlp.github.io/CoreNLP/
　　Stanford CoreNLP – Natural language software

　　[Download CoreNLP 4.5.2] ボタンクリックしてダウンロードしたものを解凍する。
　その後、コンテナを起動する。

----- jupyter notebook -----
# In[1]:


from nltk.parse.stanford import *
# stanford corenlp ダウンロードしたディレクトリ（Docker内から見えるのもの）
JAR_FILE = "/home/pi/EXT/stanford-corenlp-4.5.2/stanford-corenlp-4.5.2.jar"
MODEL_FILE = "/home/pi/EXT/stanford-corenlp-4.5.2/stanford-corenlp-4.5.2-models.jar"
sentence = 'The brown fox is quick and he is jumping over the lazy dog.'
parser = StanfordParser(JAR_FILE,MODEL_FILE)
out = parser.raw_parse(sentence)
trees = list(out)


# In[2]:


from IPython.display import display, SVG, HTML
from nltk.tree import Tree, TreePrettyPrinter

print("英文解析のやり方＝",len(trees))
tree = trees[0]
ctree = str(tree)
print("\n   --- キャラクタグラフィック ---")
tree.pretty_print()
print("\n   --- ＳＶＧグラフィック ---")
display(SVG(TreePrettyPrinter(Tree.fromstring(ctree)).svg()))
---- jupyter end ------------

   ====================================================
   JAVAで起動する stanfordnlpは、使い方に２種類の方法がある。
　　上記のように解釈するたびに起動する方法とサーバーとして動作させる
　　方法がある
　　SVGの作成は、
　　①TreePrettyPrinter(Tree.fromstring(ctree)).svg()
　　②img = svgling.draw_tree(trees[0])
     svg_data = img.get_svg()
   パーサデータで木構造SVGを作るには, nltk, svglingで作成する２種類ある
   ====================================================

　[音声録音]

  音声で確認する。

　java インストールを追加した。
  ..
  # sound インストール
  RUN apt install -y alsa-utils
  RUN printf 'defaults.pcm.card 2\ndefaults.ctl.card 2\n' > /etc/asound.conf
  RUN apt install -y sox libsox-fmt-all
  ;;
  RUN pip3 install googletrans==4.0.0-rc1
  RUN pip3 install google_speech
  RUN echo 'rootdocker'| su - root -c "adduser pi audio"
  ..

  docker run に　、--privileged を指定する

-----jupyter notebook -----
# In[1]:


from googletrans import Translator

txt = input("英文を入力してください :")
''' 英語・日本語　翻訳'''
tr = Translator()
ja1 = tr.translate(txt, src="en", dest="ja")
print("\n翻訳結果：",end='')
print(txt,end='')
print(" ==> ",end='')
print(ja1.text)


# In[2]:


from google_speech import Speech
from IPython.display import display, HTML

''' 英文を読み上げます MP3ファイルで録音します '''
speech = Speech(txt, "en")
speech.play()
filn = "speech.mp3"
speech.save(filn)


# In[3]:


display(HTML("<audio controls src=\"speech.mp3\" type=\"audio/mp3\">英語発音</audio></br>"))
-----jupyter end -----


■scikit-learn インストール

  scikit-learn WEB ページに従って。

  https://scikit-learn.org ==>> Getting Started ==>> installation instructions ==>> 
      [Third party distributions of scikit-learn] . [Debian/Ubuntu]

　　$ sudo apt install -y python3-sklearn python3-sklearn-lib

    https://stackoverflow.com/questions/35064304/runtimeerror-make-sure-the-graphviz-executables-are-on-your-systems-path-aft 
   「RuntimeError: Make sure the Graphviz executables are on your system's path" after installing Graphviz 2.38」
     より
    $ sudo apt install -y graphviz
       
    scikit-learnデモで使うものの追加
    $ pip3 install graphviz
    $ pip3 install pooch
    $ pip3 install plotly
    $ pip3 install annoy
    $ pip3 install nmslib
    $ pip3 install pooch
    $ pip3 install mlxtend
    $ sudo apt install python3-skimage

    グラフのタイトルに日本語を使う場合に、
    $ pip3 install japanize-matplotlib

    サンプルデモのページにあるように、examplesを始める前に必ずやること。
　　$ pip3 install --upgrade scikit-learn

▶ sci kit learn 1.2.1 Examples

　　https://scikit-learn.org/stable/auto_examples/index.html

　　下にあるデータをダウンロードする。
    適当なディレクトリに解凍する。

●●●●●　DOCKERインストール　●●●●●　
Dockerコンテナにインストールする

1. Dockerfile

---
# arm64/bullseye-skl/Dockerfile
FROM arm64v8/debian
MAINTAINER “K.Shimoura"
ENV container docker
ENV DEBIAN_FRONTEND noninteractive
#           SIGNAL=37
STOPSIGNAL SIGRTMIN+3
#　root パスワード設定
RUN printf "rootdocker\nrootdocker\n"| passwd > /dev/null 2>&1
RUN apt update
#　ロケール設定
RUN apt install -y locales locales-all
ENV LC_ALL ja_JP.UTF-8
ENV LANG ja_JP.UTF-8
ENV LANGUAGE ja_JP.UTF-8
ENV TZ Asia/Tokyo
RUN echo 'export LC_ALL="ja_JP.UTF-8"' >> /etc/profile
RUN echo 'export LANG="ja_JP.UTF-8"' >> /etc/profile
RUN echo 'export LANGUAGE="ja_JP:jp"' >> /etc/profile
RUN echo 'export TZ="Asia/Tokyo"' >> /etc/profile
RUN ln -snf /usr/share/zoneinfo/$TZ /etc/localtime && echo $TZ > /etc/timezone
# 1 ユーザ登録
#　ユーザ作成
RUN echo "pi:pidocker:1000:1000:,,,:/home/pi:/bin/bash"|newusers
#　ユーザ 設定
RUN cp -r /etc/skel/.[a-z]* /home/pi
RUN chown -R pi:pi /home/pi

# アプリケーションインストール
RUN apt install -y nano python3 python3-pip git
# jupyter-notebook インストール
RUN apt install -y jupyter-notebook
# scikit-learn インストール
RUN apt install -y python3-sklearn python3-sklearn-lib graphviz
RUN apt install -y python3-skimage
# java インストール
RUN apt install -y openjdk-17-jdk
# sound インストール
RUN apt install -y alsa-utils
RUN printf 'defaults.pcm.card 2\ndefaults.ctl.card 2\n' > /etc/asound.conf
RUN apt install -y sox libsox-fmt-all
# ユーザpiで実行
WORKDIR /home/pi
USER pi
# jupyter notebook 環境設定
RUN jupyter notebook --generate-config
RUN sed -i -e "s/# c.NotebookApp.open_browser.*$/c.NotebookApp.open_browser = False/" /home/pi/.jupyter/jupyter_notebook_config.py
RUN sed -i -e "s/# c.NotebookApp.ip.*$/c.NotebookApp.ip = '*'/"  /home/pi/.jupyter/jupyter_notebook_config.py
# jupyter notebook 環境設定　パスワード設定
#RUN pss=`shuf -i 1-239 -n 1`; echo "jupyter$pss" > /home/pi/.jupyter/pss.txt; \
#    echo "jupyter$pss"|python3 -c 'from notebook.auth import passwd;print("{\n  \"NotebookApp\": {\n    \"password\": \"",end=""); print(passwd(input()),end=""); print("\"\n  }\n}")' > /home/pi/.jupyter/jupyter_notebook_config.json; \
#    echo "";echo "jupyter notebookパスワード: jupyter$pss"; echo ""
RUN pss='skldocker'; echo "$pss" > /home/pi/.jupyter/pss.txt; \
    echo "$pss"|python3 -c 'from notebook.auth import passwd;print("{\n  \"NotebookApp\": {\n    \"password\": \"",end=""); print(passwd(input()),end=""); print("\"\n  }\n}")' > /home/pi/.jupyter/jupyter_notebook_config.json; \
    echo "";echo "jupyter notebookパスワード: $pss"; echo ""
RUN chmod 600 /home/pi/.jupyter/jupyter_notebook_config.json
RUN chmod 400 /home/pi/.jupyter/pss.txt

# scikit-learn python module インストール
RUN pip3 install numpy scipy matplotlib ipython pandas pillow graphviz mglearn
RUN pip3 install pooch plotly annoy nmslib pooch nltk spacy
RUN pip3 install japanize-matplotlib
RUN python3 -m spacy download en
RUN pip3 install --upgrade scikit-learn
RUN pip3 install mlxtend
RUN python3 -c "import nltk;nltk.download('all')"
RUN pip3 install googletrans==4.0.0-rc1
RUN pip3 install google_speech
RUN echo 'rootdocker'| su - root -c "adduser pi audio"
---
　jupyter-notebook パスワードは適当なものに修正すること。pss='skldocker' ==> pss='xxxx'。
　パスワードの確認は、コンテナ実行中に、
　　docker ps
    docker exec {docker psでのコンテナID} cat /home/pi/.jupyter/pss.txt
  で表示できるように/home/pi/.jupter/pss.txtに書き込んでいる。
　jupyter-notebook 動作環境のうちで、IPアドレスは特に制限なし、ローカルブラウザは起動しないに設定している。
　 (jupyter notebook --ip=* --no-browser と同じ)
　nltkがインストールされるのでnltkデータを全ダウンロードする。

2. build

 $ docker build -t arm64/bullseye-skl .

3. run

 $ docker run -ti --rm -v {scikit-learnデモ解凍ディレクトリ}:/home/pi/EXT -p 8888:8888 arm64/bllseye-skl bash -c "cd EXT;jupyter notebook;bash"

    bash -c の最後の　bash　はjupyter-notebookを終了してもコンテが実行終了しないように。
    HTTPポートは、-p 8888:8888　の　-p {他のポートとかさならないポート番号}:8888　に修正すること。

    コンテナ実行前に
　　https://scikit-learn.org/stable/auto_examples/index.html　WEBページ下にあるjupyter-notebook用のzipファイルを
    {scikit-learnデモ解凍ディレクトリ}に解凍しておく。

4. scikit-learn,pythonを使うには他のPCのブラウザから

　他のPCのブラウザで、
　　http://{IPアドレス}:8888
  で使う。

　使ったプログラムとデータは、コンテナ外の{scikit-learnデモ解凍ディレクトリ}に残る。

5. パッケージ、モジュールが足りない場合

　　docker ps

    apt install する場合、
    　docker exec -ti -u root コンテナID　bash

    pip3 install する場合、
    　docker exec -ti コンテナID　bash

    カレントディレクトリが　/home/pi/EXT になっているので注意する。
　　パッケージ、モジュールを追加した場合、その他のメモリを修正した場合はコンテナ終了でなくなるので
　　残したい場合は必ず docker commit すること。
　　commitする前にjupyter-notebookは終わらせておいたほうがいいかもしれない。

参照：https://qiita.com/alchemist/items/ce7f6790bdc2c7cee674
　　　投稿日 2019年06月22日　更新日 2019年06月22日
　　　2019年版 リモートサーバでJupyter Notebookを実行する方法


＃＃＃＃＃＃＃＃　以下は参考資料　＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃

モジュールが日々アップデートされているのでインストールし直した時、思わぬところでエラーが出る場合がある。

pandas.plotでは、タイトルに日本語があると文字ばけする場合、

1) OSにインストールされているフォントファミリーを確認

　$ fc-list -f "%{family}\n"
  ..
    ::
  IPA Pゴシック,IPAPGothic
  Takao Pゴシック,TakaoPGothic
  IPA P明朝,IPAPMincho
  IPAゴシック,IPAGothic
  Takao P明朝,TakaoPMincho
  Takao Pゴシック,TakaoPGothic
  Takao明朝,TakaoMincho
  Takao P明朝,TakaoPMincho
  Takaoゴシック,TakaoGothic
    ::
  ..

2) 日本語フォントが見つからない場合
　fonts-takaoか　fonts-ipafontをインストールする。

3) matplotlibにフォントを選択する

  ---python code--
  import matplotlib
  #matplotlib.rc('font', family='TakaoPMincho')
  matplotlib.rc('font', family='IPAGothic')

  または
　import matplotlib.pyplot as plt
  plt.rcParams['font.family'] = 'IPAGothic"

　または、
　import matplotlib.pyplot as plt
　import japanize_matplotlib


4) それでも文字化け

　$ ls ~/.cache/matplotlib
    fontlist-v330.json 表示されたjsonファイル削除
  $ rm ~/.cache/matplotlib/fontlist-v330.json

　Jupyter notebook　カーネル再起動

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

▶ sci kit learn 1.2.0 Examples
　　https://scikit-learn.org/stable/auto_examples/index.html

　　下にあるデータをダウンロードする。
　　動かないのは2,3個なのでscikit learn元にあるのが一番かな。

    $ sudo apt install python3-skimage
    $ pip3 install pooch
    $ pip3 install plotly
    $ pip3 install annoy
    $ pip3 install nmslib
    $ pip3 install pooch

▶オライリー
　「Pythonではじめる機械学習」　
...

  github からサンプルダウンロード

 $ git clone  https://github.com/amueller/introduction_to_ml_with_python.git

ダウンロードしたサンプルプログラムが実行できる。
そのままでは　bostonデータ　を使うことができない。
bostonデータ以外では、結果がずれているのがある。

①load_boston() でエラーとなる。load_boston() 自分用に作る。
  load_boston()は上記のように。 

def plot_learning_curve(est, X, y):
    training_set_size, train_scores, test_scores = learning_curve(
        est, X, y, train_sizes=np.linspace(.1, 1, 20), cv=KFold(20, shuffle=True, random_state=1))
    estimator_name = est.__class__.__name__
    line = plt.plot(training_set_size, train_scores.mean(axis=1), '--',
                    label="training " + estimator_name)
    plt.plot(training_set_size, test_scores.mean(axis=1), '-',
             label="test " + estimator_name, c=line[0].get_color())
    plt.xlabel('Training set size')
    plt.ylabel('Score (R^2)')
    plt.ylim(0, 1.1)

def load_boston_extended():
    boston = load_boston()
    X = boston.data

    X = MinMaxScaler().fit_transform(boston.data)
    X = PolynomialFeatures(degree=2, include_bias=False).fit_transform(X)
    return X, boston.target

def plot_ridge_n_samples():
    X, y = load_boston_extended()

    plot_learning_curve(Ridge(alpha=1), X, y)
    plot_learning_curve(LinearRegression(), X, y)
    plt.legend(loc=(0, 1.05), ncol=2, fontsize=11)
....
実行sklearnディレクトリに。
./load_boston.py

使う時、
---------source----
import load_boston

boston = load_boston.load_boston()
X, y = load_boston.load_boston_extended()
-------------------
あとは、import load_boston でエラーが出たらコメントにする。

②エラーになる。

$ nano preamble.py
---
from mglearn import plot_helpers　＜＜＝＝追加
import mglearn
from cycler import cycler

set_matplotlib_formats('pdf', 'png')
plt.rcParams['savefig.dpi'] = 300
plt.rcParams['image.cmap'] = "viridis"
plt.rcParams['image.interpolation'] = "none"
plt.rcParams['savefig.bbox'] = "tight"
plt.rcParams['lines.linewidth'] = 2
plt.rcParams['legend.numpoints'] = 1
plt.rc('axes', prop_cycle=(
    cycler('color', plot_helpers.cm_cycle.colors) +                      ＜＜＝＝修正
    cycler('linestyle', ['-', '-', "--", (0, (3, 3)), (0, (1.5, 1.5))])))
...修正

３章のサンプル実行で写真の色がでないのがあるのでこの修正では足りない。

③memoryでエラーになる。

$ nano ~/.local/lib/python3.9/site-packages/mglearn/plot_nmf.py
---
#memory = Memory(cachedir="cache")
memory = Memory("cachedir")
---修正
$ nano ~/.local/lib/python3.9/site-packages/mglearn/plot_pca.py
---
memory = Memory("cachedir")
--- 修正

④その他
$ nano ~/.local/lib/python3.9/site-packages/mglearn/datasets.py
---
#from sklearn.datasets import load_boston
;;
#from .make_blobs import make_blobs
from sklearn.datasets import make_blobs
：：
def make_forge():
    # a carefully hand-designed dataset lol
    X, y = make_blobs(centers=2, random_state=4, n_samples=30)
    y[np.array([7, 27])] = 0
    mask = np.ones(len(X), dtype=bool)　＜＜＝＝np.bool修正
    mask[np.array([0, 1, 5, 26])] = 0
    X, y = X[mask], y[mask]
    return X, y

---修正
同様に

$ nano  ~/.local/lib/python3.9/site-packages/mglearn/tools.py
---
def make_handcrafted_dataset():
    # a carefully hand-designed dataset lol
    X, y = make_blobs(centers=2, random_state=4, n_samples=30)
    y[np.array([7, 27])] = 0
    mask = np.ones(len(X), dtype=bool)  ＜＜＝＝＝
    mask[np.array([0, 1, 5, 26])] = 0
    X, y = X[mask], y[mask]
    return X, y
---修正

$ nano ~/.local/lib/python3.9/site-packages/mlxtend/evaluate/holdout.py
---
    def split(self, X, y, groups=None):
---も同様に修正する。

編集：03-unsupervised-learning.ipynb

IN[24]　mask = np.zeros(people.target.shape, dtype=bool)
..
（★３Dグラフがかけない。）
（★顔写真が黒くなる。）

編集：04-unsupervised-learning.ipynb

IN[14]  print(ohe.get_feature_names_out())
IN[35]  print("Polynomial feature names:\n{}".format(poly.get_feature_names_out()))
IN[38]  print("Polynomial feature names:\n{}".format(poly.get_feature_names_out()))
IN[71]  features_poly = poly_transformer.get_feature_names_out(features)

..

★★：05-unsupervised-learning.ipynb

IN[24]  mglearn.plots.plot_cross_val_selection()
でエラーになる。(??)

★★：06-unsupervised-learning.ipynb

OUT[27]  結果数値が一致しない。

編集：07-unsupervised-learning.ipynb

IN[16]  feature_names = vect.get_feature_names_out()
IN[21]  feature_names = vect.get_feature_names_out()

他の.get_feature_namesも、.get_feature_names_outに修正する。
..

★★：07-unsupervised-learning.ipynb

IN[35]  pipe = make_pipeline(TfidfVectorizer(min_df=5), LogisticRegression())
        ::
        :: の欄で中断する。


▶秀和システム
　scikit-learn データ分析 実装ハンドブック
...
モジュールgoogle以外はない時pip3 installする。

load_bostonでエラーになるので、「PYTHONではじめる機械学習」で使ったファイルを、
実行ディレクトリに、data, descrを作成し、ファイルをコピー。
./data/boston_house_prices.csv
./descr/boston_house_prices.rst
./load_boston.py

使う時の直前で、
ーーーーーーーー
import os
import sys
import subprocess
s = subprocess.check_output("pwd")

sys.path.append(os.path.join(s.decode('utf-8').replace("\n", ""), '..'))

#print(s.decode('utf-8').replace("\n", ""))
import pprint
pprint.pprint(sys.path)
ーーーーーーーーーを実行する。
使うところで、
---------source----
import load_boston
boston = load_boston.load_boston()
にする。

section3_4_1.ipynb　　確率的勾配降下法の回帰モデルを作成　でエラー。
section3_7_1.ipynb　　決定木回帰のモデルを作成 でエラー。
section3_7_2.ipynb　　ランダムフォレスト回帰のモデルを作成　でエラー。
section4_4_1.ipynb　　最初のグラフがでない。
                      訓練データのプロットの　前に　%matplotlib inline、あとにplt.show()。 
section4_4_2.ipynb
                      訓練データのプロットの　前に　%matplotlib inline、あとにplt.show()。 
section4_5_1.ipynb    google.colab がないのでエラー。

８章はプログラムがない。

▶seaborn 徹底入門！Pythonを使って手軽で綺麗なデータ可視化８連発
https://www.codexa.net/seaborn-python/
（きれいなグラフが書ける）

$pip3 install seaborn
--
#sns.distplotでヒストグラムを描く
sns.displot(df['age'], kde=True)
#確率密度関数を除き、ヒストグラムのみを描く
sns.histplot(df['age'])
--

★注意
~/.local/lib/python3.9/site-packages/mglearn/　ディレクトリはpip3 install mglearnを実行した場合
なしのときは、introduction_to_ml_with_python/mglearnにある。
エラー表示のファイルパスをよくみること。
---------------------------------
markdown
  行先頭改行1個と次の行4空白（tabキー）＋テキスト、それ以降のHTML文字コードはエスケープ文字にしてくれる
　その後は4空白＋テキストもHTML文字コードはエスケープ文字にしてくれる
　zip, pdfファイルを貼るときは,行先頭改行1個と次の行4空白でなければ、「<a href='./test.pdf'>test</a>」HTML　Aタグコーディングすれば良い。

2024-04-02　「Raspberry pi OS」
□□□□□□□□□□□
☆2024-03-12 bookworm Desktop イメージ
chromium バージョン: 123.0.6312.86 にするとWayland で日本語入力ができるようになる。
いいことだ。Raspberry pi設定でブラウザの選択ができなくなっている。
スクリーンショットはgrimがインストールされている。キーprint screenでスクリーンショットされる。
slurp もインストールするとマウスで範囲指定するとその範囲がスクリーンショットされる。
fcitx-mozcが自動インストールされない。

☆2023-12-05 bookworm Desktop イメージ
raspi-configでWaylandを無効にすると、タスクバーにあるシステムアップデートアイコンに表示されるメセージが英語になる。
Waylandでは、日本語表示。

☆2023-10-10 bookworm Desktop イメージ
アクセサリimager がUPDATEされている。
機種から選択すると６４ビットOSが奥の方になった。
説明書を読む人が少ないのかな？

apt updateでワーニングが出ることがある。
参考：https://github.com/MichaIng/DietPi/issues/6463
　　　Bookworm | Mirror warnings #6463
対処方法がある。11-5現在では出ていない。

☆2023-10-10 arm32 bookworm Desktop イメージ
初回の起動OSセットアップで日本語キーボードにし、その後、raspi-configでWaylandを無効にすると、キーボードがUS配列になる。
いくら設定し直してもだめである。設定を確認しても日本語になっているのになぜ？？？
(通常はUS配列のキーボードを使っているのでわからなかった）
raspi-configでWaylandを有効にし直すと正常になる。

☆2023-10-10 arm64 bookworm Desktop イメージ
ブラウザが,Chromium,firefox 選択可能になっている。
Chromium バージョン: 116.0.5845.102
検索入力フィールドに日本語入力ができない。なぜ？

参照：https://qiita.com/aratetsu_sp2/items/6bd89e5959ba54ede391
　　　Bookworm (Raspberry Pi OS)のChromiumで日本語入力できない現象について

RaspberryPi 4Bで、
chromium-viewer --ozone-platform=x11ではブラウザは開かない。
chromium-browser --ozone-platform=x11 では入力できない。
raspi-configでWaylandを無効にし、reboot後は入力できる。
Wifi 2.4Ghzの接続がよくなったような気がする。

Rasberry pi 3Bは６４ビットOSで入力できる。ディスプレイのブランク黒表示は初期設定がオン。

・・・
Desktop画面がチカとフラッシュする。ディスプレイとかの環境によるかも？
OS フルバージョンはoffice,Mathematica, KiCAD付き。

ディスプレイのブランク黒表示は設定がオフなのでRaspberry Piの設定でディスプレイの画面のブランクでオン設定する。
固定IPアドレスの設定方法が変わった。

「Bookworm 固定IPアドレス設定方法」
◆方法１
タスクバーのネットワークアイコンをクリック。下のAdvanced Options選択。
「接続を編集する」でデバイスを選択して”歯車”クリック。
IPV4設定タグより、「固定IPアドレス」、「ネットマスクビット数」、「ゲートウェイ」、「DNSサーバー」
を設定。

◆方法２
参照：
https://itslinuxfoss.com/set-up-static-ip-address-debian-12-linux/
How to Set Up a Static IP Address on Debian 12 Linux
（Method2より）

(1)ネットワークデバイス接続、UUID確認

$ nmcli con show
NAME        UUID                                  TYPE      DEVICE 
有線接続 1  xxxxxxxx-e9e7-3d7e-xxxx-xxxxxxxxxxxx  ethernet  eth0   
lo         xxxxxxxx-ae5c-4d17-xxxx-xxxxxxxxxxxx  loopback  lo

(2)固定IPアドレス設定

$ sudo nmcli con mod "有線接続 1" ipv4.addresses 192.168.1.xx/24 ipv4.gateway 192.168.1.1 ipv4.dns 192.168.1.1 ipv4.method manual

(4) NetworkManager再起動

$ sudo systemctl restart NetworkManager

□□□□□□□□□□□
☆2023-05-03 bullseye Desktop イメージ
最近使わないので気が付かなかったが、bullseyeでは omxplayerがインストールされていないのに気がついた。
legacy(buster)イメージに残っている。

☆2023-05-03 arm64 bullseye Desktop イメージ
ファイルマネージャの表示とか、その他のデスクトップ表示が少し早くなった。
☆2023-02-21 イメージ
Kernel　２回めアップデートで　Desktopで設定　ディスプレイ・画面のブランクが動作するようになった。
KiCadがおすすめになった。
☆2022-09-22 arm64 bullseye Desktop イメージ
最初のOS初期設定で日本を選択後、LAN接続してOSアップデートの正常終了し、リブートすると
日本語入力メソッドがfcitx-mozcインストールされる。
初のOS初期設定で日本を選択後、LAN接続してOSアップデートをしないとmozcがインストールされない。
気が付かなかった。

bullseye ３２，６２ビットOSのChromiumブラウザがtextarea項目にテキストをペーストし、ボタンクリックするとjavascriptに制御がうつる前に
プログラムが異常終了することがある。textareaがあるHTMLだけではないのかもしれないが。
３２ビットbusterではなんともないのだけど。

2023-02-11現在。　docker make の表示が変わった。

□□□□□□□□□□□
2022-09-22 arm32 buster legacy Desktop パッケージイメージ

chromium-l10n言語パッケージを追加する。
PI-TOP　V2用の電源管理・スピーカ出力モジュールを使用する場合、apt　pt-hub。
sudo apt install nftables インストール。
apt　pt-hubインストールしたせいかもしれないが、ファイルマネージャが固まることがある。

□□□□□□□□□□□
☆2022-09-06 arm64 bullseye Desktop イメージ

Raspberry pi　７インチディスプレイの接続は、
.....................................
参照：https://osoyoo.com/ja/2019/09/20/instruction-for-raspberry-pi-5-dsi-touch-screen/#:~:text=LCD%E3%83%87%E3%82%A3%E3%82%B9%E3%83%97%E3%83%AC%E3%82%A4%E3%81%AE%E7%89%A9%E7%90%86%E8%A7%A3%E5%83%8F%E5%BA%A6%E3%81%AF800%C3%97480%E3%81%A7%E3%81%99%E3%80%82
　　Raspberry Pi 5 “DSIタッチスクリーン取扱説明書(osoyoo)
を参考に修正する。

$ sudo nano /boot/config.txt
---
#dtoverlay=cv4-fkms-V3D   <<== dtoverlay=cv4-fkms-V3Dをすべてコメントにする

framebuffer_width=1200    <<== 画面大きさ
framebuffer_height=720    <<== 画面大きさ
lcd_rotate=2              <<== 回転
---
 lcd_rotate=2はdtoverlay=cv4-fkms-V3Dをコメントにしないと有効にならない。
 framebuffer_width, framebuffer_heightを指定すると800x480のドット数が変わる。

メールクライアントがないとき。

$ sudo apt install claws-mail

VNCクライアントがないとき。

$ sudo apt install realvnc-vnc-viewer

$ sudo apt install libreoffice
で中身がインストールされる。

iptablesが外れた。nftablesになった。systemctlで制御。
sudo apt install iptables でインストールして、iptables コマンドを実行するとnftablesに変換してくれる。

ファイルマネージャはよくなってるが、マウス右クリック　コピー、マウス右クリック　ペーストがちょっと仕様が変わった。

HDMIの画面の回転、サイズ変更はメインメニュー・Screen Configurationで行う。(xrandr)
.........................
コマンドラインで行うには、
回転： xrandr --output HDMI-1 --rotate right
サイズ変更（--scale)： xrandr --output HDMI-1 --scale 0.7x0.7 (0.7は画素数が少なくなる)

◎コマンドを自分だけの自動実行にするには、

mkdir ~/.config/autostart
nano ~/.config/autostart/wrotate.desktop
---
[Desktop Entry]
Type=Application
Name=MyDeskTop 
Exec=/home/pi/rotate.sh
--- 作成
nano ~/rotate.sh
---
#!/bin/sh
sleep 2
xrandr --output HDMI-1 --rotate right
xrandr --output HDMI-1 --scale 0.7x0.7
---作成
chmod +x rotate.sh

◎コマンドを全USERの自動実行にするには、

sudo nano /etc/xdg/autostart/mydesktop.desktop
---
[Desktop Entry]
Type=Application
Name=MyDeskTopALL 
Exec=/home/pi/rotate.sh
--- 作成
実行スクリプトは上記と同じ。

メインメニュー・Main Menu Editor -> 設定 -> Desktop Session Settings(lxsession-edit)にチェックを入れる。
メインメニュー・Desktop Session Settings で[Desktop Entry]のNameで指定した名前にチェックが入ってるかを確認する。◎コマンドを自分だけの自動実行か、◎コマンドを全USERの自動実行するかのどちらかを選ぶ。
[wscreen4b.png]

[raspberry-4b.jpg]

2022-08-24　「SONY Xperia Ace III SO-53C MTP接続」
https://appex.blog.fc2.com/blog-entry-64.html
Linux mint 17でのXperia XPのMTP認識
より

スマホをUSB接続（手順は選択しない）

$ lsusb
 SO-53C USB IDをメモする
 > Bus 001 Device 004: ID 0fce:020e Sony Ericsson Mobile Communications AB SO-53C

$ sudo nano /lib/udev/rules.d/69-libmtp.rules
 SONY IDでサーチ
 似たデバイスの行をコピーする
 SO-53C USB IDに修正する
 > # SONY Xperia Ace III (SO-53C)
 > ATTR{idVendor}=="0fce", ATTR{idProduct}=="020e", SYMLINK+="libmtp-%k", MODE="660", GROUP="audio", ENV{ID_MTP_DEVICE}="1", ENV{ID_MEDIA_PLAYER}="1"

または、
「ATTR{idVendor}=="0fce", ATTR{idProduct}=="020e", SYMLINK+="libmtp-%k", MODE="660", GROUP="audio", ENV{ID_MTP_DEVICE}="1", ENV{ID_MEDIA_PLAYER}="1"」
を内容として、

$ sudo nano /etc/udev/rules.d/69-libmtp.rules
 で69-libmtp.rulesファイルを作成してもよい

USBケーブルを抜く

$ sudo reboot

スマホをUSB接続し、スマホ側でUSBファイル転送にする

rasberry pi側で、リムーバブルメディア接続のウィンドウが開くのでOKをクリック
このときエラーがでる（まだ対応は調査していない、無視する）
SO-53Cディレクトリを右クリックして”ボリュームマウントを解除する”を選択
もう一度、右クリックして”ボリュームマウントする”をクリックする
内部、SDカードが表示される

それでも　「the name :n.nnnn was not provided by any .service files」メッセージが出るときは、
( https://askubuntu.com/questions/1357359/gnome-software-sorry-something-went-wrong-the-name-n-nnnn-was-not-provided-b
 より）

$ sudo apt install --reinstall gnome-software
$ reboot

2021-12-31 「GITコマンド」
[git-cmd02.png]
GITWEBインストール

$ sudo apt install apache2
$ sudo apt install gitweb
$ sudo a2enmod cgi
$ sudo adduser git 
          パスワード：gitdocker 

$ sudo mkdir /home/git/repositories
$ sudo chown git:git /home/git/repositories
$ sudo usermod -a -G git www-data

$ sudo nano /etc/gitweb.conf
---
$projectroot = "/home/git/repositories";

$git_temp = "/tmp";

$home_link = $my_uri || "/";

$projects_list = $projectroot;

$home_link_str = "MY GIT";
$site_name = "MyGitServer WEB";
$feature{'snapshot'}{'default'} = ['zip'];
---修正

$ sudo service apache2 restart

$ ssh git@192.168.1.xx 'cd repositories;git init --bare --share project.git;echo "トラプロジェクト" > project.git/description'

$ git clone ssh://git@192.168.1.xx:/home/git/repositories/project.git
$ cd project
$ nano README.txt
$ git add .
$ git commit -m "init"
$ git push

 http://192.168.1.xx/gitweb  ブラウザでprojectが表示されることを確認

RAWテキスト表示の文字化け対策
$ sudo nano  /usr/lib/cgi-bin/gitweb.cgi
--
our $default_text_plain_charset  = 'utf-8'; <<== 修正
--

2021-09-24 「(A+B)**N の式展開」
ちょっと体操2。
（A+B)**N の数式を展開する。

nano cal_e1.py
----
#!/usr/bin/env python3
# -*- coding: utf-8 -*-
c = [1]
d = [0] * 20

print("(A+B)**N の式展開")
print("N - in:",end="")
N = int(input().strip())
if N > 15:
  N = 15
if N < 1:
  N = 1
for k in range(N+1):
  d[0] = 1
  for i in range(k+1):
    if i < k:
      if i > 0:
        d[i] = c[i-1] + c[i]
    else:
      d[i] = 1

  c = d[:]

h = N // 2
print("(A+B)**%d = " % (N), end="")
for k in range(N+1):
  if k == 0:
    print("A**%d + " % N,end="")
  elif k == N:
    print("B**%d\n" % N)
  elif k < h:
    print("%dA**%dB**%d + " % (d[k],N-k, k),end="")
  elif k <= h and (N & 1) == 0:
    print("%dA**%dB**%d + " % (d[k],k, k),end="")
  else:
    print("%dA**%dB**%d + " % (d[k],N-k, N-(N-k)),end="")
-----
python3 cal_e1.py
.....
(A+B)**N の式展開
N - in:6
(A+B)**6 = A**6 + 6A**5B**1 + 15A**4B**2 + 20A**3B**3 + 15A**2B**4 + 6A**1B**5 + B**6

2021-08-23 「連分数」
ちょっと体操。
πとeの計算。

$ nano bun11.py
---
from decimal import *
getcontext().prec = 120

print("=== PI ===")
print("in:",end="")
N = int(input().strip())

tmp = Decimal(0)
for x in range(N, 0, -1):
  tmp = Decimal(x * x) / (Decimal( 2 * x + 1 )  + tmp)

pi1000 = '3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679821480865132823066470938446095505822317253594081284811174502841027019385211055596446229489549303819644288109756659334461284756482337867831652712019091456485669234603486104543266482133936072602491412737245870066063155881748815209209628292540917153643678925903600113305305488204665213841469519415116094330572703657595919530921861173819326117931051185480744623799627495673518857527248912279381830119491298336733624406566430860213949463952247371907021798609437027705392171762931767523846748184676694051320005681271452635608277857713427577896091736371787214684409012249534301465495853710507922796892589235420199561121290219608640344181598136297747713099605187072113499999983729780499510597317328160963185950244594553469083026425223082533446850352619311881710100031378387528865875332083814206171776691473035982534904287554687311595628638823537875937519577818577805321712268066130019278766111959092164201989'
print(pi1000[:121])
print(Decimal(4.0) /(Decimal(1.0) + tmp))

print("=== e ===")
print("in:",end="")
N = int(input().strip())

tmp = Decimal(N + 1)
for x in range(N, 0, -1):
  tmp = Decimal(x) + (Decimal(x) / tmp)

e1000 =  '2.718281828459045235360287471352662497757247093699959574966967627724076630353547594571382178525166427427466391932003059921817413596629043572900334295260595630738132328627943490763233829880753195251019011573834187930702154089149934884167509244761460668082264800168477411853742345442437107539077744992069551702761838606261331384583000752044933826560297606737113200709328709127443747047230696977209310141692836819025515108657463772111252389784425056953696770785449969967946864454905987931636889230098793127736178215424999229576351482208269895193668033182528869398496465105820939239829488793320362509443117301238197068416140397019837679320683282376464804295311802328782509819455815301756717361332069811250996181881593041690351598888519345807273866738589422879228499892086805825749279610484198444363463244968487560233624827041978623209002160990235304369941849146314093431738143640546253152096183690888707016768396424378140592714563549061303107208510383750510115747704171898610687396965521267154688957035035'
print(e1000[:121])
print(Decimal(2.0) + Decimal(1.0) / tmp)
----
$ python3 bun11.py
=== PI ===
in:155
3.14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798214808651328230664
3.14159265358979323846264338327950288419716939937510582097494459230781640628620899862803482534211706798214808651328230664
=== e ===
in:77
2.71828182845904523536028747135266249775724709369995957496696762772407663035354759457138217852516642742746639193200305992
2.71828182845904523536028747135266249775724709369995957496696762772407663035354759457138217852516642742746639193200305992
.....................................

ブルーバックス　「アメリカ流　７歳からの微分積分」　ドナルドコーエン　新井紀子訳
”The Mathman”
http://mathman.biz/home.html

図：ブルーバックス　「アメリカ流　７歳からの微分積分」　ドナルドコーエン　新井紀子訳　より
[calc-pai-e.jpg]

2021-07-02「ジャクソン構造図」
USP MAGAZINE 2012 autumn号の「やわらかマッド～ はじめてのソフトウェア工学 第3回」を見て言語の構文解析に使えないかとヒラメキがあって興味を持った。
ジャクソン構造図はデータ構造中心でプログラムを作るものなので、言語の構文解析にも似ているかなとひらめいた。
これを使えばもっとまともな文章がひょっとしたらできるかも。

USP MAGAZINEにあったCSVファイルをやってみた。
処理中心な方向になってしまう。
[csv6.png]

参考：
(1) USP MAGAZINE Vol.5   - 2012.6月発行

　やわらかマッド～ はじめてのソフトウェア工学 第2回

(2) USP MAGAZINE 2012 autumn  - 2012.9月発行

　やわらかマッド～ はじめてのソフトウェア工学 第3回

(3) Michael A. Jackson『構造的プログラム設計の原理』鳥居 宏次(訳)、日本コンピュータ協会、1980年。

(4) Michael Jackson『システム開発 ーJSD法ー』大野侚郎,山崎 利治(監訳)、共立出版株式会社、1989年。

JSPエディタ：
 スウェーデン　シェブデ大学
　https://www.his.se/en/about-us/staff/henrik.engstrom/jsp-editor/

　Windows users
  Download the following file: jsp3.2.exe 

  JAVA
  Download the following file: jsp3_2.jar

JAVA用をダウンロードする
使い方
$ sudo apt install openjdk-11-jdk

$ java -jar jsp3_2.jar

　メニューからｃで生成するとソースプログラムができる
　これをPython3用に書き換える

エラー１は、　”文字列" で終わりのダブルクォテーションがない時。
エラー２は、項目区切り文字カンマ、改行、EOFでない時。
エラー３は、文字に制御コードがあった時。

$ nano csv.py
-----
'''
int main()
{
   /* Operation EOF=0 */
   /* Operation レコード='' */
   /* Operation get1c() */
   while (!EOF){
      while (c!=改行 and !EOF){
         /* Operation item='' */
         while (c==' ')
            /* Operation Get1c() */
         if (c=='"'){
            /* Operation Get1c() */
            while (not EOF)
               if (c=='"'){
                  /* Operation Get1c() */
                  if (c=='"'){
                     /* Operation Get1c() */
                     /* Operation 文字”item追加 */
                  }
                  else 
                     /* Operation Break */
               }
               else {
                  /* Operation 文字編集 */
                  /* Operation Get1c() */
               }
            if (EOF)
               /* Operation exit(1) */
            else 
               /* ー */
         }
         else 
            while (c!=',' and c!=改行 and !EOF){
               if (c>' ')
                  /* Operation item文字追加 */
               else 
                  /* Operation exit(1) */
               /* Operation Get1c() */
            }
         {
         if (item=='')
            /* ’＿’レコード追加 */
         else 
            /* Itemレコード追加 */
         if (c==','){
            /* Operation Get1c() */
            /* Operation 空白区切り追加 */
         }
         else if (c==改行 or EOF)
            /* Operation break */
         else 
            /* Operation exit(1) */
         if (EOF or c==改行)
            /* Operation '_'レコード追加 */
         else 
            /* ー */
         }
      }
      {
      /* Operation Printレコード */
      if (c==改行)
         /* Operation Get1c() */
      else 
         /* EOF */
      }
   }
}
'''
#!/usr/bin/env python3
# -*- coding: utf-8 -*-
import sys

EOF = 0

def getchar():
  global EOF
  c = sys.stdin.read(1)
  if len(c) == 0:
    EOF = 1
    c = ''
  return c

def main():
   global EOF
   EOF = 0
   record_s = ''
   c = getchar()
   while not EOF: 
      while c!='\x0a' and not EOF:
         item=''
         while c==' ':        # 空白削除
            c = getchar()
         if c=='"':           # "~~~~~~"
            c = getchar()
            while not EOF:
               if c=='"':     # " "" で　”１文字
                  c = getchar()
                  if c=='"':
                     c = getchar()
                     item += '"'
                  else:
                     break     # "~~~~~~" の　”終
               else:
                  item += c    # "xxxxxx" の　文字部分
                  c = getchar()
            if EOF:
               print("?Error:1> Nothing End of '\"'\n---")
               print(item)
               print("---")               
               sys.exit(1)
            else:
               pass
         else: 
            while c!=',' and c!='\x0a' and not EOF:
               if c>' ':
                  item += c    # xxxxxx の　文字部分
               else:           # 制御文字
                  print("?Error:3> Invalid Code\n---")
                  print(item)
                  print("---")               
                  sys.exit(1)   
               c = getchar()
         if item=='':               # 項目確定  
            record_s += '_'         # Null文字
         else: 
            record_s += item        # 項目セット
         if c==',':                 # 項目区切り文字　カンマ
            c = getchar()
            record_s += ' '         # 項目区切り空白セット
         elif c=='\x0a' or EOF:     # 項目区切り文字　改行 or EOF
            break
         else:                      # 項目区切り文字　カンマ、改行、EOF　以外
            print("?Error:2> Nothing Separator ','\n---")
            print(item)
            print("---")
            sys.exit(1)
         if c=='\x0a' or EOF:       # 項目区切り文字　カンマの後の文字チェック
            record_s += '_'
      print(record_s)               # Printレコード
      record_s = ''
      if c=='\x0a':            # 1行区切り文字　改行　
         c = getchar()
      else:                    # 1行区切り文字　EOF
         pass

if __name__ == "__main__":
   main()
---
$ nano Book1.csv
---
a,b,c
1,2,3
"""","""""",""""""""
"""a""","""b""","""c"""
"あ
い
う",い,う
,,
,,abc
,,[EOF]
---
$ python3 csv.py < Book1.csv
...
pi@r0529rtop:~/mnt/jsp-edit $ python3 csv6.py < Book1.csv
a b c
1 2 3
" "" """
"a" "b" "c"
あ
い
う い う
_ _ _
_ _ abc
_ _ _

2021-06-13「stanford coreNLP」
Stanford CoreNLPのインストール

参考：CoreNLP を使ってみる(1)
　　　https://lab.astamuse.co.jp/entry/corenlp1

1)環境
　Raspberry pi 4B 8GB
　Rasbian 2021-05-07 Desktopイメージ

2)JAVAインストール
$ sudo apt install openjdk-11-jdk

 Desktopイメージではすでにインストール済。

3)Stanford　CoreNLPダウンロード
　https://stanfordnlp.github.io/CoreNLP/
　「Download CoreNLP 4.2.2]ボタンでZIPファイルダウンロード４

4)解凍
　解凍して
　$ cd stanford-corenlp-4.2.2

5)corenlp.sh修正

　echo java -mx2800m -cp \"$scriptdir/*\" edu.stanford.nlp.pipeline.StanfordCoreNLP $*
　java -mx2800m -cp "$scriptdir/*" edu.stanford.nlp.pipeline.StanfordCoreNLP $*
　--
  -mx5g を　-mx2800m に変更。環境によってはメモリの大きさが違うのでなるべく大きいあたいにすること。

6)センテンスパース結果の表示
  パース結果がほしいので　-annotators tokenize,ssplit,parse　を指定。

　$ ./corenlp.sh  -annotators tokenize,ssplit,parse
 ...
 NLP> Stanford University is located in California. It is a great university, founded in 1891.

 Sentence #1 (7 tokens):
 Stanford University is located in California.

 Tokens:
 [Text=Stanford CharacterOffsetBegin=0 CharacterOffsetEnd=8 PartOfSpeech=NNP]
 [Text=University CharacterOffsetBegin=9 CharacterOffsetEnd=19 PartOfSpeech=NNP]
 [Text=is CharacterOffsetBegin=20 CharacterOffsetEnd=22 PartOfSpeech=VBZ]
 [Text=located CharacterOffsetBegin=23 CharacterOffsetEnd=30 PartOfSpeech=VBN]
 [Text=in CharacterOffsetBegin=31 CharacterOffsetEnd=33 PartOfSpeech=IN]
 [Text=California CharacterOffsetBegin=34 CharacterOffsetEnd=44 PartOfSpeech=NNP]
 [Text=. CharacterOffsetBegin=44 CharacterOffsetEnd=45 PartOfSpeech=.]

 Constituency parse: 
 (ROOT
  (S
    (NP (NNP Stanford) (NNP University))
    (VP (VBZ is)
      (VP (VBN located)
        (PP (IN in)
          (NP (NNP California)))))
    (. .)))


 Dependency Parse (enhanced plus plus dependencies):
 root(ROOT-0, located-4)
 compound(University-2, Stanford-1)
 nsubj:pass(located-4, University-2)
 aux:pass(located-4, is-3)
 case(California-6, in-5)
 obl:in(located-4, California-6)
 punct(located-4, .-7)

 Sentence #2 (10 tokens):
 It is a great university, founded in 1891.

 Tokens:
 [Text=It CharacterOffsetBegin=46 CharacterOffsetEnd=48 PartOfSpeech=PRP]
 [Text=is CharacterOffsetBegin=49 CharacterOffsetEnd=51 PartOfSpeech=VBZ]
 [Text=a CharacterOffsetBegin=52 CharacterOffsetEnd=53 PartOfSpeech=DT]
 [Text=great CharacterOffsetBegin=54 CharacterOffsetEnd=59 PartOfSpeech=JJ]
 [Text=university CharacterOffsetBegin=60 CharacterOffsetEnd=70 PartOfSpeech=NN]
 [Text=, CharacterOffsetBegin=70 CharacterOffsetEnd=71 PartOfSpeech=,]
 [Text=founded CharacterOffsetBegin=72 CharacterOffsetEnd=79 PartOfSpeech=VBN]
 [Text=in CharacterOffsetBegin=80 CharacterOffsetEnd=82 PartOfSpeech=IN]
 [Text=1891 CharacterOffsetBegin=83 CharacterOffsetEnd=87 PartOfSpeech=CD]
 [Text=. CharacterOffsetBegin=87 CharacterOffsetEnd=88 PartOfSpeech=.]

 Constituency parse: 
 (ROOT
  (S
    (NP (PRP It))
    (VP (VBZ is)
      (NP
        (NP (DT a) (JJ great) (NN university))
        (, ,)
        (VP (VBN founded)
          (PP (IN in)
            (NP (CD 1891))))))
    (. .)))


 Dependency Parse (enhanced plus plus dependencies):
 root(ROOT-0, university-5)
 nsubj(university-5, It-1)
 cop(university-5, is-2)
 det(university-5, a-3)
 amod(university-5, great-4)
 punct(university-5, ,-6)
 acl(university-5, founded-7)
 case(1891-9, in-8)
 obl:in(founded-7, 1891-9)
 punct(university-5, .-10)
 ...

7)パース結果を図にする
　http://github.com/int2str/jssyntaxtree
　よりダウンロード。解凍。解凍ディレクトリで
　これはJAVASCRIPTで書かれた木構造を描画するもの。
　そのままでは構造体の区切り文字が[]なのでこれを（）に変更する。
　出力された丸括弧で表示させたいので。

　$ nano 
  ----
  function isControlCharacter(ch) {
    const control_chars = ['[', ']','(', ')', '_', '"']; <<==()追加
    return control_chars.includes(ch);
  }
  ;;
　function parseControlCharacters(input) {
  　if (input.charAt(0) == '_') return [new Token(TokenType.SUBSCRIPT_PREFIX), 1];
  　if (input.charAt(0) == '[') return [new Token(TokenType.BRACKET_OPEN), 1];
  　if (input.charAt(0) == ']') return [new Token(TokenType.BRACKET_CLOSE), 1];
  　if (input.charAt(0) == '(') return [new Token(TokenType.BRACKET_OPEN), 1];　<<==追加
  　if (input.charAt(0) == ')') return [new Token(TokenType.BRACKET_CLOSE), 1];　<<==追加
 　return [null, 0];
　}
　---- 修正

　解凍ディレクトリでpythonサーバを起動。
　$ python3 -m http.server 8000

  WEBブラウザで
　http://localhost:800
  で開く。
　上のテキストフィールドに
　「(ROOT
  (S
    (NP (NNP Stanford) (NNP University))
    (VP (VBZ is)
      (VP (VBN located)
        (PP (IN in)
          (NP (NNP California)))))
    (. .)))　」
　コピー＆ペーストする。
　図を木リックすると画像がダウンロードされる。
[npl-tree.png]

2021-04-30　「TinyBasic Plus for PICO」
RP2040の周辺デバイスレジスタを直接読み書きしたくてBASICを移植してみた。
BASICソースプログラムは最近の流行からはそれている。
FATFSはプログラムをSAVE,LOADするのに必要なので追加した。長いファイル名、日本語ファイル名可。
EDITORは小さくてTTYエスケープシーケンスを使うものを探して移植。

Download Files

(1) http://elm-chan.org/fsw/ff/00index_e.html
   FatFs - Generic FAT Filesystem Module

   FatFs sample projects for various platforms (December 5, 2020)
   http://elm-chan.org/fsw/ff/ffsample.zip
   FM3を参考にする。

(2) https://github.com/BleuLlama/TinyBasicPlus
   TinyBasic Plus

   https://github.com/BleuLlama/TinyBasicPlus/archive/refs/heads/master.zip

(3) https://github.com/GrenderG/tte
    tte (tiny text editor)

    https://github.com/GrenderG/tte/archive/refs/heads/master.zip

(4) https://www.raspberrypi.org/documentation/rp2040/getting-started/
   Raspberry pi PICO
  
   https://datasheets.raspberrypi.org/pico/getting-started-with-pico.pdf
   Getting started with Raspberry Pi Pico

(5) getting-started-with-pico.pdfの説明によりインストールする。
　　できた　"~/pico"ディレクトリにTBASIC PLUSのzipファイルを解凍する。
　　Cmakeか、VSCODEでコンパイルする。

   ▶VSCODE設定

   $ code --install-extension marus25.cortex-debug
   $ code --install-extension ms-vscode.cmake-tools
   $ code --install-extension ms-vscode.cpptools

   PICO_SDK_PATH は設定されている。

　　.vscode/launch.jsonの修正
   　□pico-examplesをコンパイルとデバッグする場合
　　　$ cd pico/pico-examples
     $ mkdir .vscode
     $ cp ide/vscode/launch-raspberrypi-swd.json .vscode/launch.json
     $ cp ide/vscode/settings.json .vscode

     ■他のプログラムの場合
     $ cd pico/tbasic_fatfs
          自分で作成したプロジェクトのディレクトリ
　　　$ cp ../pico-examples/ide/vscode/launch-raspberrypi-swd.json .vscode/launch.json
     $ cp ../pico-examples/ide/vscode/settings.json .vscode

     ◎共通　コピーしたlaunch.json修正
   　$ nano .vscode/launch.json
　　 ---
    {
      "version": "0.2.0",
      "configurations": [
        {
            "name": "Pico Debug",
            "cwd": "${workspaceRoot}",
            "executable": "${command:cmake.launchTargetPath}",
            "request": "launch",
            "type": "cortex-debug",
            "servertype": "openocd",
            // This may need to be arm-none-eabi-gdb depending on your system
            "gdbPath" : "gdb-multiarch",
            "device": "RP2040",
            "configFiles": [
                "interface/picoprobe.cfg",  <<===raspberrypi-swd.cfg をpicoprobe.cfgに変更
                "target/rp2040.cfg"              (picoprobeを使う場合）
            ],
            "svdFile": "${env:PICO_SDK_PATH}/src/rp2040/hardware_regs/rp2040.svd",
            "runToMain": true,
            // Work around for stopping at main on restart
            "postRestartCommands": [
                "break main",
                "continue"
            ]
        }
      ]
    }
　　----
ソースプログラムダウンロード tbasic-fatfs.zip(759Kb)
......
BASIC言語
- BYE		- *exits Basic, soft reboot on Arduino*
- END 		- *stops execution from the program, also "STOP"*
- MEM		- *displays memory usage statistics*
- NEW		- *clears the current program*
- RUN		- *executes the current program*
- FILES		- 	*lists the files on the SD card*
- LOAD "filename.bas"	- *new and loads a file from the SD card*
- ALOAD "filename.bas"  - *overwrite and loads a file from the SD card and auto restart
- SAVE "filename.bas"	- *saves the current program to the SD card, overwriting*
- INPUT variable	- *let the user input an expression (number or variable name*
- PEEK( address )	- *get a value in memory* (unimplemented)
- POKE address		- *set a value in memory* (unimplemented)
- PRINT expression	- *print out the expression, also "?"*
- REM stuff		- *remark/comment, also "'"*
- IF expression statement - *perform statement if expression is true*
- FOR variable = start TO end	- *start for block*
- FOR variable = start TO end STEP value - *start for block with step*
- NEXT - *end of for block*
- GOTO linenumber - *continue execution at this line number*
                     GOTO 100, GOTO A + 10
- GOSUB linenumber - *call a subroutine at this line number*
                      GOSUB 100, GOSUB A + 10
- RETURN	- *return from a subroutine*
- SLEEP msec    - *wait 99 msec
- SETRC "yyyy/mm/dd hh:mm:ss"  - *Set to RTC
- !xxxx         - *command for Fatfs

(o)Expressions, Math
- A=V, LET A=V	- *assign value to a variable*
- +, -, %, &, *, / - *Math*
- <,<=,=,<>,!=,>=,> - *Comparisons*
- ABS( expression )  - *returns the absolute value of the expression*
- RSEED( v ) - *sets the random seed to v*
- RND( m ) - *returns a random number from 0 to m*

(o)Function
- RDATE()      - *Read Date from RTC
- RTIME()      - *Read Time from RTC

Tiny BASIC Plus追加機能
・演算子　%　：MOD　 5 % 6 * 8 = 5 ：＊優先　MBASIC80と同様 5 % (6*8) 、C言語とは違う (5 % 6) * 8
・演算子　&　：AND   10 & 3 = 2    : *,/ 優先
・１６進数表現　$hhhh : 定数
　　　　　　　　$PEEK(a) : 関数戻り値の１６進数表示
　　　　　　　　$A    : 変数の１６進数表示
・関数追加　　 RDATE() : RTC日付取得　戻り値　(y*256*16 + m*256 + day)
            RTIME() : RTC時刻取得　戻り値　(hh*256*256 + mm*256 + ss) 
・ステートメント追加
　　　　　　　 SLEEP msec : ミリ秒で指定　
　　　　　　　 SETRTC "yyyy/mm/dd hh:mm:ss" : RTCに年月日時刻を設定する。
　　　　　　　　　　　　　　　　　　　　　　　　　　年/月/日 時:分:秒の文字列で指定
　　　　　　　 ADDA A, 1  : 変数をアドレス値（unsigned long)で加算する。減算はマイナス値を加算する。
　　　　　　　 ALOAD "プログラムファイル名"　: 現在のプログラムに追加または、上書きロードされる。
                         　　  ロード後はメモリされたプログラムの行番号が一番小さい行から実行される。
            FILES　["ディレクトリ[/ディレクトリ]”]：　SDカード内のファイル一覧
・文字列のエスケープシーケンス追加
　　　　　　　 \\ = \文字　、\' = '文字 , \" = "文字
　　　　　　　 \888 = ８進数で文字コード表現
・変数を32ビットで扱う。
・BASICステートメント１行を400文字に制限。
・PEEK,POKEを８ビットか、３２ビットで扱うか指定可能。
　　　　　　　 PEEK(A)  : 8ビット扱い
　　　　　　　 PEEK(A#) : ３２ビット扱い、このときアドレスは４の倍数のこと。
　　　　　　　 POKE A, 10  : 8ビット扱い
　　　　　　　 POKE A, 10# : ３２ビット扱い、このときアドレスは４の倍数のこと。
・行番号　　　 1 ~ 65533
・FATFSファイル管理コマンド実行
            BASICコマンド入力で先頭に"!"を入力する。
            !mount    <-- SDカードを抜き差しした後で必ず実行。
            !type "ファイル名Path"  <-- ファイル内テキスト表示。
            !mkdir "ディレクトリ名"  <-- ディレクトリ作成
            !rmdir "ディレクトリ名"  <-- ディレクトリ削除
            !rm "ファイル名"        <-- ファイル削除
            !cp "コピー元ファイル名" "コピー先ファイル名"  <-- ファイルコピー
            !edit ["ファイル名"]    <-- テキストファイル編集

　　　　　　　　　Keybinding    Action
　　　　　　　　　Ctrl-Q        Exit
　　　　　　　　　Ctrl-S        Save
　　　　　　　　　Ctrl-F        Search. Esc, enter and arrows to interact once searching
　　　　　　　　　Ctrl-E        Flip line upwards
　　　　　　　　　Ctrl-D        Flip line downwards
　　　　　　　　　Ctrl-C        Copy line
　　　　　　　　　Ctrl-X        Cut line
　　　　　　　　　Ctrl-V        Paste line
　　　　　　　　　Ctrl-Z        Undo
　　　　　　　　　Ctrl-Y        Redo
　　　　　　　　　Ctrl-A        Help
　　　　　　　　　... 注意 ...
　　　　　　　　　端末ターミナルウィンドウは80桁24行固定。
　　　　　　　　　これより小さい場合はカーソル制御が正しくできなくなるので編集ができなくなる。
              矢印キー等の複数コードが生成されるキーの長押しはキーコードの取りこぼしが起きるので注意すること。
              UTF-８日本語は可変長複数コードとなるので編集する場合はただの１バイトコードとして扱うので文字化けが
              起きることがあるので注意する。また、行内の日本語以降カーソル位置がバイト位置なので文字削除挿入は
　　　　　　　　　注意すること。８０桁目にあるものと、横スクロールした場合は１桁目にある日本語は文字化けする。
              1行は500バイトまで。
　　　　　　　　　編集できるサイズはおおよそ空きメモリ未満。
[tte-01.png]
　　(注意1)
　　BASIC文入力中、行が折り返した場合、バックスペースでは前の行の後ろ側には回り込まない。
　　端末の横幅を調整しながら前の行に回り込まないようにする。
　　RTCは何もしないと"2021/4/1 00:00:00"から動作している。ファイルのタイムスタンプにも使用。
　　メモリがないところ等にアクセスするとHARDFAULTとなるのでPEEK,POKEは注意すること。
　　アドレスチェックは３２ビットアクセスの４バイト倍数以外はしていなのでメモリアドレスに書き込みした場合は
　　動作はどうなるかは不明。RP2040データシートをよく読むこと。
　　(注意2)
   GPIO 25はBASIC,EDITORで使用しているのでBASICでは使用しないこと。
　　GPIO 25 LED不規則点滅：FatFS,BASIC、EDITOR動作中。
　　GPIO 25 LED等間隔点滅：FatFS,BASIC、EDITOR動作中にHARDFAULTが発生。リセット、電源入れ直す。
　　GPIO 25 LED消灯：BASIC動作中にBYEコマンド入力した。リセット、電源入れ直す。

FATFS追加
　プログラムセーブ、ロード用
　FAT32　SDカード対応
　UTF-8ファイル名対応
　ファイル名パスは,130文字まで。
　cd, pwd カレントディレクトリという操作はない。
　mkdir xxx, mkdir xx/xxx はあり。
　files "xxx", files "xxx/xxxx" はあり。

参考：メモリ容量
[build] Memory region         Used Size  Region Size  %age Used
[build]            FLASH:      189380 B         2 MB      9.03%
[build]              RAM:       80184 B       256 KB     30.59%
[build]        SCRATCH_X:          0 GB         4 KB      0.00%
[build]        SCRATCH_Y:          0 GB         4 KB      0.00%


端末ターミナルソフトはminicom だと日本語が文字化けする。
cuかckermitがよい。


├── CMakeLists.txt　　:Cmake 情報ファイル
|                     
├── README.txt       :説明
├── TinyBasicPlus <dir>  :TINY BASIC PLUSソース
│   ├── FILE-LIST
│   ├── README.md
│   ├── TinyBasicPlus.ino
│   ├── TinyBasicPlus_main.c
│   ├── desktop.h
│   └── main.cpp
├── build <dir>　　　　　　:プログラムビルドディレクトリ
│   ├── CMakeCache.txt
│   ├── CMakeFiles <dir>
│   ├── Makefile　　　　　: Makefile 
│   ├── cmake_install.cmake
│   ├── compile_commands.json
│   ├── elf2uf2 <dir>
│   ├── generated <dir>
│   ├── pico-sdk <dir>
│   ├── tbasic_fatfs.bin
│   ├── tbasic_fatfs.dis
│   ├── tbasic_fatfs.elf
│   ├── tbasic_fatfs.elf.map :リンクマップ
│   ├── tbasic_fatfs.hex
│   └── tbasic_fatfs.uf2     :BOOTSELスイッチを押して書き込みするファイル
├── fatfs <dir>              :FATFS, Raspberry pi PICO基板の依存する関数プログラムファイル
│   ├── Ev_Board.c
│   ├── Ev_Board_conf.h
│   ├── fatfs <dir>
│   │   ├── diskio.h
│   │   ├── ff.c
│   │   ├── ff.h
│   │   ├── ffsystem.c
│   │   └── ffunicode.c
│   ├── ffconf.h
│   └── mmc_mfs.c
├── pico_sdk_import.cmake
├── tbasic_fatfs.c            :Tiny Basic Plus mainプログラム
└── tte <dir>                 :EDITORプログラム
    ├── LICENSE
    ├── README.md
    └── tte.c

ファイル：CMakeLists.txt
...
# Generated Cmake Pico project file

cmake_minimum_required(VERSION 3.13)

set(CMAKE_C_STANDARD 11)
set(CMAKE_CXX_STANDARD 17)

# initalize pico_sdk from installed location
# (note this can come from environment, CMake cache etc)
set(PICO_SDK_PATH "/home/pi/pico/pico-sdk")

# Pull in Raspberry Pi Pico SDK (must be before project)
include(pico_sdk_import.cmake)

project(tbasic_fatfs C CXX ASM)

# Initialise the Raspberry Pi Pico SDK
pico_sdk_init()

# Add executable. Default name is the project name, version 0.1

add_executable(tbasic_fatfs 
  fatfs/Ev_Board.c
  fatfs/fatfs/ff.c
  fatfs/fatfs/ffsystem.c
  fatfs/mmc_mfs.c
  fatfs/fatfs/ffunicode.c
  tbasic_fatfs.c
  TinyBasicPlus/TinyBasicPlus_main.c
  tte/tte.c )

pico_set_program_name(tbasic_fatfs "tbasic_fatfs")
pico_set_program_version(tbasic_fatfs "0.1")

pico_enable_stdio_uart(tbasic_fatfs 0)  <<--USB ACM UARTを使うとき
pico_enable_stdio_usb(tbasic_fatfs 1)   <<--
#pico_enable_stdio_uart(tbasic_fatfs 1) <<==GPIO1,2 UARTを使うとき
#pico_enable_stdio_usb(tbasic_fatfs 0)  <<==

# Add the standard library to the build
target_link_libraries(tbasic_fatfs pico_stdlib)

# Add any user requested libraries
target_link_libraries(tbasic_fatfs
        hardware_spi
        hardware_pwm
        hardware_rtc
        )

pico_add_extra_outputs(tbasic_fatfs)
include_directories(./ ./fatfs ./fatfs/fatfs)
#add_definitions(-DRASPI_PICO -DDDEBUG ) <<==SDカードCDピンがカード挿入時HI Activeのとき
　　　　　　　　　　　　　　　　　　　　　　　　　　　　DDEBUGマクロが要らない時は -DDDEBUG削除。
add_definitions(-DRASPI_PICO -DAKDK_SOCKET) <<--SDカードCDピンがカード挿入時LOW Activeのとき
SET(CMAKE_EXE_LINKER_FLAGS  "${CMAKE_EXE_LINKER_FLAGS} -Wl,--print-memory-usage")
...

◎配線
picoprobeとDEBUG対象PICOボード配線

　　picoprobe GND -> Pico B GND
　　picoprobe GP2 -> Pico B SWCLK
　　picoprobe GP3 -> Pico B SWDIO
　　picoprobe GP4/UART1 TX -> Pico B GP1/UART0 RX
   picoprobe GP5/UART1 RX -> Pico B GP0/UART0 TX
   picoprobe VSYS -> Pico B VSYS

    (getting-started-with-pico.pdf Appendix A: Using Picoprobe の  Picoprobe Wiring　参照）

   sparkfun.con micro-SD-card board            
   
   Pico B GPIO 16 (pin 21) MISO/spi0_rx-> DO on SD-card board
   Pico B GPIO 17 (pin 22) Chip select -> CS on SD-card board
   Pico B GPIO 18 (pin 24) SCK/spi0_sclk -> SCK on SD-card board
   Pico B GPIO 19 (pin 25) MOSI/spi0_tx -> DI on SD-card board
   Pico B GPIO 22 (pin 29) GPIO -> CD on SD-card board
   Pico B 3.3v (pin 36) -> VCC on SD-card board
   Pico B GND (pin 38)  -> GND on SD-card board

SDカードCDがどちらがActiveかをチェックするプログラム
GPIO　22を見ている。
SDカードを抜き差しして確認する。
-----
10 A = PEEK($D0000004#)
20 IF (A & $400000) != 0 GOTO 50
30 PRINT "SD CS検出LOW"
40 GOTO 60
50 PRINT "SD CS検出HI"
60 SLEEP 500
61 FILES
70 GOTO 10
-----

>mem
Program Start: h'20003570
Start Free Memory: h'20003570 - End Free Memory: h'2001344F
65248 bytes free.

  pokeステートメントはmemで表示される空きメモリアドレスの間に指定する。
　peek, pokeで指定するアドレスは空きメモリアドレス以外でも可能であるが、CPU Hardfault エラーになるか、
　全体が動作不可能、不安定等になる場合がある。Hardfaultについては基板上のLEDが等間隔で点滅する。
　このときはCPUをリセットすること。

>load "memdump.bas"
OK
>list
100 A = $20007CF0
110 B = $20007D30
120 POKE A, $EE
130 ADDA A, 1
140 IF A != B GOTO 120
200 GOSUB 8000
210 POKE $20007D04, 12345678#
220 POKE $20007D02, 12345678
230 POKE $20007D14, $12345678#
240 POKE $20007D12, $12345678
300 GOSUB 8000
310 END
8000 A = $20007CF0
8001 B = $20007D30
8002 PRINT "___ADDRESS_:_DATA___________________________________"
8004 PRINT ########.$A," : ";
8010 PRINT ##.$PEEK(A)," ";
8012 ADDA A, 1
8014 IF A = B GOTO 8050
8020 IF ( A % 8 ) != 0 GOTO 8040
8022 PRINT " "
8024 PRINT ########.$A," : ";
8040 GOTO 8010
8050 PRINT ""
8060 RETURN
OK
>run
___ADDRESS_:_DATA___________________________________
h'20007CF0 : h'EE h'EE h'EE h'EE h'EE h'EE h'EE h'EE  
h'20007CF8 : h'EE h'EE h'EE h'EE h'EE h'EE h'EE h'EE  
h'20007D00 : h'EE h'EE h'EE h'EE h'EE h'EE h'EE h'EE  
h'20007D08 : h'EE h'EE h'EE h'EE h'EE h'EE h'EE h'EE  
h'20007D10 : h'EE h'EE h'EE h'EE h'EE h'EE h'EE h'EE  
h'20007D18 : h'EE h'EE h'EE h'EE h'EE h'EE h'EE h'EE  
h'20007D20 : h'EE h'EE h'EE h'EE h'EE h'EE h'EE h'EE  
h'20007D28 : h'EE h'EE h'EE h'EE h'EE h'EE h'EE h'EE 
___ADDRESS_:_DATA___________________________________
h'20007CF0 : h'EE h'EE h'EE h'EE h'EE h'EE h'EE h'EE  
h'20007CF8 : h'EE h'EE h'EE h'EE h'EE h'EE h'EE h'EE  
h'20007D00 : h'EE h'EE h'4E h'EE h'4E h'61 h'BC h'00  
h'20007D08 : h'EE h'EE h'EE h'EE h'EE h'EE h'EE h'EE  
h'20007D10 : h'EE h'EE h'78 h'EE h'78 h'56 h'34 h'12  
h'20007D18 : h'EE h'EE h'EE h'EE h'EE h'EE h'EE h'EE  
h'20007D20 : h'EE h'EE h'EE h'EE h'EE h'EE h'EE h'EE  
h'20007D28 : h'EE h'EE h'EE h'EE h'EE h'EE h'EE h'EE 
OK
>load "vect-dump.bas"
OK
>list
10 PRINT "Vector Table Offset:",$PEEK($E000ED08#)
20 A = PEEK($E000ED08#)
30 FOR I = -16 TO 31
40 IF I < 0 PRINT ##.I;
41 IF I >= 0 PRINT ###.I;
42 PRINT " [ ",########.$A," ] = ",########.$PEEK(A#)
50 ADDA A, 4
60 NEXT I
OK
>run
Vector Table Offset:h'20000000
-16 [ h'20000000 ] = h'20042000
-15 [ h'20000004 ] = h'100001F7
-14 [ h'20000008 ] = h'100001C3
-13 [ h'2000000C ] = h'100004E1
-12 [ h'20000010 ] = h'100001C1
-11 [ h'20000014 ] = h'100001C1
-10 [ h'20000018 ] = h'100001C1
-09 [ h'2000001C ] = h'100001C1
-08 [ h'20000020 ] = h'100001C1
-07 [ h'20000024 ] = h'100001C1
-06 [ h'20000028 ] = h'100001C1
-05 [ h'2000002C ] = h'100001C7
-04 [ h'20000030 ] = h'100001C1
-03 [ h'20000034 ] = h'100001C1
-02 [ h'20000038 ] = h'100001C9
-01 [ h'2000003C ] = h'100001CB
000 [ h'20000040 ] = h'100001CD
001 [ h'20000044 ] = h'100001CD
002 [ h'20000048 ] = h'100001CD
003 [ h'2000004C ] = h'1000D6E9
004 [ h'20000050 ] = h'100003F9
005 [ h'20000054 ] = h'10011E4D
006 [ h'20000058 ] = h'100001CD
007 [ h'2000005C ] = h'100001CD
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
029 [ h'200000B4 ] = h'100001CD
030 [ h'200000B8 ] = h'100001CD
031 [ h'200000BC ] = h'10011C49
OK
>load "pwmreg-lst.bas"
OK
>list
10 PRINT "=== PWM Registers List ==="
20 A =$40050000
30 FOR I = 0 TO 44
40 IF (I / 5) != 8 GOTO 80
50 IF (I % 5) != 0 GOTO 90
60 PRINT " ......"
70 GOTO 90
80 IF (I % 5) = 0 PRINT " ... PWM ",I/5," ..."
90 IF I < 0 PRINT ##.I;
100 IF I >= 0 PRINT ###.I;
110 PRINT " [ ",########.$A," ] = ",########.$PEEK(A#)
120 ADDA A, 4
130 NEXT I
OK
>run
=== PWM Registers List ===
 ... PWM 0 ...
000 [ h'40050000 ] = h'00000000
001 [ h'40050004 ] = h'00000010
002 [ h'40050008 ] = h'00000000
003 [ h'4005000C ] = h'00000000
004 [ h'40050010 ] = h'0000FFFF
 ... PWM 1 ...
005 [ h'40050014 ] = h'00000000
006 [ h'40050018 ] = h'00000010
007 [ h'4005001C ] = h'00000000
008 [ h'40050020 ] = h'00000000
009 [ h'40050024 ] = h'0000FFFF
 ... PWM 2 ...
010 [ h'40050028 ] = h'00000000
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
017 [ h'40050044 ] = h'00000000
018 [ h'40050048 ] = h'00000000
019 [ h'4005004C ] = h'0000FFFF
 ... PWM 4 ...
020 [ h'40050050 ] = h'00000001
021 [ h'40050054 ] = h'00000640
022 [ h'40050058 ] = h'000002E6
023 [ h'4005005C ] = h'000C0000
024 [ h'40050060 ] = h'000004E1
 ... PWM 5 ...
025 [ h'40050064 ] = h'00000000
026 [ h'40050068 ] = h'00000010
027 [ h'4005006C ] = h'00000000
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
033 [ h'40050084 ] = h'00000000
034 [ h'40050088 ] = h'0000FFFF
 ... PWM 7 ...
035 [ h'4005008C ] = h'00000000
036 [ h'40050090 ] = h'00000010
037 [ h'40050094 ] = h'00000000
038 [ h'40050098 ] = h'00000000
039 [ h'4005009C ] = h'0000FFFF
 ......
040 [ h'400500A0 ] = h'00000010
041 [ h'400500A4 ] = h'00000000
042 [ h'400500A8 ] = h'00000010
043 [ h'400500AC ] = h'00000000
044 [ h'400500B0 ] = h'00000000
OK
                            
>load "hex-t01.bas"
OK
>list
10 PRINT $$1234
20 PRINT ####.$$1234
30 PRINT ###.$$CD
40 PRINT ###.$$ABCD
50 A = $4567
60 PRINT ###.$A
70 PRINT ######.$A
OK
>run
h'1234
h'1234
h'0CD
h'ABCD
h'4567
h'004567
OK
>load "num-t01.bas"
OK
>list
10 PRINT 1234
20 PRINT ######.1234
30 PRINT ###.34
40 PRINT ###.1234
50 PRINT ##12, "=NG"
OK
>run
1234
001234
034
1234
What? 50 PRINT ##^2, "=NG"

>load "esc-t01.bas"
OK
>list
10 PRINT "\033[A\033[ATEST 001"
20 PRINT "\377[A", "OK"
30 PRINT "\\015[A","OK"
40 PRINT "\"015[A","OK"
50 PRINT "data\"abc","OK"
60 PRINT "data\'abc"," OK"
70 PRINT "data'abc"," OK"
80 PRINT 'data\'abc'," OK"
90 PRINT 'data\"abc'," OK"
100 PRINT 'data"abc'," OK"
110 PRINT "\029[A","NG"
120 PRINT "\097[A","NG"
130 PRINT "\477[A","NG"
TEST 001
\ufffd[AOK
\015[AOK
"015[AOK
data"abcOK
data'abc OK
data'abc OK
data'abc OK
data"abc OK
data"abc OK
What? 110 PRINT "^029[A","NG"

　ーーー
　TinyBasic,FatFs用にPWM4をタイマー用に使いGPIO-25の基板についているLEDを点滅させている。

>load "gpio-test.bas"
OK
>list
10 REM **** GPIO-02 LED ON/OFF 500 USEC INTERVAL
20 Z = 500
30 GOSUB 1000
40 GOSUB 3000
50 GOSUB 4000
60 GOSUB 2000
70 GOTO 50
1000 POKE $E000E010, 1#
1010 POKE $E000E014, Z#
1020 POKE $E000E018, 0#
1030 Z = PEEK($E000E010#)
1040 RETURN
2000 Z = PEEK($E000E010#)
2010 IF (Z & $010000) = 0 GOTO 2000
2020 RETURN
3000 POKE $40014014, 5#
3010 POKE $D0000020, 4#
3020 RETURN
4000 POKE $D000001C, 4#
4010 RETURN
OK
>run
break!
OK
　ーーー
　よくあるLED点滅。Systickタイマを使う。
  配線                      LED
　GPIO-02　--/\/\510Ω/\/\/---▶|---> GND
                       目視では点灯
　20 Z = 数字　：数字２００００以上で点滅して見える。

>setrtc "2021/4/28 14:01:00"
>load "date.bas"
OK
>list
10 PRINT "\012\012\012"
20 REM SETRTC "2021/4/3 11:59:40"
30 A = RTIME()
40 B = RDATE()
50 PRINT "\015\012\012\033[4A",(B&$FFFF000)/(256*16),"年",##.(B&$F00)/256,"月",##.B%256,"日"
60 PRINT ##.(A&$FF0000)/(256*256),":",##.(A&$FF00)/256,":",##.A%256
70 PRINT "\012\012"
80 SLEEP 1000
90 PRINT "\033[4A"
100 GOTO 30
OK
>run


2021年04月28日
14:01:32



break!
OK
>!type "ald00.bas"
10 PRINT "10"
20 PRINT "20"
30 PRINT "30"
40 A = 1
50 ALOAD "ald01.bas"
300 print "SUB 300 : ", A
310 A = A + 1
320 IF A > 5 END
330 SLEEP 500
340 RETURN

>!type "ald01.bas"
10 GOSUB 300
20 PRINT "100"
30 PRINT "110"
40 ALOAD "ald02.bas"

>!type "ald02.bas"
10 GOSUB 300
20 PRINT "80"
30 PRINT "90"
40 ALOAD "ald01.bas"
>load "ald00.bas"
OK
>run
10
20
30

SUB 300 : 1
100
110

SUB 300 : 2
80
90

SUB 300 : 3
100
110

SUB 300 : 4
80
90

SUB 300 : 5
OK
>load "goto.bas"
OK
>list
10 FOR I = 0 TO 14
20 GOTO (I%5)*10+30
30 PRINT "*";
40 PRINT "*";
50 PRINT "*";
60 PRINT "*";
70 PRINT "*"
200 NEXT I
OK
>run
*****
****
***
**
*
*****
****
***
**
*
*****
****
***
**
*
OK

2021-03-30 　「CP/M  エミュレータ」
raspberry pi PICOにTiny BASICを入れようと思ったのが原因で横道にそれてしまった。

参照：
YAZE-AG - Yet Another Z80 Emulator by AG (V 2.40.5 / V 2.30.3)

http://www.mathematik.uni-ulm.de/users/ag/yaze-ag/

(1)インストール
$ wget http://www.mathematik.uni-ulm.de/users/ag/yaze-ag/devel/yaze-ag-2.40.5_with_keytrans.tar.gz
$ tar zxvlpf yaze-ag-2.40.5_with_keytrans.tar.gz
$ cd yaze-ag-2.40.5_with_keytrans
$ cp  Makefile_Raspberry_Pi_3_Model_B_ARMv7_32Bit  Makefile
$ make -j 4
$ sudo make install
$ cd ~
$ rm -r yaze-ag-2.40.5_with_keytrans
$ rm -f yaze-ag-2.40.5_with_keytrans.tar.gz
$ man yaze
$ yaze cpm  (CP/Mが動く)
  ~/cpm ディレクトリが出来る。

ドライブがWrite可能かどうかの一覧
各ドライブにソフトが入っている。

A: r/w  BOOT_UTILS      BOOT disk with CCP.COM and some utilies
B: r/w  CPM3_SYSdsk     Disk with all CP/M 3.1 system utilities
                          A section "YAZE-AG" is added in the help file.
C: r/o  ./disksort/     Connected to the (unix-)directory ./disksort/ (SOURCE)
D: r/w  DISKSORT.dsk    Submit examples of the DISKSORT project
F: r/w  ZINC            System Utilies of the ZINC project from John Elliott
G: r/w  TEST-UTILS-1.10 Test Utilities of the old version yaze-1.10
H: r/w  HI-C-Z280-Compiler   A Copy of the C Compiler from HI Tech Soft
I: r/w  UNIXLIKE        UNIX like utilities
J: r/w  MMU-Utils       Testfiles for the Memory Management Unit (MMU).
K: r/w  Kermit_SZRZ.ydsk Kermit and SZ/RZ (Zmodem)
L: r/w  spl.ydsk        SPL development environment to compile .SPL files
M: r/w  Turbo-Modula-2  Modula 2 Compiler of Borland
N: r/w  testdsk.ydsk    testdisk
P: r/w  BIOS3           Sources of the BIOS3 for YAZE-AG (look 0-README.1ST)

ファイルコピー
 D> pip コピー先ファイル名=コピー元ファイル名
 D> pip con:=ファイル名　　（画面表示）
 D> pip aux:=ファイル名　　（シリアルへ）
アセンブラ
 D> mac ファイル名[.asm]
 D> hexcom ファイル名[.hex] (HEXからCOMファイルへ変換）
UNIXコマンド
 A> df           (マウント全ドライブの容量表示）
 A> i:ls *.* -f

kermitでシリアル経由で接続する
 $ cd ~/cpm
 $ nano .yazerc
  ----
  attach aux /dev/ttyUSB1
  ---- 環境によるターミナルに合わせること（UNIX端末ポートをCP/M　COMポートに割り当てる）
 $ stty -F /dev/ttyUSB1 -crtscts raw 115200 (ttyをRAWモード、ハンドシェークなし、BPSを設定する）
 $ yaze cpm

 x> k:
 k> kermit
 (/home/pi/cpm) C-Kermit> remote dir  (リモート側KERMITでls結果が表示)
 (/home/pi/cpm) C-Kermit> send ファイルパス　(ファイル送信）
 (/home/pi/cpm) C-Kermit> get リモートファイルパス　(ファイル受信）

linux側KERMITをサーバにする
--- ~/.kermrc ------
set line /dev/ttyUSB0
set carrier-watch off
set speed 115200
set parity none
set flow-control none
set escape-character ^]
server
-----------------

 $ nano kerm_server.sh
--------------------
#!/bin/sh
DEV=/dev/ttyUSB0
stty -F $DEV -crtscts raw 115200
kermit
----------作成
 $ chmod +x kerm-server.sh
 $ ./kerm-server.sh
  kermitがサーバモードで動作

rz, szコマンドを使う時

LINUX側
----send---
#!/bin/sh
DEV=/dev/ttyUSB0
stty -F $DEV -crtscts raw 115200
sz $1 > $DEV  < $DEV
----
-----recieve---
#!/bin/sh
DEV=/dev/ttyUSB0
stty -F $DEV　-crtscts raw 115200
rz $1 > $DEV  < $DEV
-----

CP/Mの終了
 A> sys[enter]
CP/Mエミュレータの終了
 $> quit[enter]
CP/Mエミュレータのヘルプ
 $> help           (コマンド一覧)
 $> help コマンド　　(コマンドオプションの説明)

ドライブの追加
 $ cdm
 $> create XXXXX.ydsk 256KB   (容量を指定、なしは１MB)
 $> quit
 $ cdm XXXXX.ydsk
 A0> ls -l          (ファイル一覧)
 A0> cp u:UNIXファイル名 CP/Mファイル名　（バイナリ転送、t:xxxはテキスト転送)
 A0> cp CP/Mファイル名 u:UNIXファイル名
 A0> quit

 $ nano ~/cpm/.yazerc
 ------
 mount o XXXXX.ydsk
 ----追加
　容量が大きいと"insufficient space to mount XXXXX.ydsk"メッセージがコマンド入力直後に表示される。
　~/cpm/.yazercファイルの"go"コマンドをコメントにしてチェックすると良い。
　デフォルトでは"E","O"ドライブが空き。いらないのを外せば容量が大きくできる。
　最大１６ドライブまでマウント出来る。

2021-06-04 　「Raspberry pi PICO」
どんなものかと１個買ってみました。
ほぼ裸でです。
書き込みは、mbedかMicro:bitみたいな感覚です。
Micro:bitはUSBシリアル・フラッシュ書き込みは別CPUなのが、PICOはファームウェアでCPUひとつでやっている。

[ras-pi-pico.jpg]
[tiny2040.jpg]

参照：getting-started-with-pico.pdf  (2021-03-05)
　　　raspberry-pi-pico-python-sdk.pdf (2021-03-05)
　　　hardware_design_with_rp2040.pdf  (2021-03-05)
　　　pico_c_sdk.pdf  (2021-03-05)

(1)開発環境
　Raspberry pi 4B+ 4GB

(2)OSインストール

  Raspberry pi 2021-01-11　Desktopイメージインストール  
  sudo apt install fcitx-mozc
  sudo nano /boot/config.txt
  ---
  hdmi_force_hotplug=1
  ---追加,コメントを外す

  VNCを有効
　画面の大きさ変更は、VNC接続後に"メニュー設定"ー＞"Screen Configuration"で行う。

(3)picoツールインストール

  wget https://raw.githubusercontent.com/raspberrypi/pico-setup/master/pico_setup.sh
  chmod +x pico_setup.sh
  ./pico_setup.sh
  sudo reboot

  minicomは一緒にインストールされる

(4)VSCodeで開発はツールインストールでインストール済なのでメニューから起動できる。
   オープンフォルダで "~/pico/pico-examples" を開くとコンパイルできる。

(5)配線

   Raspberry pi GPIO14 --- PICO pin2(GP1)
   Raspberry pi GPIO15 --- PICO pin1(GP0)
   Raspberry pi GND    --- PICO pin3(GND) に接続。

   Raspberry pi GPIO24 --- PICO SWDIO
   Raspberry pi GPIO25 --- PICO SWCLK
   Raspberry pi GND    --- PICO SWDGND に接続。

   Raspberry pi 5V     --- ショットキダイオードー▶ー　--- PICO VSYS

プログラムをフラッシュに書き込んで、電源を外部からVSYS,またはUSBから給電する場合に周辺回路の電源を３ｖ３ピン
からとるようなことをした場合にリセットがうまく行かない場合がある。
その時はRUNピンをGNDにする。または、RUN pin(37)とGND間に10μF電解コンデンサを入れて　RUN pin(37)と3v3(36)に
ダイオードを入れる。向きは3v3(36)pin方向にコンデンサが放電するような向きに入れる。

　　　　　　　少電力ダイオード　
　　　　　　　　　　↓
　(36)3v3(OUT) --|◀--+---RUN pin(37)
                     |
                    ----　+
                    ////  10uF (電解コンデンサ)
                    ----　-
                     ｜
                     ▽　GND

(6)VisualStudio-Code　と　OPENOCDでデバッグ
　　これでデバッグできるのだが、OSをアップデートしたか何かでできなくなってしまった。
　　フラッシュイレースができないとなる。
　　そこでpicoprobeでやることにした。Raspberry Pi PICOを１枚picoprobeにする。
　　開発環境ボードとはUSBケーブルで接続する。
　　picoprobeはツールインストールで作成されているのでそのuf2ファアイルをUSB経由で書き込む。

(7)USB picoprobeのパーミッションの変更
　　sudo nano /etc/udev/rules.d/98-p-probe.rules
   ---
   ATTRS{idVendor}=="2e8a", ATTRS{idProduct}=="0004", MODE="0666"
   ---作成
　　USBベンダーとプロダクトはlsusbコマンドで表示されるもの。
　　”Bus 001 Device 003: ID 2e8a:0004”  
　　作成したら、リブートして有効にすること。
   有効にしないとコンパイルはできるがデバッグができない。

(8)picoprobeとDEBUG対象PICOボード配線

　　　picoprobe GND -> Pico B GND
　　　picoprobe GP2 -> Pico B SWCLK
　　　picoprobe GP3 -> Pico B SWDIO
　　　picoprobe GP4/UART1 TX -> Pico B GP1/UART0 RX
　　　picoprobe GP5/UART1 RX -> Pico B GP0/UART0 TX
     picoprobe VSYS -> Pico B VSYS

    (getting-started-with-pico.pdf  (2021-03-05) 
      Appendix A: Using Picoprobe の  Picoprobe Wiring　参照）

(9).vscode/launch.jsonの修正

　　---
    "gdbPath" : "gdb-multiarch",
    "device": "RP2040",
    "configFiles": [
        "interface/picoprobe.cfg",  ＜＜＝raspberrypi-swd.cfg をpicoprobe.cfgに変更
        "target/rp2040.cfg"
    ],
    "svdFile": "${env:PICO_SDK_PATH}/src/rp2040/hardware_regs/rp2040.svd",
    "runToMain": true,
　　---

(10)VScode でデバッグする。

   $ code

    VISUAL STUDIO Code画面になる
　　１）openフォルダで先で設定したフォルダを開く
　　２）ウィンドウ下のバーに「キットが選択されていません」となるのでそこをクリックし、
　　　　GCC for arm-none-eabiを選ぶ
　　３）ウィンドウ下のバーの「CMake:[Dbug]:準備完了」をクリック
　　４）ウィンドウ上にDebug選択プルダウンメニューがでるので選択
　　５）メニューRun -> Start Debugging[F5] 選択
　　６）プロジェクト選択プルダウンメニューから新しく作ったプロジェクトを選択
　　main()でブレークした状態となり、デバッグができる。
　　生成されたmain()コードなのでこれを修正して使う。

(11)自分用のCプロジェクトの自動生成とVisualStudio-Codeでデバッグ

   $ cd ~/pico
   $ git clone https://github.com/raspberrypi/pico-project-generator.git
   $ cd ~/pico/pico-project-generator
   $ ./pico_project.py --gui

    [Project Name:] m_core1
    [Location:] /home/pi/pico
    [Library Options] なしでそのまま
    [Console Options] UARTにするかUSBシリアルにするか選択
    [Code Optins] なしでそのまま
    [Build Options] [x]Run Build [x]Create VSCode project Debugger=picoprobe
    [OK] クリック、その後「OK」クリック。
    [quit] クリック。

    ◎コマンドラインでプロジェクトを作る場合は作成したいフォルダに cd xxxx してから、
     /home/pi/pico/pico-project-generator/pico_project.py -uart --project vscode -d 1 プロジェクト名
      VS-code用(--project vscode)のpicoprobe(-d 1)の設定ファイルを作る。

     これでVscodeの環境とｃ言語 mainの雛形プログラムが作成される。

    UARTのデバッグはpicoprobeのUSBケーブル経由で行う。

　　$ minicom -b 115200 -D /dev/ttyACM0

(12)せっかくのマルチコアチップなので体験してみる。
    設定は上記のようにおこなう。

   $ nano m_core1/m_core1.c
   -----
   #include <stdio.h>
   #include "pico/stdlib.h"
   #include "pico/multicore.h"

   // define LED
   #define LED_B 25

   static uint8_t led_b;

   bool repeating_timer_callback(struct repeating_timer *t) {
       gpio_put(LED_B, led_b);
       led_b ^= 1;
       return true;
   }
   // Program core1
   void core1_program(void)
   {
   struct repeating_timer timer;

       gpio_init(LED_B);
       gpio_set_dir(LED_B, GPIO_OUT);
       led_b = 1;
       add_repeating_timer_ms(500, repeating_timer_callback, NULL, &timer);
   
       while(1) {
           asm volatile("nop");
       }
   }

   int main() {
       // Start core1
       multicore_launch_core1(core1_program);

       sleep_ms(5000);
       while(1) {
           asm volatile("nop");
       }
       return 0;
   }
   -----修正

   $ nano m_core1/CMakeLists.txt
   ----
   target_link_libraries(testm1 pico_stdlib pico_multicore)
   ---- "pico_multicore"を追加する

   VISUAL STUDIO Code画面から上記のように修正してもよい。
   メニューRun -> Start Debugging[F5] 選択
　　コンパイル後、実行して５秒後も同じ間隔でLEDが点滅する。

(13)RTCが結構正確に時を刻む。２４時間以上で１秒位あるかどうかくらいです。
    まだ先の長い話ですが、C-SDKサンプルでそのまま使うと西暦2100年はうるう年で動作します。
    2100-02-28　23:59までにRTC: CTRL Register #8bit FORCE_NOTLEAPYEAR = 1 にしましょう。
    2100-03-01 以降には０に。
    4年毎のうるう年計算のみをする。

　　曜日設定があるので曜日計算を調べてみた。
   昔の資料にある数式を使って現在の曜日計算すると正しくないものがある。
   ユリウス日から求めるのも手かも。ユリウス日の計算方法も数種類ある。

　　Zellerの公式

  【参考】［改訂新版］C言語による標準アルゴリズム事典　奥村晴彦　技術評論社　2018

　　Y　西暦４桁
　　M　月
　　D　日付

　①　M <= 2　のとき
　　　　M + 12 = M　 (１月を前年１３月とする、　２月を前年１４月とする)
　　　　Y - 1 = Y

　②　Y　+　INT( Y / 4 ) - INT( Y / 100 ) + INT( Y / 400 )
　　　　　　　　　　　　　　　　　　　 + INT(( 13 ＊　M + 8 ) / 5 ) + D = WDAY
     WDAY Mod 7 = w-day
     w-day 0: 日　1：月　2：火　3：水　4：木  5：金　6：土
     割り算計算は小数点以下切り捨て。

  【参考】教室に電卓を！　（１）　一松信　海鳴社　１９８２

　　Y　西暦４桁
　　M　月
　　D　日付

　　有効範囲：1900.3.1~2100.2.28

　①　Y　−　1900　= Y
　　　M <= 2　のとき
　　　　M + 12 = M　 (１月を前年１３月とする、　２月を前年１４月とする)
　　　　Y - 1 = Y

　②　Y　+　INT( Y / 4 ) + INT(30.6 ＊　( M - 3) + 0.5 ) + D + 3 = WDAY
     WDAY Mod 7 = w-day
     w-day 0: 日　1：月　2：火　3：水　4：木  5：金　6：土
     割り算計算は小数点以下切り捨て。

(14)pico-playground　I2Sオーディオ出力
   amazonで「HiLetgo PCM5102 ラズベリーパイpHATフォーマット用デジタルオーディオボードPCM5102
          I2S IIS用ステレオDAC D/AコンバータPLLボイスモジュール」
   を買って使ってみた。
   
   参照：https://shop.pimoroni.com/products/pimoroni-pico-vga-demo-base

   vscodeからそのままではコンパイルしても音はでない。pimoroniの説明にあるように
   $ cd ~/pico/pico-playground
   $ rm -rf build
   $ mkdir build
   $ cd build
   $ cmake -D"PICO_BOARD=vgaboard" ..
   $ cd apps
   $ make
    手でコンパイルすると、
    apps/usb_sound_card/usb_sound_card.uf2 ができるので、PICOに書き込む。

　　配線：
　　　pico B GND  -> HiLetgo PCM5102 GND
　　　pico B GP28 -> HiLetgo PCM5102 LCK
　　　pico B GP27 -> HiLetgo PCM5102 BCK
　　　pico B GP26 -> HiLetgo PCM5102 DIN
     pico B VSYS -> HiLetgo PCM5102 VIN
     _ _ _ _ _    HiLetgo PCM5102 SCK -> GND 

     AUDIO JACK -> ヘッドホン

　　　これで音が出るようになる。USBケーブルで接続してSOUNDデバイスを確認する。
     stdioのUARTは変更されるので、配線を変更する。
　　　( ~/pico/pico-sdk/src/boards/include/boards/vgaboard.hより）

　　　picoprobe GP4/UART1 TX -> Pico B GP21/UART1 RX
　　　picoprobe GP5/UART1 RX -> Pico B GP20/UART1 TX

　　 確認は、
　　 $ minicom -b 115200 -D /dev/ttyACM0

   VSCodeでcmakeするには、
   $ cd ~/pico/pico-playground
   $ mkdir .vscode
   $ cp ~/pico/pico-examples/ide/vscode/launch-raspberrypi-swd.json .vscode/launch.json
   $ cp ~/pico/pico-examples/ide/vscode/settings.json .vscode/settings.json

　　$ nano ~/pico/pico-playground/.vscode/settings.json
   ---
    "cmake.buildBeforeRun": true,
    "C_Cpp.default.configurationProvider": "ms-vscode.cmake-tools",
    "cmake.configureArgs": [ "-DPICO_BOARD=vgaboard" ], <<<===追加
    "cmake.configureOnOpen": true
   --- １行追加

   $ nano ~/pico/pico-playground/.vscode/launch.json
　　---
    "gdbPath" : "gdb-multiarch",
    "device": "RP2040",
    "configFiles": [
        "interface/picoprobe.cfg",  ＜＜＝raspberrypi-swd.cfg を環境にあわせてpicoprobe.cfgに変更
        "target/rp2040.cfg"
    ],
　　---
[raspi-picoclock.jpg]

2021-01-29 　「BLE HID Keyboard」
BBC Micro:bit V2でnRF52833となったのでやってみた。
Micro:bit GOを取り寄せ。
技適マークあり。
[micro-bit-box.jpg]
箱の中の仕切り紙の電池カバーを組み立てる。
[micro-bit-batt.jpg]

まず、電池をつないでみる。
SPから音が出る。A →　B　ボタン押す。
Get startedの説明書のようにデモが始まる。
・・・・
nRF52 SDKでUARTを使う場合はBoardのヘッダーファイルの
----pca10100.h等------
#define RX_PIN_NUMBER  40    // Micro:bit-v2 USB Serial P1.08
#define TX_PIN_NUMBER  6     // Micro:bit-v2 USB Serial P0.06
を変更するとUSBケーブルをつなぎ、minicomコマンド"minicom -b 115200 -D /dev/ttyACM0"で通信可能になる。
GPIOについては、エッジコネクタP8(P0.10),P9(P0.09)がなぜか使えない。
https://makecode.microbit.org/で作ったSW入力が使えるので普通のGPIOにする手段があるのだろう。
WEB検索したが教えてくれるものが見つからない。
LSM303AGRはｎRF52SDKコードで使える。
[micro-bit-temp.jpg]
 nRF52SDKの　xamples/peripheral/twi_sensor/　を修正。
(1)Makefile: pcs10040/blank/armgccの　52832 ー＞　52833
(2)sdk_config: pcs10040/blank/config
    #define NRFX_TWI0_ENABLED 1
    #define NRFX_TWI1_ENABLED 1    有機ELを使うので。
(3)main.c:
　　TWIのインスタンス２個にする。
　　TWI割り込み未使用に修正。
　　16x16フォント、6x8フォント定義。
　　外部TWI手順追加。
　　LSM303AGR初期化
      LSM303AGR_ACC_CTRL_REG1 = 0x57 //Accel = 100Hz(Normal mode)
      LSM303AGR_ACC_TEMP_CFG_REG = 0xC0  //Enable Temperetue
      LSM303AGR_MAG_CFG_REG_A = 0x80     //Mag = 10Hz(high-resolution and continuous mode)
                                         // tempereture enable
      LSM303AGR_ACC_CTRL_REG4 = 0x80     //BDU on
      LSM303AGR_MAG_CFG_REG_C = 0x00     //Mag data-ready interrupt disenable
   LSM303AGR温度読み込み
　    read_sensor_data(LSM303AGR_ACC_ADDR, LSM303AGR_ACC_OUT_TEMP_L, &ldata);
  　  read_sensor_data(LSM303AGR_ACC_ADDR, LSM303AGR_ACC_OUT_TEMP_H, &hdata);
　　　 気温 = ((int8_t)hdata) + 25;
   SSD1306制御用の関数作成。
      コマンド単位でひとまとめで転送
　　　　データはバイト単位でも転送可
　　SSD1306温度表示作成。
以上が修正の概要。
・・・・
#endif
USB接続してmicro:bitのドライブのなかにあるHTMLを開くと説明書のページが表示される。
フラッシュメモリに書き込んで最初に戻したい場合は、
左メニュー”Out of box experience”より
　[Download the out of box .hex file]ボタンをクリックしてHeXファイルをダウンロードする。
　これをUSB MICROBITドライブにドラッグコピーすると最初の状態になる。
・・・・

コンパイル・書き込みをRaspberry PI/ Raspberry OS (Raspbian)でする。

SDK, Softdeviceダウンロード

https://www.nordicsemi.com/Products/Low-power-short-range-wireless/nRF52833
タグ　Download クリック

下の「Download all files as .zip」クリック
（s113_nerf52_7.2.0.zip , nRF5_SDK_17.0.2_d674dde.zip チェックされていること）
DeviceDownload.zipがダウンロードされる

でBLEのプログラムをやってみた。
各ZIPファイルを解凍する。
コンパイラーインストール。
$ sudo apt install gcc-arm-none-eabi
  arm コンパイラインストール

./nRF5_SDK_17.0.2_d674dde/components/toolchain/gcc/Makefile.posix
    コンパイラ情報修正
----Makefile.posix-----
GNU_INSTALL_ROOT ?= /usr/bin/  <<==修正
GNU_VERSION ?= 7.3.1
GNU_PREFIX ?= arm-none-eabi
---修正
　　GCCバージョンは　/usr/bin/arm-none-eabi-gcc --version で調べる。

./nRF5_SDK_17.0.2_d674dde/examples/ble_peripheral/ble_app_hids_keyboard/pca10100/s113/armgcc
　　ble keyboardサンプルコンパイル位置

SDKサンプルのgccディレクトリでMekeできる。

ファイル./nRF5_SDK_17.0.2_d674dde/components/boards/pca10100.h修正

-----patch.1------
--- pca10100-org.h	2020-09-11 14:43:54.000000000 +0900
+++ pca10100.h	2021-01-04 13:21:38.151062040 +0900
@@ -46,49 +46,64 @@
 
 #include "nrf_gpio.h"
 
-// LEDs definitions for PCA10056
-#define LEDS_NUMBER    4
+// LEDs definitions for Micro:bit V2
+#define LEDS_NUMBER    10
 
-#define LED_1          NRF_GPIO_PIN_MAP(0,13)
-#define LED_2          NRF_GPIO_PIN_MAP(0,14)
-#define LED_3          NRF_GPIO_PIN_MAP(0,15)
-#define LED_4          NRF_GPIO_PIN_MAP(0,16)
+#define LED_1          28 // col 1 GPIO P0.28
+#define LED_2          11 // col 2      P0.11
+#define LED_3          31 // col 3      P0.31
+#define LED_4          37 // col 4      P1.05
+#define LED_5          30 // col 5      P0.30
+#define LED_6          21 // row 1      P0.21
+#define LED_7          22 // row 2      P0.22
+#define LED_8          15 // row 3      P0.15
+#define LED_9          24 // row 4      P0.24
+#define LED_10         19 // row 5      P0.19
 #define LED_START      LED_1
-#define LED_STOP       LED_4
+#define LED_STOP       LED_10
 
 #define LEDS_ACTIVE_STATE 0
 
-#define LEDS_LIST { LED_1, LED_2, LED_3, LED_4 }
+#define LEDS_LIST { LED_1, LED_2, LED_3, LED_4, LED_5, LED_6, LED_7, LED_8, LED_9, LED_10 }
 
 #define LEDS_INV_MASK  LEDS_MASK
-
-#define BSP_LED_0      13
-#define BSP_LED_1      14
-#define BSP_LED_2      15
-#define BSP_LED_3      16
-
-#define BUTTONS_NUMBER 4
-
-#define BUTTON_1       11
-#define BUTTON_2       12
-#define BUTTON_3       24
-#define BUTTON_4       25
+// -----------------------LED_1..10 same number
+#define BSP_LED_0      LED_1
+#define BSP_LED_1      LED_2
+#define BSP_LED_2      LED_3
+#define BSP_LED_3      LED_4
+#define BSP_LED_4      LED_5
+#define BSP_LED_5      LED_6
+#define BSP_LED_6      LED_7
+#define BSP_LED_7      LED_8
+#define BSP_LED_8      LED_9
+#define BSP_LED_9      LED_10
+
+#define BUTTONS_NUMBER 2
+
+#define BUTTON_1       14    // BUTTON-A
+#define BUTTON_2       23    // BUTTON-B
+//#define BUTTON_3       24
+//#define BUTTON_4       25
 #define BUTTON_PULL    NRF_GPIO_PIN_PULLUP
 
 #define BUTTONS_ACTIVE_STATE 0
 
-#define BUTTONS_LIST { BUTTON_1, BUTTON_2, BUTTON_3, BUTTON_4 }
+#define BUTTONS_LIST { BUTTON_1, BUTTON_2 }
 
 #define BSP_BUTTON_0   BUTTON_1
 #define BSP_BUTTON_1   BUTTON_2
-#define BSP_BUTTON_2   BUTTON_3
-#define BSP_BUTTON_3   BUTTON_4
+//#define BSP_BUTTON_2   BUTTON_3
+//#define BSP_BUTTON_3   BUTTON_4
 
-#define RX_PIN_NUMBER  8
-#define TX_PIN_NUMBER  6
+//                            // Micro:bit-v2 P0, P1, P2 maybe? Let's try.
+//#define RX_PIN_NUMBER  13   // Micro:bit-v2 P15 OK
+//#define TX_PIN_NUMBER  1    // Micro:bit-v2 P14 OK
+#define RX_PIN_NUMBER  32   // Micro:bit-v2 P20
+#define TX_PIN_NUMBER  26   // Micro:bit-v2 P19
 #define CTS_PIN_NUMBER 7
 #define RTS_PIN_NUMBER 5
-#define HWFC           true
+#define HWFC           false
 
 // serialization APPLICATION board - temp. setup for running serialized MEMU tests
 #define SER_APP_RX_PIN              NRF_GPIO_PIN_MAP(1,13)    // UART RX pin number.
------------
$ patch pca10100.h < patch.1

ファイル./nRF5_SDK_17.0.2_d674dde/examples/ble_peripheral/ble_app_hids_keyboard/main.c修正
-----patch.2-------
--- main-org.c	2020-09-11 14:43:56.000000000 +0900
+++ main.c	2021-01-05 14:39:22.527826352 +0900
@@ -744,6 +744,7 @@
     sensorsim_init(&m_battery_sim_state, &m_battery_sim_cfg);
 }
 
+#if NRF_BLE_CONN_PARAMS_ENABLED==1
 
 /**@brief Function for handling a Connection Parameters error.
  *
@@ -776,7 +777,7 @@
     err_code = ble_conn_params_init(&cp_init);
     APP_ERROR_CHECK(err_code);
 }
-
+#endif
 
 /**@brief Function for starting timers.
  */
@@ -1523,6 +1524,14 @@
     err_code = bsp_init(BSP_INIT_LEDS | BSP_INIT_BUTTONS, bsp_event_handler);
     APP_ERROR_CHECK(err_code);
 
+    //+++++++++++++++++
+    bsp_board_led_off(5);
+    bsp_board_led_on(6);
+    bsp_board_led_on(7);
+    bsp_board_led_on(8);
+    bsp_board_led_on(9);
+    //+++++++++++++++++
+
     err_code = bsp_btn_ble_init(NULL, &startup_event);
     APP_ERROR_CHECK(err_code);
 
@@ -1583,7 +1592,9 @@
     advertising_init();
     services_init();
     sensor_simulator_init();
+#if NRF_BLE_CONN_PARAMS_ENABLED==1
     conn_params_init();
+#endif
     buffer_init();
     peer_manager_init();
 
------------------
$ patch main.c < patch.2

SDKの環境を設定する。
参照：https://www.u-blox.com/sites/default/files/RC-OscillatorConfiguration_AppNote_%28UBX-20009242%29.pdf
RC発信クロック設定方法　config

nRF5_SDK_.../examples/ble_peripheral/ble_app_hids_keyboard/pca10100/s113/config/sdk_config.h
-----
(1)以下のnrfx_clockブロック
// <e> NRFX_CLOCK_ENABLED - nrfx_clock - CLOCK peripheral driver
#define NRFX_CLOCK_CONFIG_LF_SRC 0


(2)nrf_drv_clockブロック
// <e> NRF_CLOCK_ENABLED - nrf_drv_clock - CLOCK peripheral driver - legacy layer
#define CLOCK_CONFIG_LF_SRC 0

(3)SoftDevice clock configurationブロック
// <h> Clock - SoftDevice clock configuration
#define NRF_SDH_CLOCK_LF_SRC 0
#define NRF_SDH_CLOCK_LF_RC_CTIV 16
#define NRF_SDH_CLOCK_LF_RC_TEMP_CTIV 2
#define NRF_SDH_CLOCK_LF_ACCURACY 1

(4)UARTピン
　#define HCI_UART_RX_PIN 32 // Micro:bit-v2 P20
　#define HCI_UART_TX_PIN 26 // Micro:bit-v2 P19
　　　pca10100.h で定義したもの
　#define HCI_UART_RTS_PIN 16
　#define HCI_UART_CTS_PIN 34
　　　これは空きピンを割り当てました
　#define NRF_LOG_BACKEND_UART_TX_PIN 26 // Micro:bit-v2 P19
　　　オリジナルがUART_TXピンと同じだったので

(5)#define NRF_BLE_CONN_PARAMS_ENABLED 0　はWindows10対策

------patch.3------
--- sdk_config-org.h	2020-09-11 14:43:56.000000000 +0900
+++ sdk_config.h	2021-01-05 15:14:16.142926150 +0900
@@ -131,7 +131,7 @@
 // <e> NRF_BLE_CONN_PARAMS_ENABLED - ble_conn_params - Initiating and executing a connection parameters negotiation procedure
 //==========================================================
 #ifndef NRF_BLE_CONN_PARAMS_ENABLED
-#define NRF_BLE_CONN_PARAMS_ENABLED 1
+#define NRF_BLE_CONN_PARAMS_ENABLED 0
 #endif
 // <o> NRF_BLE_CONN_PARAMS_MAX_SLAVE_LATENCY_DEVIATION - The largest acceptable deviation in slave latency. 
 // <i> The largest deviation (+ or -) from the requested slave latency that will not be renegotiated.
@@ -1771,7 +1771,7 @@
 // <196609=> External Full Swing 
 
 #ifndef NRFX_CLOCK_CONFIG_LF_SRC
-#define NRFX_CLOCK_CONFIG_LF_SRC 1
+#define NRFX_CLOCK_CONFIG_LF_SRC 0
 #endif
 
 // <o> NRFX_CLOCK_CONFIG_IRQ_PRIORITY  - Interrupt priority
@@ -4729,7 +4729,7 @@
 // <196609=> External Full Swing 
 
 #ifndef CLOCK_CONFIG_LF_SRC
-#define CLOCK_CONFIG_LF_SRC 1
+#define CLOCK_CONFIG_LF_SRC 0
 #endif
 
 // <q> CLOCK_CONFIG_LF_CAL_ENABLED  - Calibration enable for LF Clock Source
@@ -6731,22 +6731,22 @@
 
 // <o> HCI_UART_RX_PIN - UART RX pin 
 #ifndef HCI_UART_RX_PIN
-#define HCI_UART_RX_PIN 8
+#define HCI_UART_RX_PIN 32 // Micro:bit-v2 P20
 #endif
 
 // <o> HCI_UART_TX_PIN - UART TX pin 
 #ifndef HCI_UART_TX_PIN
-#define HCI_UART_TX_PIN 6
+#define HCI_UART_TX_PIN 26 // Micro:bit-v2 P19
 #endif
 
 // <o> HCI_UART_RTS_PIN - UART RTS pin 
 #ifndef HCI_UART_RTS_PIN
-#define HCI_UART_RTS_PIN 5
+#define HCI_UART_RTS_PIN 16
 #endif
 
 // <o> HCI_UART_CTS_PIN - UART CTS pin 
 #ifndef HCI_UART_CTS_PIN
-#define HCI_UART_CTS_PIN 7
+#define HCI_UART_CTS_PIN 34
 #endif
 
 // </e>
@@ -7581,7 +7581,7 @@
 #endif
 // <o> NRF_LOG_BACKEND_UART_TX_PIN - UART TX pin 
 #ifndef NRF_LOG_BACKEND_UART_TX_PIN
-#define NRF_LOG_BACKEND_UART_TX_PIN 6
+#define NRF_LOG_BACKEND_UART_TX_PIN 26 // Micro:bit-v2 P19
 #endif
 
 // <o> NRF_LOG_BACKEND_UART_BAUDRATE  - Default Baudrate
@@ -11789,12 +11789,12 @@
 // <2=> NRF_CLOCK_LF_SRC_SYNTH 
 
 #ifndef NRF_SDH_CLOCK_LF_SRC
-#define NRF_SDH_CLOCK_LF_SRC 1
+#define NRF_SDH_CLOCK_LF_SRC 0
 #endif
 
 // <o> NRF_SDH_CLOCK_LF_RC_CTIV - SoftDevice calibration timer interval. 
 #ifndef NRF_SDH_CLOCK_LF_RC_CTIV
-#define NRF_SDH_CLOCK_LF_RC_CTIV 0
+#define NRF_SDH_CLOCK_LF_RC_CTIV 16
 #endif
 
 // <o> NRF_SDH_CLOCK_LF_RC_TEMP_CTIV - SoftDevice calibration timer interval under constant temperature. 
@@ -11802,7 +11802,7 @@
 // <i>  if the temperature has not changed.
 
 #ifndef NRF_SDH_CLOCK_LF_RC_TEMP_CTIV
-#define NRF_SDH_CLOCK_LF_RC_TEMP_CTIV 0
+#define NRF_SDH_CLOCK_LF_RC_TEMP_CTIV 2
 #endif
 
 // <o> NRF_SDH_CLOCK_LF_ACCURACY  - External clock accuracy used in the LL to compute timing.
@@ -11821,7 +11821,7 @@
 // <11=> NRF_CLOCK_LF_ACCURACY_1_PPM 
 
 #ifndef NRF_SDH_CLOCK_LF_ACCURACY
-#define NRF_SDH_CLOCK_LF_ACCURACY 7
+#define NRF_SDH_CLOCK_LF_ACCURACY 1
 #endif
 
 // </h> 
-------------------
$ patch sdk_config.h < patch.3

$ make
$ nano cat_softdev.sh
-------------作成
#!/bin/sh
mkdir -p Micro.bit
srec_cat ../../../../../../components/softdevice/s113/hex/s113_nrf52_7.2.0_softdevice.hex -intel _build/nrf52833_xxaa.hex -intel -o _build/micro-bit.hex -intel --line-length=44
cp _build/nrf52833_xxaa.* Micro.bit
cp _build/micro-bit.hex Micro.bit
-------------
  srec_catコマンドは  apt install
  srec_catは１行で実行
　できたHEXファイルとソフトデバイスHEXと合成されたHEXファイルがいる。INTEL-HEXを結合する
$ sudo apt install srecord

$ chmod +x cat_softdev.sh
$ ./cat_softdev.sh

  Micro:bitはUSBケーブルで接続するとメモリードライブとなる。
  Micro.bitディレクトリにできたmicro-bit.hexをUSBメモリのMICROBITドライブにドラッグコピー。
　前もってUSBシリアルケーブル接続して minicom -b 115200 -D /dev/ttyUSB0 コマンド実行するとログが表示。
　プログラム起動時、５ｘ５LEDの左上１個が点滅する。
　Add-deviceリストでペアリングする。５ｘ５LEDの左上１個が点灯する。
　ただし、一度remove-deviceするとその後、リストに表示しなくなる。
　RESETボタンを押しながらか、電源をONする前にボタンB（SHIFTキー）を押しながら、
　RESETボタンを離すか、電源ONするとペアリングリストに表示される。

　ボタンAを押すと１文字入力される。"hello"が繰り返す。ボタンBはシフトキー。
・・・・・・・・・・・・・・・
LEDブリンクをやってみる。

ファイル：　./examples/peripheral/blinky/pca10100e/blank/armgcc/Makefile
---
nrf52820 を　nrf52833　に修正する
----patch.1----------
--- Makefile-old	2020-09-11 10:09:32.000000000 +0900
+++ Makefile	2021-01-04 09:27:39.237863000 +0900
@@ -1,16 +1,16 @@
 PROJECT_NAME     := blinky_pca10100e
-TARGETS          := nrf52820_xxaa
+TARGETS          := nrf52833_xxaa
 OUTPUT_DIRECTORY := _build
 
 SDK_ROOT := ../../../../../..
 PROJ_DIR := ../../..
 
-$(OUTPUT_DIRECTORY)/nrf52820_xxaa.out: \
+$(OUTPUT_DIRECTORY)/nrf52833_xxaa.out: \
   LINKER_SCRIPT  := blinky_gcc_nrf52.ld
 
 # Source files common to all targets
 SRC_FILES += \
-  $(SDK_ROOT)/modules/nrfx/mdk/gcc_startup_nrf52820.S \
+  $(SDK_ROOT)/modules/nrfx/mdk/gcc_startup_nrf52833.S \
   $(SDK_ROOT)/components/libraries/log/src/nrf_log_frontend.c \
   $(SDK_ROOT)/components/libraries/log/src/nrf_log_str_formatter.c \
   $(SDK_ROOT)/components/boards/boards.c \
@@ -28,7 +28,7 @@
   $(SDK_ROOT)/components/libraries/strerror/nrf_strerror.c \
   $(SDK_ROOT)/modules/nrfx/soc/nrfx_atomic.c \
   $(PROJ_DIR)/main.c \
-  $(SDK_ROOT)/modules/nrfx/mdk/system_nrf52820.c \
+  $(SDK_ROOT)/modules/nrfx/mdk/system_nrf52833.c \
 
 # Include folders common to all targets
 INC_FOLDERS += \
@@ -70,7 +70,7 @@
 CFLAGS += -DCONFIG_GPIO_AS_PINRESET
 CFLAGS += -DDEVELOP_IN_NRF52833
 CFLAGS += -DFLOAT_ABI_SOFT
-CFLAGS += -DNRF52820_XXAA
+CFLAGS += -DNRF52833_XXAA
 CFLAGS += -DNRFX_COREDEP_DELAY_US_LOOP_CYCLES=3
 CFLAGS += -mcpu=cortex-m4
 CFLAGS += -mthumb -mabi=aapcs
@@ -92,7 +92,7 @@
 ASMFLAGS += -DCONFIG_GPIO_AS_PINRESET
 ASMFLAGS += -DDEVELOP_IN_NRF52833
 ASMFLAGS += -DFLOAT_ABI_SOFT
-ASMFLAGS += -DNRF52820_XXAA
+ASMFLAGS += -DNRF52833_XXAA
 ASMFLAGS += -DNRFX_COREDEP_DELAY_US_LOOP_CYCLES=3
 
 # Linker flags
@@ -104,10 +104,10 @@
 # use newlib in nano version
 LDFLAGS += --specs=nano.specs
 
-nrf52820_xxaa: CFLAGS += -D__HEAP_SIZE=4096
-nrf52820_xxaa: CFLAGS += -D__STACK_SIZE=4096
-nrf52820_xxaa: ASMFLAGS += -D__HEAP_SIZE=4096
-nrf52820_xxaa: ASMFLAGS += -D__STACK_SIZE=4096
+nrf52833_xxaa: CFLAGS += -D__HEAP_SIZE=4096
+nrf52833_xxaa: CFLAGS += -D__STACK_SIZE=4096
+nrf52833_xxaa: ASMFLAGS += -D__HEAP_SIZE=4096
+nrf52833_xxaa: ASMFLAGS += -D__STACK_SIZE=4096
 
 # Add standard libraries at the very end of the linker input, after all objects
 # that may need symbols provided by these libraries.
@@ -117,12 +117,12 @@
 .PHONY: default help
 
 # Default target - first one defined
-default: nrf52820_xxaa
+default: nrf52833_xxaa
 
 # Print all targets that can be built
 help:
 	@echo following targets are available:
-	@echo		nrf52820_xxaa
+	@echo		nrf52833_xxaa
 	@echo		sdk_config - starting external tool for editing sdk_config.h
 	@echo		flash      - flashing binary
 
@@ -137,8 +137,8 @@
 
 # Flash the program
 flash: default
-	@echo Flashing: $(OUTPUT_DIRECTORY)/nrf52820_xxaa.hex
-	nrfjprog -f nrf52 --program $(OUTPUT_DIRECTORY)/nrf52820_xxaa.hex --sectorerase
+	@echo Flashing: $(OUTPUT_DIRECTORY)/nrf52833_xxaa.hex
+	nrfjprog -f nrf52 --program $(OUTPUT_DIRECTORY)/nrf52833_xxaa.hex --sectorerase
 	nrfjprog -f nrf52 --reset
 
 erase:
---------------------
$ patch Makefile < patch.1

---修正

$ nano ./examples/peripheral/blinky/main.c
---
int main(void)
{
    /* Configure board. */
    bsp_board_init(BSP_INIT_LEDS);

    bsp_board_led_on(5);
    bsp_board_led_on(6);
    bsp_board_led_on(7);
    bsp_board_led_on(8);
    bsp_board_led_on(9);

    /* Toggle LEDs. */
    while (true)
    {
        for (int r = 5; r < LEDS_NUMBER; r++ )
        {
            bsp_board_led_off(r);

            for (int i = 0; i < 5; i++)
            {
                bsp_board_led_invert(i);
                nrf_delay_ms(500);

                bsp_board_led_invert(i);
                nrf_delay_ms(500);
            }
 
            bsp_board_led_on(r);
        }
    }
}
---main()を上記のように修正　

$ cd ./examples/peripheral/blinky/pca10100e/blank/armgcc
$ make
$ cd ./examples/peripheral/blinky/pca10100e/blank/armgcc/_build
Micro:bitをUSB接続する。
nrf52833_xxaa.hex をMicro:bit USBドライブにコピーする.
LED 5x5マトリックスのLED１個ずつ点灯、消灯を繰り返す。

・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
[4key.jpg]
ワイヤレスキーボードを作ってみたくなり６年くらいほったらかしていたNRF51822 Blutooth基板を出してきて始めた。
同じNRF51822デバイスを使っているものは以外といっぱいある。
　スイッチサイエンス　HRM1017 (emded, breakout基板)
　太陽誘電　Bluetooth
　Braveridge　BVMCN5301　  (segger J-link LITE付きがある）
　BBC Micro:bit
　　　
コンパイル・書き込みをRaspberry PI/ Raspberry OS (Raspbian)でする。
新しいSDKをやってみたけれども、なんともならず時間だけが費やされてしまった。

BLE開発入門 - はんだ付けからファームウェアの書き込みまで
https://qiita.com/k-yamada-github/items/27968882f7f38efda60a

を手がかりに
nrf5-SDK古いバージョン
https://developer.nordicsemi.com/nRF5_SDK/
nrf51_sdk_v6_1_0_b2ec2e6.zip

s110_nrf51822_7.3.0_softdevice
https://www.nordicsemi.com/Software-and-tools/Software/S110/Download#infotabs
s110_nrf51822_7.3.0.zip ダウンロードしたところ（s110 7.3にチェックする）

でBLEのプログラムをやってみた。
各ZIPファイルを解凍する。
コンパイラーインストール。
$ sudo apt install gcc-arm-none-eabi
  arm コンパイラインストール

$ nano nRF5_SDK_xx/nrf51822/Source/templates/gcc/Makefile.posix
---
GNU_INSTALL_ROOT := /usr
GNU_VERSION := 7.3.1
GNU_PREFIX := arm-none-eabi
---修正
　　GCCバージョンは　/usr/bin/arm-none-eabi-gcc --version で調べる。

SDKサンプルのgccディレクトリでMekeできる。
nRF5_SDK_xx/nrf51822/Source/templates/gcc/gcc_nrf51_xxx_xxx.ldがリンクアドレス設定ファイル。
Makefileの　”DEVICE_VARIANT”、"USE_SOFTDEVICE"で名前が決まる。

$ cd nRF5_SDK_xx/nrf51822/Board/nrf6310/s110/ble_app_hids_keyboard/

$ nano main.c

--
static void ble_stack_init(void)
{
    uint32_t err_code;

    // Initialize the SoftDevice handler module.
    // SOFTDEVICE_HANDLER_INIT(NRF_CLOCK_LFCLKSRC_XTAL_20_PPM, true);
    SOFTDEVICE_HANDLER_INIT(NRF_CLOCK_LFCLKSRC_RC_250_PPM_4000MS_CALIBRATION, true);　＜＜＝＝修正
--
　32KHz内蔵RC発信CLOCKにする。

$ cd gcc
$ make clean
$ make
  LED, BUTTONのポートを変更しなくてもはBLEペアリングテストはできる。

できたHEXファイルとソフトデバイスHEXと合成されたHEXファイルがいる。INTEL-HEXを結合する
$ sudo apt install srecord
$ srec_cat s110_nrf51822_7.3.0_softdevice.hex -intel ble_hids_keyboard110_s110_xxaa.hex -intel -o micro-bit.hex -intel --line-length=44
　　コマンド１行で。

Micro:bit, embedはUSBケーブルで接続するとメモリードライブとなるのでドラッグ＆ドロップすれば良い。

他の書き込みはBraveridge　BVMCN5301に付いていたsegger J-link LITEで書き込み。
書き込みツールは以下の手順で、

https://devzone.nordicsemi.com/f/nordic-q-a/49600/segger-jlink-tools-on-raspberry-pi--
Segger JLink tools on Raspberry Pi -
にあったリンク↓
https://forum.segger.com/index.php/Thread/5693-SOLVED-J-Link-Remote-Server-on-Raspberry-Pi/?s=9291616dfd89fb558f236e94b8574ba7b817ad4f
にあったリンク↓

https://www.segger.com/downloads/jlink/JLink_Linux_arm.tgz
Acceptしてダウンロード

JLink_Linux_V680b_arm.tgz　を解凍し、
cd  JLink_Linux_V680b_arm
README.txt にあるコマンドを実行
$ sudo cp 99-jlink.rules /etc/udev/rules.d/
$ sudo reboot
　リブートする

再起動したら　 JLink_Linux_V680b_armディレクトリ下で
JLinkExeを実行してフラッシュに書き込む。

$ ./JLinkExe
SEGGER J-Link Commander V6.80b (Compiled Jun  5 2020 17:46:57)
DLL version V6.80b, compiled Jun  5 2020 17:46:38

Connecting to J-Link via USB...O.K.
Firmware: J-Link Lite-Cortex-M V8 compiled Sep 15 2016 12:05:01
Hardware version: V8.00
S/N: 000000000
License(s): GDB
VTref=2.995V


Type "connect" to establish a target connection, '?' for help
J-Link>connect
      =========
Please specify device / core. <Default>: xxx
Type '?' for selection dialog
Device>nrf51822
      =========
Please specify target interface:
  J) JTAG (Default)
  S) SWD
  T) cJTAG
TIF>s
   ===
Specify target interface speed [kHz]. <Default>: 4000 kHz
Speed> <Enter>
     ==========
Device "NRF51822_XXAA" selected.


Connecting to target via SWD
Found SW-DP with ID 0x0BB11477
Unknown DP version. Assuming DPv0
Scanning AP map to find all available APs
AP[1]: Stopped AP scan as end of AP map has been reached
AP[0]: AHB-AP (IDR: 0x04770021)
Iterating through AP map to find AHB-AP to use
AP[0]: Core found
AP[0]: AHB-AP ROM base: 0xF0000000
CPUID register: 0x410CC200. Implementer code: 0x41 (ARM)
Found Cortex-M0 r0p0, Little endian.
FPUnit: 4 code (BP) slots and 0 literal slots
CoreSight components:
ROMTbl[0] @ F0000000
ROMTbl[0][0]: E00FF000, CID: B105100D, PID: 000BB471 ROM Table
ROMTbl[1] @ E00FF000
ROMTbl[1][0]: E000E000, CID: B105E00D, PID: 000BB008 SCS
ROMTbl[1][1]: E0001000, CID: B105E00D, PID: 000BB00A DWT
ROMTbl[1][2]: E0002000, CID: B105E00D, PID: 000BB00B FPB
ROMTbl[0][1]: F0002000, CID: B105900D, PID: 000BB9A3 ???
Cortex-M0 identified.
J-Link>loadfile micro-bit.hex
      ==========================
Downloading file [_BOARD_5103_s110_xxaa.hex]...
Comparing flash   [100%] Done.
Erasing flash     [100%] Done.
Programming flash [100%] Done.
J-Link: Flash download: Bank 0 @ 0x00000000: 1 range affected (47104 bytes)
J-Link: Flash download: Total: 1.755s (Prepare: 0.055s, Compare: 0.020s, Erase: 0.939s, Program & Verify: 0.731s, Restore: 0.008s)
J-Link: Flash download: Program & Verify speed: 63 KB/s
O.K.
J-Link>exit
　　　　====
....
  リセット・ホルト・GO・イレースは参考文献参照。

参考：
FAQ・テクニカルガイド 「J-Link Commander」ツール - エンビテック
https://www.embitek.co.jp/technote/jlink/JLink_HowToUse_JLinkCommander.pdf
..........................................................................

NRF51-SDKのサンプルは、
--
http://blog.suga41.com/?eid=319
nRF51のサンプルソースは内部クロックに設定されている。（2016.03.10）
--
にあるように内蔵RC16MHzになっている。
.....
NRF_CLOCK->EVENTS_HFCLKSTARTED = 0;
NRF_CLOCK->TASKS_HFCLKSTART    = 1;
while (　NRF_CLOCK->EVENTS_HFCLKSTARTED == 0){
    // イベント待ち
    __NOP();
}
....
のようにすると、
NRF_CLOCK->HFCLKSTAT:00010000　が　NRF_CLOCK->HFCLKSTAT:00010001 のように切り替わる。
また、キーSW用　KEY_PRESS_BUTTON_PIN_NOとBOND_DELETE_ALL_BUTTON_ID　に割り当てたポートを抵抗でプルアップしないとCPUがSLEEP直後にWAKEUPする。

2020-07-13　「発音辞書検索」
[cmu_dict_use.png]
発音辞書検索を作ろうと思ったのは

Cマガジン　1991.4月号　発音の類似による文字のマッチングアルゴリズム：Metaphone

を発見してから。
同じような発音が似ている語を検索するための発音記号生成アルゴリズムは以下の様なものがある。

　　American Soundex
　　　https://en.wikipedia.org/wiki/Soundex

　　Metaphone
　　　https://en.wikipedia.org/wiki/Metaphone

　　NYSIIS (New York State Identification and Intelligence System)
　　　https://en.wikipedia.org/wiki/New_York_State_Identification_and_Intelligence_System

　　Match Rating Codex
　　　https://en.wikipedia.org/wiki/Match_rating_approach

母音字が注目されていないのがほとんどなので同じ生成記号でも結構引っかかる。

================
参考：
https://pypi.org/project/jellyfish/
jellyfish 0.8.2

sudo apt install python3-jellyfish
python3
---
>>> import jellyfish
>>> jellyfish.metaphone('snow')
'SNW'
>>> jellyfish.soundex('snow')
'S500'
>>> jellyfish.nysiis('snow')
'SNAO'
>>> jellyfish.match_rating_codex('snow')
'SNW'
>>> jellyfish.metaphone('virus')
'FRS'
>>> jellyfish.soundex('virus')
'V620'
>>> jellyfish.match_rating_codex('virus')
'VRS'
>>> jellyfish.nysiis('virus')
'VAR'

発音記号辞書

カーネギーメロン大学のCMU発音辞書を使う。
  http://www.speech.cs.cmu.edu/cgi-bin/cmudict
  The CMU Pronouncing Dictionary
ホムページにある
You can also download the dict from https://github.com/Alexir/CMUdict/blob/master/cmudict-0.7b.
からダウンロードしたcmudict-0.7bを加工して使う。
　35474行目　語の文字コードが崩れているので削除するか"D_J"に修正する。

　　DZOKHAR  JH OW2 K AA1 R
　　D_C  D IY1 S IY1
　　Dxxx  D EY2 JH AA1 <<<=== 35474行目　語の文字コードが崩れているので削除するか"D_J"に修正する。
　　E  IY1
　　E'S  IY1 Z

発音記号はIPAが一般ですがフォントが特別になるのでアルファベット文字で表現できるARPABETという記号を使う。
　https://ja.wikipedia.org/wiki/ARPABET
　https://en.wikipedia.org/wiki/ARPABET
　ARPABET
インターネットを始めた組織が考えた記号。

この辞書からSqliteデータベースを作成する。これだと語と発音記号だけのものとなる。
--- install_cmu_dict.sh -----
#!/bin/sh
rm cmu_dict.db
cat <<EOF | tee sql.txt
CREATE TABLE alphatb
( word varchar(64) not null,
  arpabet varchar(256));
EOF
sed -e "/^;;.*$/d" -e "s/'/''/g" -e "s/\([^ ]*\)  \(.*\)$/insert into alphatb values \( lower\(\'\1\'\) ,\'\2\'\);/" cmudict-0.7b >> sql.txt
sqlite3 cmu_dict.db < sql.txt
-------------------------------

発音が同じようなものも検索したいのでPython3でSQL文生成前に発音の類似による文字のマッチングアルゴリズムで発音記号生成をしてしまう。
$ sudo apt install sqlite3
$ sudo apt install python3-jellyfish
$ nano cmu_sqlit3.sh
---- cmu_sqlit3.sh -----
#!/bin/sh
rm -f cmu_dict.db
cat <<EOF | tee sql.txt
CREATE TABLE alphatb
( id integer not null,
  word varchar(64) not null,
  arpabet varchar(256),
  metaphone varchar(128),
  soundex varchar(128),
  nysiis varchar(128),
  matchracodex varchar(128) );
EOF
python3 f01.py >> sql.txt
sqlite3 cmu_dict.db < sql.txt
-------
$ chmod +x cmu_sqlit3.sh
$ nano f01.py
------- f01.py -------
#!/usr/bin/env python3
# -*- coding: utf-8 -*-
import jellyfish
import re

try:
    file = open("cmudict-0.7b")  # cmu 辞書オープン
    lines = file.readlines()     # 辞書読み込み
    seqn = 0
    for line in lines:           # 1行毎処理
        dic1 = line.rstrip('\n') # 改行コード削除
        if dic1[0] == ';':       # コメント読み飛ばし
            continue
        dictd = re.split('  ', dic1)  # 単語と発音記号分離
        dictw = dictd[0]
        dictw = re.sub(r'^[^A-Z]+| *[ ( ][^ ( ]*[ ) ]',r'', dictw) # 単語先頭記号文字と最後の（数字）削除で発音比較アルゴリズム関数の引数作成
        meta = jellyfish.metaphone(dictw)              # metaphone()
        meta = meta.replace('\'','\'\'')               # 発音比較文字SINGLE-QUOTEを２つにエスケープ
        sndx = jellyfish.soundex(dictw)                # soundex()
        sndx = sndx.replace('\'','\'\'')               # 発音比較文字SINGLE-QUOTEを２つにエスケープ
        nyss = jellyfish.nysiis(dictw)                 # New York State Identification and Intelligence System()
        nyss = nyss.replace('\'','\'\'')               # 発音比較文字SINGLE-QUOTEを２つにエスケープ
        mrcd = jellyfish.match_rating_codex(dictw)     # match rating approach()
        mrcd = mrcd.replace('\'','\'\'')               # 発音比較文字SINGLE-QUOTEを２つにエスケープ
        dictx = dictd[0].replace('\'','\'\'')          # 単語 文字SINGLE-QUOTEを２つにエスケープ
        seqn += 1                                      # 単語連番
        print( 'insert into alphatb values (\''+str(seqn)+'\', lower(\''+ dictx + '\'), \'' + dictd[1] +'\', \''+ meta +'\', \''+ sndx +'\', \''+ nyss +'\', \''+  mrcd +'\');')
              # SQL insert文生成
except Exception as e:
    print(e)
finally:
    file.close()      # cmu 辞書クローズ
-------
$ ./cmu_sqlit3.sh
辞書データベースができる。133852語の発音記号。

検索プログラム

QT5インストール
$ sudo apt install python3-pyqt5 qtcreator qt5-qmake qt5-default

検索画面作成
メインメニューからqtcreator起動し、画面定義を作成する。
-------- cmu_dict_win.ui -------------------
<?xml version="1.0" encoding="UTF-8"?>
<ui version="4.0">
 <class>MainWindow</class>
 <widget class="QMainWindow" name="MainWindow">
  <property name="geometry">
   <rect>
    <x>0</x>
    <y>0</y>
    <width>922</width>
    <height>488</height>
   </rect>
  </property>
  <property name="windowTitle">
   <string>MainWindow</string>
  </property>
  <widget class="QWidget" name="centralWidget">
   <widget class="QTableWidget" name="tableWidget">
    <property name="geometry">
     <rect>
      <x>20</x>
      <y>100</y>
      <width>881</width>
      <height>348</height>
     </rect>
    </property>
    <property name="font">
     <font>
      <family>Monospace</family>
     </font>
    </property>
    <property name="toolTip">
     <string notr="true"/>
    </property>
    <property name="statusTip">
     <string notr="true"/>
    </property>
    <property name="whatsThis">
     <string notr="true"/>
    </property>
    <property name="layoutDirection">
     <enum>Qt::LeftToRight</enum>
    </property>
    <property name="autoFillBackground">
     <bool>true</bool>
    </property>
    <property name="lineWidth">
     <number>999</number>
    </property>
    <property name="verticalScrollBarPolicy">
     <enum>Qt::ScrollBarAsNeeded</enum>
    </property>
    <property name="horizontalScrollBarPolicy">
     <enum>Qt::ScrollBarAlwaysOn</enum>
    </property>
    <property name="sizeAdjustPolicy">
     <enum>QAbstractScrollArea::AdjustIgnored</enum>
    </property>
    <property name="autoScroll">
     <bool>true</bool>
    </property>
    <property name="horizontalScrollMode">
     <enum>QAbstractItemView::ScrollPerItem</enum>
    </property>
    <property name="showGrid">
     <bool>true</bool>
    </property>
    <property name="gridStyle">
     <enum>Qt::DotLine</enum>
    </property>
    <property name="wordWrap">
     <bool>true</bool>
    </property>
    <property name="cornerButtonEnabled">
     <bool>true</bool>
    </property>
    <property name="rowCount">
     <number>10</number>
    </property>
    <property name="columnCount">
     <number>4</number>
    </property>
    <attribute name="horizontalHeaderVisible">
     <bool>true</bool>
    </attribute>
    <attribute name="horizontalHeaderMinimumSectionSize">
     <number>14</number>
    </attribute>
    <attribute name="verticalHeaderVisible">
     <bool>false</bool>
    </attribute>
    <row/>
    <row/>
    <row/>
    <row/>
    <row/>
    <row/>
    <row/>
    <row/>
    <row/>
    <row/>
    <column/>
    <column/>
    <column/>
    <column/>
    <item row="0" column="0">
     <property name="text">
      <string/>
     </property>
    </item>
    <item row="0" column="1">
     <property name="text">
      <string/>
     </property>
    </item>
   </widget>
   <widget class="QLineEdit" name="lineEWord">
    <property name="geometry">
     <rect>
      <x>20</x>
      <y>30</y>
      <width>591</width>
      <height>32</height>
     </rect>
    </property>
   </widget>
   <widget class="QLabel" name="label">
    <property name="geometry">
     <rect>
      <x>30</x>
      <y>0</y>
      <width>68</width>
      <height>22</height>
     </rect>
    </property>
    <property name="text">
     <string>単語</string>
    </property>
   </widget>
   <widget class="QLabel" name="label_2">
    <property name="geometry">
     <rect>
      <x>630</x>
      <y>0</y>
      <width>281</width>
      <height>22</height>
     </rect>
    </property>
    <property name="text">
     <string>検索方法（マッチ、先頭、後方、部分）</string>
    </property>
   </widget>
   <widget class="QPushButton" name="btnMatch">
    <property name="geometry">
     <rect>
      <x>630</x>
      <y>30</y>
      <width>61</width>
      <height>30</height>
     </rect>
    </property>
    <property name="text">
     <string>■■■</string>
    </property>
   </widget>
   <widget class="QPushButton" name="btnHead">
    <property name="geometry">
     <rect>
      <x>700</x>
      <y>30</y>
      <width>61</width>
      <height>30</height>
     </rect>
    </property>
    <property name="text">
     <string>■■？</string>
    </property>
   </widget>
   <widget class="QPushButton" name="btnTail">
    <property name="geometry">
     <rect>
      <x>770</x>
      <y>30</y>
      <width>61</width>
      <height>30</height>
     </rect>
    </property>
    <property name="text">
     <string>？■■</string>
    </property>
   </widget>
   <widget class="QPushButton" name="btnMiddle">
    <property name="geometry">
     <rect>
      <x>840</x>
      <y>30</y>
      <width>61</width>
      <height>30</height>
     </rect>
    </property>
    <property name="text">
     <string>？■？</string>
    </property>
   </widget>
   <widget class="QRadioButton" name="razBmeta">
    <property name="geometry">
     <rect>
      <x>400</x>
      <y>70</y>
      <width>119</width>
      <height>27</height>
     </rect>
    </property>
    <property name="text">
     <string>&amp;metaphone</string>
    </property>
    <attribute name="buttonGroup">
     <string notr="true">buttonGroup</string>
    </attribute>
   </widget>
   <widget class="QRadioButton" name="razBsndx">
    <property name="geometry">
     <rect>
      <x>520</x>
      <y>70</y>
      <width>101</width>
      <height>27</height>
     </rect>
    </property>
    <property name="text">
     <string>s&amp;oundex</string>
    </property>
    <attribute name="buttonGroup">
     <string notr="true">buttonGroup</string>
    </attribute>
   </widget>
   <widget class="QRadioButton" name="razBnyss">
    <property name="geometry">
     <rect>
      <x>620</x>
      <y>70</y>
      <width>81</width>
      <height>27</height>
     </rect>
    </property>
    <property name="text">
     <string>&amp;NYSIIS</string>
    </property>
    <attribute name="buttonGroup">
     <string notr="true">buttonGroup</string>
    </attribute>
   </widget>
   <widget class="QRadioButton" name="razBmrap">
    <property name="geometry">
     <rect>
      <x>710</x>
      <y>70</y>
      <width>191</width>
      <height>27</height>
     </rect>
    </property>
    <property name="text">
     <string>Mat&amp;ch rating approach </string>
    </property>
    <attribute name="buttonGroup">
     <string notr="true">buttonGroup</string>
    </attribute>
   </widget>
   <widget class="QLabel" name="label_3">
    <property name="geometry">
     <rect>
      <x>220</x>
      <y>70</y>
      <width>171</width>
      <height>22</height>
     </rect>
    </property>
    <property name="text">
     <string>発音比較アルゴリズム：</string>
    </property>
   </widget>
  </widget>
  <widget class="QToolBar" name="mainToolBar">
   <attribute name="toolBarArea">
    <enum>TopToolBarArea</enum>
   </attribute>
   <attribute name="toolBarBreak">
    <bool>false</bool>
   </attribute>
  </widget>
  <widget class="QStatusBar" name="statusBar"/>
 </widget>
 <layoutdefault spacing="6" margin="11"/>
 <resources/>
 <connections/>
 <buttongroups>
  <buttongroup name="buttonGroup"/>
 </buttongroups>
</ui>
--------

検索プログラム
$ nano py.py
----------- py.py -----
#!/usr/bin/env python3
# -*- coding: utf-8 -*-
from PyQt5 import uic
import PyQt5.QtCore as QtCore
from PyQt5.QtWidgets import QTableWidget, QRadioButton, QWidget, QSizePolicy, QHeaderView, QMainWindow, QMessageBox, QApplication, QTableWidgetItem
from PyQt5.QtGui import QIcon
from PyQt5 import QtGui, QtWidgets

from subprocess import run, PIPE, Popen
import signal
import time
import sys
import os
import sqlite3
import re

# データベースファイルのパス
dbpath = 'cmu_dict.db'

class GUICmudict(QMainWindow):
    def __init__(self):
        """UIファイルロード、イベントの関連付け、ウィンドウの設定"""

        super().__init__()
        self.currnt_dir = os.path.dirname(os.path.abspath(__file__))
        self.ui = uic.loadUi(self.currnt_dir + '/cmu_dict_win.ui')

        self.ui.setWindowIcon(QIcon(self.currnt_dir+'/Dict.png'))
        self.ui.setWindowTitle("英語発音辞書検索")
        self.ui.btnMatch.clicked.connect(self.sqlMatch)
        self.ui.btnHead.clicked.connect(self.sqlHead)
        self.ui.btnTail.clicked.connect(self.sqlTail)
        self.ui.btnMiddle.clicked.connect(self.sqlMiddle)

        self.ui.razBmeta.setChecked(True)

        self.ui.tableWidget.setAlternatingRowColors(False);  # 1 行おきに色を変える
        app.aboutToQuit.connect(self.closeEvent)  # From http://stackoverflow.com/questions/24532043/proper-way-to-handle-the-close-button-in-a-main-window-pyqt-red-x
        self.ui.tableWidget.setHorizontalHeaderLabels(["","■","","［ARPABET発音記号］"])
        self.ui.tableWidget.horizontalHeader().setStyleSheet("color:Blue;")

        self.ui.tableWidget.horizontalHeader().setDefaultAlignment(QtCore.Qt.AlignLeft | QtCore.Qt.AlignVCenter)
        self.ui.tableWidget.horizontalHeader().setSectionResizeMode(3, QHeaderView.Stretch)
        self.ui.tableWidget.resizeColumnsToContents();

    def normalWin(self):
        """通常表示"""
        self.ui.show()

    def FullScreen(self):
        """フルスクリーン表示"""
        self.ui.showFullScreen()

    def minimized_win(self):
        """ウィンドウをアイコンにする"""
        self.ui.showMinimized()

    def closeEvent(self):
        """システムメニュー[X]がクリックされた"""
        self.ui.close()
        sys.exit(0)

    def sqlMatch(self):
        self.ui.tableWidget.setHorizontalHeaderLabels(["","■","","［ARPABET発音記号］"])
        self.ui.tableWidget.setRowCount(0)
        txtword = self.ui.lineEWord.text()
        self.sqlExec(txtword, 0)

    def sqlHead(self):
        self.ui.tableWidget.setHorizontalHeaderLabels(["■","","","［ARPABET発音記号］"])
        self.ui.tableWidget.setRowCount(0)
        txtword = self.ui.lineEWord.text()
        self.sqlExec(txtword, 1)

    def sqlTail(self):
        self.ui.tableWidget.setHorizontalHeaderLabels(["","","■","［ARPABET発音記号］"])
        self.ui.tableWidget.setRowCount(0)
        txtword = self.ui.lineEWord.text()
        self.sqlExec(txtword, 2)
        #self.ui.tableWidget.setSizeAdjustPolicy(QTableWidget.QAbstractScrollArea.AdjustToContents)
        #self.ui.tableWidget.resizeColumnsToContents();

    def sqlMiddle(self):
        self.ui.tableWidget.setHorizontalHeaderLabels(["","■","","［ARPABET発音記号］"])
        self.ui.tableWidget.setRowCount(0)
        txtword = self.ui.lineEWord.text()
        self.sqlExec(txtword, 3)

    def printWord(self, row, str_word, sqlf):
        numRows = self.ui.tableWidget.rowCount()
        self.ui.tableWidget.insertRow(numRows)     
        #Add text to the row
        str_word = str_word.lower()
        if sqlf == 999:
            item = QTableWidgetItem(row[0])
            item.setBackground(QtGui.QColor(200, 255, 200))
            item.setTextAlignment(QtCore.Qt.AlignLeft | QtCore.Qt.AlignVCenter)
            self.ui.tableWidget.setItem(numRows, 1, item)
        if sqlf == 0:
            item = QTableWidgetItem(str_word)
            item.setBackground(QtGui.QColor(128, 240, 240))
            item.setTextAlignment(QtCore.Qt.AlignLeft | QtCore.Qt.AlignVCenter)
            self.ui.tableWidget.setItem(numRows, 1, item)
        if sqlf == 1:
            item = QTableWidgetItem(str_word)
            item.setTextAlignment(QtCore.Qt.AlignRight | QtCore.Qt.AlignVCenter)
            item.setBackground(QtGui.QColor(128, 240, 240))
            self.ui.tableWidget.setItem(numRows, 0, item)
            item = QTableWidgetItem(row[0][len(str_word):])
            self.ui.tableWidget.setItem(numRows, 1, item)
        if sqlf == 2:
            item = QTableWidgetItem(row[0][:-len(str_word)])
            item.setTextAlignment(QtCore.Qt.AlignRight | QtCore.Qt.AlignVCenter)
            self.ui.tableWidget.setItem(numRows, 1, item)
            item = QTableWidgetItem(str_word)
            item.setTextAlignment(QtCore.Qt.AlignRight | QtCore.Qt.AlignVCenter)
            item.setBackground(QtGui.QColor(128, 240, 240))
            self.ui.tableWidget.setItem(numRows, 2, item)
        if sqlf == 3:
            m = re.search(str_word, row[0])
            item = QTableWidgetItem(row[0][:m.start()])
            item.setTextAlignment(QtCore.Qt.AlignRight | QtCore.Qt.AlignVCenter)
            self.ui.tableWidget.setItem(numRows, 0, item)
            item = QTableWidgetItem(str_word)
            item.setTextAlignment(QtCore.Qt.AlignRight | QtCore.Qt.AlignVCenter)
            item.setBackground(QtGui.QColor(128, 240, 240))
            self.ui.tableWidget.setItem(numRows, 1, item)
            item = QTableWidgetItem(row[0][m.end():])
            item.setTextAlignment(QtCore.Qt.AlignLeft | QtCore.Qt.AlignVCenter)
            self.ui.tableWidget.setItem(numRows, 2, item)
        item = QTableWidgetItem(row[1])
        item.setTextAlignment(QtCore.Qt.AlignLeft | QtCore.Qt.AlignVCenter)
        if sqlf == 999:
            item.setBackground(QtGui.QColor(240, 255, 240))
        else:
            item.setBackground(QtGui.QColor(240, 240, 255))
        self.ui.tableWidget.setItem(numRows, 3, item)

    def getBtnX(self):
        if self.ui.razBsndx.isChecked():
             return 1
        elif self.ui.razBnyss.isChecked():
             return 2
        elif self.ui.razBmrap.isChecked():
             return 3
        else:
             return 0

    def sqlExec(self, str_word, sqlf):
        # データベース接続とカーソル生成
        if len(str_word) == 0:
            numRows = self.ui.tableWidget.rowCount()
            self.ui.tableWidget.insertRow(numRows)     
            item = QTableWidgetItem("")
            item.setBackground(QtGui.QColor(255, 255, 255))
            self.ui.tableWidget.setItem(numRows, 0, item)
            item = QTableWidgetItem("Word入力なし")
            item.setBackground(QtGui.QColor(255, 255, 80))
            item.setTextAlignment(QtCore.Qt.AlignRight | QtCore.Qt.AlignVCenter)
            self.ui.tableWidget.setItem(numRows, 1, item)
            item = QTableWidgetItem("")
            item.setBackground(QtGui.QColor(255, 255, 255))
            self.ui.tableWidget.setItem(numRows, 2, item)
            
        else:
            connection = sqlite3.connect(dbpath)
            # connection.isolation_level = None
            cursor = connection.cursor()
            p1_word = str_word
            if sqlf == 2:
               p1_word = '%' + str_word
            if sqlf == 1:
               p1_word = str_word + '%'
            if sqlf == 3:
               p1_word = '%' + str_word + '%'
        
            cursor.execute('SELECT word, arpabet, metaphone, soundex, nysiis, matchracodex, id FROM alphatb WHERE word like lower(?) ORDER BY word', (p1_word,))
            wsel = 0 
            for row in cursor.fetchall():
                self.printWord(row, str_word, sqlf)
                wsel += 1
            if sqlf == 0 and wsel == 1:
                btnx = self.getBtnX()

                selDBid = ['metaphone', 'soundex', 'nysiis', 'matchracodex'][btnx]
                selw = row[2+btnx]
                idw = row[6]
                numRows = self.ui.tableWidget.rowCount()
                self.ui.tableWidget.insertRow(numRows)     
                item = QTableWidgetItem("★発音類似語★")
                self.ui.tableWidget.setItem(numRows, 3, item)
                cursor.execute('SELECT word, arpabet, metaphone, soundex, nysiis, matchracodex, id FROM alphatb WHERE id!=? and '+selDBid+'=? ORDER BY word', (idw,selw,))
                for row in cursor.fetchall():
                    self.printWord(row, str_word, 999)

            connection.close()
            
        self.ui.tableWidget.resizeColumnsToContents();
        self.ui.tableWidget.horizontalHeader().setSectionResizeMode(3, QHeaderView.Stretch)
 

if __name__ == "__main__":
    app = QApplication(sys.argv)
    win = GUICmudict()
    #win.FullScreen()
    win.normalWin()
    sys.exit(app.exec_())
-----------------------
使い方

ディレクトリ構成
.
├── Dict.png     ...アイコンは名前はこれで、イメージは好みで用意すること。
├── cmu_dict.db
├── cmu_dict_win.ui
└── py.py

$ python3 py.py

単語を入力域に入力し、検索ボタンをクリック。
ボタン”■■■”
　語ひとつ一致結果と似たような発音の語一覧が表示される。
　アルゴリズムはいづれか一つ選択する。
ボタン”■■？”
　語の先頭部分一致一覧が表示される。
　似たような発音の語は出ない。
ボタン”？■■”
　語の後方部分一致一覧が表示される。
　似たような発音の語は出ない。
ボタン”？■？”
　語の中間部分一致一覧が表示される。
　似たような発音の語は出ない。
タイトルバー［X］
　プログラム終了。

--------　プログラムライセンス　Copylight (c) k.Shimomura. The MIT License (MIT) ---------　

表紙