June 25, 2005

「宛名印刷」

_卯之介さんのところより
公開されて日も経ってしまい時期を逸した感はありますが、
郵政公社公開のCSVを眺めていたら、郵便ネットで使われているデータベースが当にコレのようですね。検索結果で出てくる文字列がそのままですし、都道府県コードもCSVファイルの番号と一致してそう。
「其処にクエリーを直接送って検索結果のみを得る」というVBSを持ってたもので。

投稿者 秋天越 : 10:02 AM | コメント (3) | トラックバック (0)

June 23, 2005

だから

_もともと非歩行で設計されてる屋根にそんな重量物を載せたらダメだってば。
無理言わないでください。

投稿者 秋天越 : 12:36 PM | コメント (0) | トラックバック (0)

June 20, 2005

なでしこその2

_やってみた、プログラムは楽しい。

------------devidesc.bat----------------
@REM 円ソリッド分割
@echo off
goto exe
REM #jww
REM #cd
REM #h1
REM #g1
REM #hc円ソリッド図形を選択してください
REM #e
:exe
cnako ソリッド分割.nako
ren jwc_temp.txt jwc_ttt.txt
ren _temp.txt jwc_temp.txt
del jwc_ttt.txt
:end
rem pause

------------ソリッド分割.nako----------
# 円ソリッドを三角形ソリッドに分割する
#       秋天越が2005年06月19(日)に書いて
#              06月20(月)に修正した なでしこスクリプト
#!cnako

■円ソリッドとは
 # 角度単位:ラジアン
 # 円フラグ:円「100」弓形「5」扇形「0」円外「-1」
 ・X
 ・Y
 ・横半径
 ・扁平率
 ・傾角
 ・始角
 ・円弧角
 ・円フラグ
 ・認証(行)〜
  構成は行を「 」で区切ったもの。
   Xは   構成¥1。
   Yは   構成¥2 。
   横半径は 構成¥3。
   扁平率は 構成¥4。
   傾角は  構成¥5。
   始角は  構成¥6。
   円弧角は 構成¥7。
   円フラグは構成¥8。
#

●円ソリッド三角化(X、Y、横半径、扁平率、傾角、始角、円弧角、円フラグ)
 # 角度単位:ラジアン
 # 円フラグ:円「100」弓形「5」扇形「0」円外「-1」
 縦半径 = 横半径 * 扁平率
 円割数は96。
 もし横半径が5000未満ならば、円割数は48。
 もし横半径が2500未満ならば、円割数は24。
 もし横半径が1250未満ならば、円割数は12。
 円割角 = 2.0 * 3.1415926 / 円割数。
 分割数 = (円弧角 / 円割角)の整数部分
 もし分割数が0ならば、分割数は1。
 分割角 = 円弧角 / 分割数
 分割数に1を足して、繰返数に代入。

 もし円フラグが5ならば
  点1は「」。
  点0は「」。
  # 三角ソリッドに分割して出力
  #「pl」と一行出力。
  繰返数 回
   点2は円上点(X、Y、横半径、縦半径、傾角、始角 + (回数-1) * 分割角)。
   もし回数が1以下ならば
    点0は点2。 # 始点を原点にする
   もし回数が1超ならば
    # 出力
    「sl {点0} {点1} {点2}」と一行出力。
   ここまで
   点1は点2。
  ここまで
  #「#」と一行出力。

 違えば
  点1は「」。
  もし円フラグが0未満ならば
   点0は円外原点(X、Y、横半径、扁平率、傾角、始角、円弧角)。
  違えば
   点0は「{X} {Y}」。
  ここまで
  # 三角ソリッドに分割して出力
  #「pl」と一行出力。
  繰返数 回
   点2は円上点(X、Y、横半径、縦半径、傾角、始角 + (回数-1) * 分割角)。
   もし回数が1超ならば
    # 出力
    「sl {点0} {点1} {点2}」と一行出力。
   ここまで
   点1は点2。
  ここまで
  #「#」と一行出力。
 ここまで

●円外原点(X、Y、横半径、扁平率、傾角、始角、円弧角)
 # 角度単位:ラジアン
 # ここの関数数式表現を日本語的にするのは難しい
 # というか作業用の仮変数に和名つけたりすると返ってわかり難い
 xa = 横半径 * COS(始角)
 ya = 横半径 * SIN(始角)
 xb = 横半径 * COS(始角 + 円弧角)
 yb = 横半径 * SIN(始角 + 円弧角)
 px = (ya*yb*(yb-ya) - xa*yb*xa + xb*ya*xb)/(xb*ya - xa*yb)
 もしyaが0ならば
  py = (xb-xa) * xb/yb + yb
 違えば
  py = xa/ya * xa - xa/ya * px + ya
 ここまで
 # 楕円は扁平率で補正する
 py = py * 扁平率
 原点X= X + px * COS(傾角) - py * SIN(傾角)
 原点Y= Y + py * COS(傾角) + px * SIN(傾角)
 それは「{原点X} {原点Y}」。

●円上点(X、Y、横半径、縦半径、傾角、中心角)
 # 角度単位:ラジアン
 点X = X + 横半径 * COS(中心角) * COS(傾角) - 縦半径 * SIN(中心角) * SIN(傾角)
 点Y = Y + 縦半径 * SIN(中心角) * COS(傾角) + 横半径 * COS(中心角) * SIN(傾角)
 それは「{点X} {点Y}」。

# メイン
「はじまり」という。
外変印は   「^hq」。
円ソリッド印は「^sc」。
「_temp.txt」に出力先設定。
出力先初期化。

 「jwc_temp.txt」を毎行読んで反復
  もし対象が「{外変印}」で正規表現マッチするならば
   「hd」と一行出力。
  違えば
   もし対象が「{円ソリッド印}」で正規表現マッチするならば
    要素とは円ソリッド。要素の認証(対象)。
    円ソリッド三角化(要素@X、要素@Y、要素@横半径、要素@扁平率、要素@傾角、要素@始角、要素@円弧角、要素@円フラグ)。
   違えば
    「{対象}」を一行出力。
   ここまで
  ここまで
 ここまで
おわり。

投稿者 秋天越 : 10:47 AM | コメント (4) | トラックバック (1)

June 19, 2005

なでしこ

_きさくなブログさんより。
外変には充分使えそうですね。クラスいやグループですか、ちゃんと設定すれば汎用部が簡単に書けるかも。

投稿者 秋天越 : 12:55 AM | コメント (0) | トラックバック (0)

June 18, 2005

打上げ

_特にどうこうでもないが、
昨年から抱えていたプロジェクトを私的にきりあげ。納めは随分前であったし今後も調整修正はあるはずだが何所かで一度クリアしなければそれこそ切りが無い、で一人気分だけ打上としておく宣言。      ..きっとまだ続く..

投稿者 秋天越 : 12:27 AM | コメント (0) | トラックバック (0)

June 14, 2005

D70

_ゲットおめでとうございます。
標準レンズというのはいわゆる50mm単焦点ではなくズームのことでしょうか。
一眼使い出すと次々レンズ欲しくなりますよきっと..と脅かしておこう。

投稿者 秋天越 : 09:33 PM | コメント (1) | トラックバック (0)

June 13, 2005

時節柄

_お約束
P0612_01.jpg
今日も気温は上がった、らしい雨中花やら霧煙田山は嫌いではないのだが未だ見えず。

投稿者 秋天越 : 11:26 PM | コメント (0) | トラックバック (0)

June 10, 2005

入梅

_だそうです。昨日やっておいて正解だった、雨中キュービクル開けたり這いつくばって人孔覗いたりは勘弁願いたいもので、とまれヨカッタヨカッタ。

投稿者 秋天越 : 07:01 PM | コメント (0) | トラックバック (0)

June 08, 2005

用紙

_メモ

-----用紙サイズの規格-----
・A0版(全紙)は1.0
・B0版(全紙)は1.5
・長辺短辺比は SQRT(2):1
------------------------------
[A0 版] SQRT(2)*1*X^2=1.0 [m2]を解いて
短辺 X=840.9[mm]
長辺 SQRT(2)*840.9=1189.2[mm]
同様に
[B0 版] SQRT(2)*1*X^2=1.5 [m2]を解いて
短辺 X=1029.8[mm]
長辺 SQRT(2)*1029.8=1456.3[mm]
あとはA0>A1>A2>A3>A4と順に
左規格の短辺=長辺、左規格の短辺/SQRT(2)=短辺
と計算できる。
よって上記の規格3条件のみ記憶しておけば
用紙サイズは計算で出すことが可能
※電卓要(1.41421356の掛・割は勘弁願いたい)

投稿者 秋天越 : 11:16 PM | コメント (0) | トラックバック (0)

平年なら

_梅雨入りは6/10のはづと踏み今月中にこなすべき外での調査をギリギリの明日入れたのだが今のところ降る予報は出ていない、さぁ吉凶は如何に。

投稿者 秋天越 : 10:49 PM | コメント (0) | トラックバック (0)

June 05, 2005

朝から

_カメラに溜まってた画のサムネイル印刷、ざっと250枚ほどあった。
プリンタインクが半減している。

投稿者 秋天越 : 03:08 PM | コメント (0) | トラックバック (0)

June 01, 2005

地番すら

_特定できない。
公図とってみれば、地番が連坦していないのは大字違いまではわかった。
1筆だけ全くふっとんでる所は誰の飛地なのだか、近在の地名片っ端から調べろってか?

投稿者 秋天越 : 06:45 PM | コメント (0) | トラックバック (0)