近況報告

　ホームページの更新もブログの更新も、休んでいたのは、まったく個人的な理由からです。

　信頼性を強く保てる株式ソフトの改変に没頭していました。原始に遡るならば遠く昭和の化石時代から小さな改変を加えるならばバージョンを重ねること何百回にもなるかもしれない自作のソフトです。
　これが、会計ソフトや他のデータベースソフトの基本にもなりました。

　数年前にそれなりに自信を持って改変したにもかかわらず、本心がかなり猜疑的なようだったのか、ご宣託のあった選択銘柄を完全に無視し「あでもないこうでもない」と画面とにらめっこしながら突入したマーケットで、刀折れ矢尽き果てる敗残の日々に勤しんでいました。

　しかし、崖っぷちの四面楚歌に陥った今日、起死回生の手を尽くさねばと、ホームページもブログもいつものように犠牲にし、一日1パーセントの利益確保を心がけることにしました。

　そして、手堅く動かせるソフトへと全面的に改変していました。ようやく、本日、全データを本格変換するソフトとして起動させましたので、一息ついたところです。

　ただ今、コンピ連合が楽しそうに2005年からの日々のデータを変換しています。ひょっとすると数日後にまた全部やり直しするかもしれないのに、この快調な動きに水を差さないようにブログの更新に来ました。


　プログラムの構成に関しては、作る人によって様々です。ここで記載したプログラムは、株式だけのみならず、会計や住所録などのデータ記録にも応用したものです。

　私の経験から言えることは、簡単な変数名、例えばA$とか安易につけないほうが良いようですね。プログラムを改変するにしたがって変数が多くなるので、見てすぐわかるような変数名、例えば、hajime(始値)とかにすることで、どこで何を使うかの時にもんぞり打たなくて済みます・・・たぶん。

　ここに例示したコードのKWZやUWZなどそのときの思いつきで付けているので、改変するたびにどういう意味だったのか何度探ったことでしょう。一発変換で、変数名を変えられるるけれど、後で更に困りそうなので変えるに変えれずです。

　仮に販売など配布する場合でも中身を見られないように実行ファイルにするのだから、作った本人がわかるようにしておかないと泣きを見ますね。解かりやすい変数名にしたとしても、プログラムの動作を左右はしません。


　このサブプログラムを作るまで、会社四季報から必要なデータを入力するのに1週間以上も要していました。それが、ヤフーの企業情報から収集してエクセルファイルを作ってくれるので、情報収集から個別銘柄への格納まで、10分ほどに。
　もっとも、このサブプログラムはデータ変換に欠かせないので最初から作って動作させていたのだけれど、僅か10行ほどの追加に数年も躊躇していたことになりました。

　順調に動いてくれるものだから、ひと月、ふた月分を変換させては、気に入らないと全てを初期化し全銘柄の格納庫を作り直させて楽しんでいます。手入力で味わえない高速の利点でもありますね。





ビジュアル・ベーシックでの銘柄データ保管庫作成部分コード例

Sub DataHenkan2008()

＊　変数は、全て任意。ビジュアル・ベーシックの動作コードにかからないものを設定。

Dim J As Integer

Dim DataCode$(6000), DataName$(6000)
Dim DataKabusu(6000) As Currency
Dim DataHaito(6000), DataRieki(6000), DataShisan(6000) As Double
Dim DataTuki(6000), DataGyosyu(6000), DataItiba(6000), DataTanni(6000) As Integer

Dim I, U, JKL, HLP(600), DF(600), BS2(600) As Integer
Dim C1$, DB$, DHH$, HH$, HH2$
Dim KE11, KE21, KE31, KE41, FK1 As Double
Dim KS1, HP1, LP1, KSH11, KSH21, DH2 As Long
Dim DBC As Long


＊　ここで収集した個別銘柄の基本データの変換準備。

JKL = 0

Open "C:\*○○○○\DBKanri\銘柄データ.CSV" For Input As #3

For I = 1 To 6000

If EOF(3) Then JKL = I: GoTo 5

Input #3, DataCode$(I), DataItiba(I), DataName$(I), DataKabusu(I), DataHaito(I), DataRieki(I), DataShisan(I), DataTuki(I), DataTanni(I), DataGyosyu(I)

Next I
5:
Close #3


＊　ここから、個別銘柄の格納庫を作成する。個別銘柄格納庫では、すでに銘柄リストファイルの読み込み済みが前提。

For J = 1 To Kasu

For U = J To JKL
If DataCode$(U) = HC$(J) Then BaiTan = BaiTanni(J): GoSub 7
Next U

Next J

GoTo 500

7:

HH2$ = Str$(J)

HH$ = " " + HH2$ + " 件目の　" + DataCode$(J) + " を変換中です。"

Form**.Caption = HH$

A$ = DataCode$(J)
B$ = DataName$(J)

If BaiTan = 1 Then If DataKabusu(J) < 10000000 Then KS = DataKabusu(J): GoTo 8
If BaiTan = 1 Then If DataKabusu(J) >= 10000000 Then KS = DataKabusu(J) / 1000: GoTo 8

If BaiTan = 1000 Then KS = DataKabusu(J) / 1000: GoTo 8
If BaiTan >= 100 Then If BaiTan <= 999 Then KS = DataKabusu(J) / 100: GoTo 8
If BaiTan >= 10 Then If BaiTan <= 99 Then KS = DataKabusu(J) / 10

8:

KS = DataKabusu(J)
FK = 15
KE1 = DataRieki(J)
KE2 = KE1
KE3 = KE1
KE4 = KE1
HP = 1000
LP = 1000
KSH = DataShisan(J)
KSH2 = KSH
Haito0 = DataHaito(J)
Haito1 = Haito0
Haito2 = Haito0
KesanTuki = DataTuki(J)
GSP = DataGyosyu(J)


15:

＊　ここから、個別銘柄のランダムファイル格納庫コード。

＊　銘柄コード別にフォルダを設定している。A$とは、個別銘柄の証券コード。

DBC = Val(A$)

If DBC < 2000 Then DB$ = "DB1000\" + C1$
If DBC > 1999 Then If DBC < 3000 Then DB$ = "DB2000\" + C1$
If DBC > 2999 Then If DBC < 4000 Then DB$ = "DB3000\" + C1$
If DBC > 3999 Then If DBC < 5000 Then DB$ = "DB4000\" + C1$
If DBC > 4999 Then If DBC < 6000 Then DB$ = "DB5000\" + C1$
If DBC > 5999 Then If DBC < 7000 Then DB$ = "DB6000\" + C1$
If DBC > 6999 Then If DBC < 8000 Then DB$ = "DB7000\" + C1$
If DBC > 7999 Then If DBC < 9000 Then DB$ = "DB8000\" + C1$
If DBC > 8999 Then DB$ = "DB9000\" + C1$

＊　基本的には、Cドライブに株式データ庫を設定する。\○○○○\は、私のソフトのフォルダー名のため、明記しない。
　　データ格納可能数。日足データは600件。週足データと月足データは、それぞれ300件。スタートポジションは、日足＝1、週足＝601、月足＝901。個別銘柄の基本データは、ポジション1201から1210に格納。


' 日変換

K = 0

Fnum = FreeFile
Pos = 0
If K > 0 Then DH = 1

For I = 0 To K

Pos = Pos + 1
DHH$ = YY(I) + MM(I) + DD(I)
DH2 = Val(DHH$)
If I > 1 Then If YY(I) = "" Then DH2 = 19991116
Rec.YMD = DH2
Rec.Hajime = D2(I)
Rec.Takane = D3(I)
Rec.Yasune = D4(I)
Rec.Owarine = D5(I)
Rec.Dekidaka = D6(I)
Rec.UpE = UE(I)
Rec.DnE = KE(I)
Rec.UK = UKC$(I)
Rec.KWZ = 0
Rec.UWZ = 0

Length = LenB(Rec)

Open "C:\○○○○\" + DB For Random As #Fnum Len = Length

Put #Fnum, Pos, Rec
Close #Fnum

Next I


DW = Pos
DC = K

週変換・月変換は省略

＊　ポジション1201から1204は、個別名画の基本情報。銘柄コード以外は可変。

　　 Pos = 1201

Rec.YMD = 0: 'DH
Rec.Hajime = 0: ' DW
Rec.Takane = 600: 'WH
Rec.Yasune = 600: 'WW
Rec.Owarine = 900: 'MH
Rec.Dekidaka = 900: 'MW
Rec.UpE = DC
Rec.DnE = WC
Rec.UK = GyoSyu$
Rec.KWZ = GSP
Rec.UWZ = 0

Length = LenB(Rec)
Fnum = FreeFile

Open "C:\○○○○\" + DB For Random As #Fnum Len = Length

Put #Fnum, Pos, Rec
Close #Fnum



＊　ポジション1204以降の0領域は、テクニカル算出数値、移動平均算出数値など日足データ変換で可変。

Fnum = FreeFile
Length = LenB(Rec)
Pos = 1204

Rec.YMD = 0
Rec.Hajime = 0
Rec.Takane = 0
Rec.Yasune = 0
Rec.Owarine = 0
Rec.Dekidaka = KesanTuki
Rec.UpE = 0
Rec.DnE = 0
Rec.UK = ""
Rec.KWZ = 0
Rec.UWZ = 0

Open "C:\○○○○\" + DB$ For Random As #Fnum Len = Length
Put #Fnum, Pos, Rec
Close #Fnum

＊　かなり途中を省略。

End Sub


　以上のようなコードで全銘柄の個別銘柄のデータ格納庫をおよそ3分くらいで作成。
　これが出来上がれば、全銘柄4000以上の日足変換と同時に週足、月足を2分も掛けずに変換する。サブに各週の区切り数値を設定すると、週に1日しか出来ないような銘柄でも、日足変換と同時に週足・月足も変換することで、変換漏れを防ぐことも可能。



　注　＊印の行や日本語文は、プログラムコード設定の説明であり、実際のプログラムでは必要ない。注祝設定 ' を前に付記しない限りバグで動かない。サブで変数宣言をしていない変数は、サブやプロシージャを超えてプログラム全体に引き継がれる変数なので、グローバル変数をすでに設定している。


　追加し忘れていた銘柄も公開当初からデータを蓄積でき、毎日苦になっていた日足データの格納が昔日になったしだいです。上昇に転じる銘柄選択も日足変換で信頼性の置けるものになりつつあるので、ゴールデンウィークには、醤油と山葵を持って船釣りに出向く計画も立てられそう。
　特に、真鰯を海水で洗いそのままあるいは気持ち醤油を付けて飲み込む旨さは、鯛以上の味ですね。そして、冷えたビールがあるならば、船酔いも飛んでしまう。

　釣果土産など重たいものは不要。その場その時に食する分だけ釣る。こんな贅沢な釣りはない。何年前のことだったろう・・・あの日よ、もう一度。そのために作った株式ソフトなのかなぁ？


　ちなみにこれからの目標は、1売買5パーセント。回転数、1日から3日。4日以降になる場合は、1日持つごとにプラス1パーセント。10日を限度に手仕舞う。誓うは易し守るは難しってなものですかねぇ？

短命。類似の出現はあるのか？

　火星ローバーのカラー画像と格闘している間に、高画質サイトが閉鎖されていましたね。

　お知らせメールが届いていたけれども、いつもの広告と同じと思って用件も見ないでゴミ箱に入れていたら、しっかりと閉鎖しますって書いてありました。

　対応が遅れたので、かなりの高画質番組が閲覧不可になっているようです。

　類似の画質で妥協できそうなところをいくつか探してメンバー登録したけれども、画質劣化の見本FLVばかりで当サイトの高画質として採用できませんでした。
　しかし、日本のサイトに裏技的にこれまでの高画質に引けをとらないファイル形式がありましたので、そちらのサイトにお世話になることにしました。
　高画質画面は、FLVに似たファイル再生仕様ですが、ファイル自体が高画質なものですからダウンロードの設定をしました。
　これから順次、高画質サイトへファイルを移動しますが、その前に字幕の誤字や配置を見直しているために、入れ替えに日数を要します。

　テスト的に、100メガバイト以下のファイルのオリジナルの画面サイズをHDタイプ仕様にすることも検討したいと思います。
　ハッブル映像は、やはり高画質でこそ、その素晴らしさを実感できるのではないでしょうか？


高画質動画倉庫の閉鎖に対応が遅れているコスモス・ビジョン
http://cosmos-vision.net/index.html


静止画の更新停滞がまだ続きそうな　惑星テラ見聞録です。
http://the-cosmos.org/index.html



今日の主題画像は、赤外線で見る月です。白いところが何かを意味していそうだからというので採用したのではありません。目立つ白い地域は、クレータです。

高画質ビデオの更新停止の知らせ

高画質のビデオサイトであるStage6が突然にサイトを閉鎖しました。
これまでの番組は視聴できますが、新しい番組を同様の高画質で視聴できる動画保存サイトを選択中です。

したがって、当サイトの制作する新番組は、求める高画質の確認ができるまで少しの間休憩します。

数日で、何らかの対処ができるように新番組の制作を進める予定です。

白昼堂々の「公用車」無断乗り逃げの見ず知らずの方へ

そりゃあ、すぐ傍にいてパソコンと格闘していた私が、当サイトの「公用車」を盗まれたのに気づかなかったのが一番悪いといえばそうかもしれない。それでもね、敷地に入ってまで乗り逃げ、刑法では窃盗という行為をすることはないでしょうよ。

どうせ盗むならば、近くのコンビニで店長と立ち話しているときとか、スーパーで燃料を仕入れているときにしてもらいたいよ。白黒自動車が赤いランプつけて駆けつけてくれるからさ。

所轄の警察署に電話しても20回以上も呼び出しても出てくれないし、恥ずかしかったけれど110番してしまったではないか。

警視庁「警視庁。110番です。」
私「あの～、そんなに急いでいないし重要な事件でもないのですが・・・所轄の警察署に電話しても出てくれないので・・・」
警視庁「どんな事件ですか？」
私「つまらない事件です。公用車を盗まれました。それでとりあえず盗難届けと思って○○○警察署に電話したのですけれど、出てくれませんので、忙しいところ申し訳ないが110番しました。」
警視庁「何番にかけましたか？」
私「3***-0110です。」
警視庁「その番号はあっていますね。出ないのですか？」
私「日曜日だからじゃないですか？こちらから出向くので、警察署よりも近い交番はどこになりますか？私の住所は、」
警視庁「わかっています。大きな道路を+++の方に向かっていくと+++交番がありますからそこで届けてください。申し訳ないですね。」

こんな電話の会話中に私の脳裏には、壁面いっぱいの東京都の地図と電話を受け付けている110番指令の目の前のパソコン画面が浮かんでいた。
緊急司令室の光景は、過ぎ去りし数年前、負傷者が10名以上も発生した重大事件のときにたまたま業務でその場に居合わせ蜂の巣をつつくような場面を見たので、生死と懐の肺炎にかかわらない限りは110番しないことにしている。ちなみにその時は、ここに居るべからず知らぬが仏と一目散に逃亡した。

それから10分ほど後に、近くという交番にママチャリでたどり着いた。「公用車」と違って乗り心地が悪くハンドル操作も切れが悪い。ママチャリとの2年のブランクを感じた。

疎遠なママチャリ運転の危険な思いをして交番についたけれども、だぁ～れもいないではないか。目の前の○○○警察署につながる電話を取ったら呼び鈴1回ですぐ応答。有料電話ではなかなか出てくれなくて、無料電話ですぐ出るシステムに感心。

私「公用車の盗難届けですが、誰もいません。」
警察署「今パトロールに出ているから、連絡を取ります。5分ほど待ってください。」

一服タイムになったので、交番から出て煙を吐き出したら、目の前に禁煙区域というでっかい文字が・・・付けてすぐ消すのは「もったいない精神」に反するので7分目ほどまで嗜好してから禁煙区域に同意した。

警察官「どこで盗難に会ったの？」
私「事務所の敷地内です。」
警察官「いつごろ？」
私「多分昼過ぎ・・・犬の巡回に出かけるときに気がつきました。」
警察官「鍵は？」
私「信用するのが主義ですので、敷地内では掛けていません。」
警察官「つまり、無施錠ということね。防犯登録は？」
私「これです。」

その他もろもろの雑談を経て
他の警察官「****ね。これ人気あるからなぁ。私、そこ（事務所）を4日に一度通っているよ。」
私「そう、その公用車が盗まれたのです。」
警察官「私も2つの輪の環境に良い乗り物を盗まれたことがあるのでね。」

私は、思わず被害届けだしましたって突っ込みたくなった。

で最後に、被害届に住所氏名等を自筆記入の段階に。
私「年齢は、どのくらいサバ読んでもいいのですか？」
警察官「・・・・できるだけ正確に・・・」
私「10はひどすぎるだろうけれど5つ3つは許容範囲ということで、こんくらいにしときます。」
警察官「・・・・・・・・それでは、左人差し指をちょっとここに押してください。」
私「110番で判子もっていくように言われたのですが・・・」
警察官「できれば本人確認ということで、指紋の方が間違いないので・・・」
私「悪用しないですよね。総監のところに指紋をごてごて付けてきているから・・・」
警察官「ソウカン？」
私「隼町の警視総監のところです。ついでに近くの最高裁判所裁判官室とか隣の県の本部司令室とか、一般やドロ専門職もほとんど立ち入らないところに・・・照合されたら身に覚えないことになりそうな・・・例えば冤罪とかで・・・」
警察官「・・・・・・・・・・、お疲れ様でした。」


交番を後にしてそれから1時間ほど、乗り逃げしているかもしれないと思って駅周辺をママチャリ巡回した。

ふっと気がついた。110番で教えられた交番よりもこの交番の方が近かったのではないか？同じ○○○警察署だし。管轄区域は境界線の上だから、ここでもいいはず。以前、カラスの襲撃で通行人の生死にかかわる事件で110番したときに白黒自動車の他にチャリンコで駆けつけてきた警察官は、ここの交番からだったと思うけれどと、少し釈然としない気持ちでその交番の前で立ち止まったら、「なんか用か」と立ち番が見つめてきた。
不審尋問にあったら文句なく「自転車」窃盗犯にされる気配。公用車を盗まれて、ママチャリの窃盗犯に思われたのでは、泣きっ面に蜂だ。触らぬ近くの交番に不審尋問はないということで、一目散に遠去かった。


***駅から+++駅を経由して*+*+駅までの途中、ママチャリの後輪の空気が抜け出した。目の前の自転車店で空気を注入。気を取り直して*+*+駅の不法駐輪地帯を目指す。一通り巡回して目的物を発見できず、帰りかけたら気の合う交番がまた目の前に。ここはひとつ挨拶しないといけないので、寄り道した。
私「今しがた○○○警察署の交番に公用車の盗難届けを出したけれど、ひょっとして***区で強制移動した2つの輪の乗り物はその区だけですか？」
警察官「そうです。」
私「寄り道したついでなので、この番号の2つの輪の乗り物を強制移動しているか調べてもらえますか？」
警察官「成城*******ですね。ちょっと待ってください。もしもし、成城警察の*****ですがいつもお世話になっています。成城*******を保管していますか？ありませんか？どうもありがとうございました。保管していないということです。」
私「あそこ（事務所）からだと不法乗り捨てする場合は、ここが中心ですよね。」
警察官「そうですね。ただ、住宅地なんかの場合は、強制移動しないし、駅によってはそのままのところも・・・強制移動したならばハガキで連絡しますので、それまでお待ちください。」
私「費用は、被害届を出していても私持ちになるのですかねぇ？」
警察官「そうなります。」

意気消沈で帰途に着いたら間違いなく後輪がパンクしていた。途中2件の自転車店を通過しながら空気を入れた自転車店に戻った。1000円の修理代だったが、「チューブが老いぼれているのでパンク修理の効き目がないかもしれないから後で新品のチューブに入れ替えてください。そのときに、新品のチューブ代金からパンク修理代を差し引きます。」と恐縮しながら店長が話した。
そして、さらに1000円の修理代を800円に値下げしてくれた。
200円の値引きにではなく、その真摯な対応に感動し、散歩コースのお気に入り自転車店として即登録した。
懐と相談しだいだが、次に導入する公用車はこの店に頼むことにしようかとも思った。ただ、特別仕様なので取り寄せになるかもしれない。即金解決できる6段変則の折り畳みを公用車にするのも悪くないかと思った。


ということで、当サイトの「公用車」を無断で乗っていった方へ。
強制撤去費用を前払いするならば、被害届を取り下げますので、お早めに送金してください。
被害金額は、警察査定に対し意義を申し立て強制的に重要な証拠物件として100円追加しています。所有者でないとわからない証拠物件です。良心的にこっそり返還して置くならば、当サイトの被害届は即時撤廃します。
また、今後の累犯では、取り締まり当局に口利きも検討します。お早めにお届けください。新品の公用車を導入した場合には、この「公告」はなかったものになります。



見るほどのものでもないけれど今日の拡大画像
http://cosmos-vision.net/Blog/2008/03/03-02-01.jpg


いろいろと更新停滞のネタ探しに忙しい　惑星テラ見聞録です。
http://the-cosmos.org/index.html



撮影地は、現在も逃亡を続けている一家虐殺事件があった祖師谷公園です。

ROSWELL UFO 墜落現場

ROSWELL UFO 墜落現場拡大画像
「ROSWELL UFO 墜落現場拡大画像」


UFO墜落現場とロズウェル市の位置関係俯瞰
「UFO墜落現場とロズウェル市の位置関係俯瞰」


UFO墜落現場とロズウェル市の位置関係地図
「UFO墜落現場とロズウェル市の位置関係地図」


UFO墜落現場とロズウェル市とエリア51の位置関係地図
「UFO墜落現場とロズウェル市とエリア51の位置関係地図」

一部ファイルの移動削除について

予備サイトのファイル容量が制限を1割近くオーバーしていたのが判明したために、2003年5月から2003年8月までのページを本サイトに順次移行することにしました。
したがって、該当年月日のページは、予備サイトにアクセスしても404エラーになります。
なお、場合によっては、レイアウトと記事の手直しをして、2008年の更新ページとして援用する場合もあります。


当サイトで開設しているブログへの書き込みをお受けいたしますが、匿名や当サイトの方針に反するような場合には、開示しないこともあります。
また、既に開示している場合でも、管理者の気分次第、風見鶏次第で、簡単に削除することもあります。


しっかりした反対の意見を持っているとしても、匿名やでたらめなハンドルネームでは意見の向上を切磋琢磨できないと思います。

新年の改装中です。

新年おめでとうございます。

ただ今、当サイトでは、見やすく移動しやすいページを目的にサイトの改装を行っています。

慣れ親しんだ移動に迷子になるつくりを惜しむ方も居られるかもしれませんが、管理者がページからページにどう移動するのか迷っていますので、簡素なレイアウトにしてみました。

コスモス・ビジョンも多くのご支援を得ておりますので、トップページからの誘導も無くし、最新製作ビデオを高画質大画面で視聴するつくりにしました。

ただ、コスモス・ビジョンのトップでのご案内は、地球と宇宙、真相の企画制作に限るつもりで、編集配信する他の番組は、最近制作のビデオ一覧からご視聴ください。

2008年最初の画像ページの更新は、今日の宇宙画像でビデオの宇宙の小さな旅シリーズとの連携になります。更新予定は、1月2日です。


2008年は、ほぼ毎日あるいは、ほぼ2日に1ページを更新する計画です。


本年も場合によっては恒例の更新定休があるかもしれませんが、時間がありましたならばお寄りくださいませ。


本年もどうぞよろしくお願いいたします。



惑星テラ見聞録　管理者　t.sasaki