建造資料庫：焊接和無縫鍛造鋼管/ welded and seamless wrought steel pipe

資料不整理就沒有價值

從開始整理《壓寶計劃》時，就有個聲音在一直回盪：資 料不整理就沒有價值。例如每次要找管材的尺寸和厚度時，就要回頭去翻閱資料，就覺得心煩，記憶也因為多項作業同時進行而被打亂。所以就想讓電腦發揮一下工作。把手邊的資料製作成資料庫，然後可以重複使用。以前收集來的資料庫書籍終於要排上用場了。

鋼管的尺寸與重量

ASME 的設計法規對於台灣的工程人員最不方便的就是對於規格寫法特別要求。以管子為例，由於美加地區是少數還在使用英制單位的地方，管子的標稱名稱就以英制為主；美國習慣單位 (customary units) 管子 NPS 2 Sch.40 ，指的是外徑 2.375 英吋(in.)，壁厚 0.154 英吋(in.)，單位長度重量為 3.66 磅/英呎 (lb/ft)。而在 SI 制的管子稱呼，則要稱它為 DN50 Sch.40 ，外徑為 60.3 釐米 (mm) ，壁厚 3.91 釐米 (mm) ，重量為 5.44 公斤/公尺 (kg/m) 。  就經驗來說，現場的師傅會以英吋、2分、3分管來稱呼 NPS 1 、 NPS 1/4 和 NPS 3/8 的管子，但是再詳細的規格就要再查表了。混亂的稱呼及複雜的尺寸規格，很難不會發生取料的錯誤。要減少發生因資料傳遞時發生錯誤，除了要加強教育訓練之外，其資料庫配合網站的設置可以縮小資訊的落差。

 ASME B36.10M 關聯資料表

原始碼

(defsystem "db_b36_10_2022"
    :version "0.0.1"
    :author "Colin Lo"
    :license "GPL3"
    :depends-on ("mito" "cffi")
    :components ((:module "src"
                  :components
                  ((:file "main"))))
    :description "ASME B36-10-2022 Database"
    :in-order-to ((test-op (test-op "db_B36_10_2022/tests"))))

  (uiop:define-package db_b36_10_2022
    (:use #:cl #:mito #:sxql))
  (in-package #:db_b36_10_2022)

  (mito:deftable nominalpipe ()
    ((nps :col-type :text)
     (dn :col-type :text)
     (outside-diameter-in :col-type :real)
     (outside-diameter-mm :col-type :real))
    (:record-timestamps nil)
    (:unique-keys (nps dn)))

  (mito:deftable wall-thickness-weight ()
    ((nominalpipe :col-type nominalpipe)
     (wall-thickness-in :col-type :real)
     (wall-thickness-mm :col-type :real)
     (weight-lb-ft :col-type :real)
     (weight-kg-m :col-type :real))
    (:record-timestamps nil)
    (:unique-keys id))

  (mito:deftable schedule-no ()
    ((no :col-type :text))
    (:record-timestamps nil)
    (:unique-keys no))

 

  (mito:deftable pipe-schedule-no ()
    ((schedule-no :col-type schedule-no)
     (wall-thickness-weight :col-type wall-thickness-weight))
    (:record-timestamps nil)
    (:unique-keys wall-thickness-weight))

  (mito:deftable indentification ()
    ((identifier :col-type :text))
    (:record-timestamps nil)
    (:unique-keys IDENTIFIER))

 

  (mito:deftable pipe-indentification ()
    ((indentification :col-type indentification)
     (wall-thickness-weight :col-type wall-thickness-weight))
    (:record-timestamps nil)
    (:unique-keys wall-thickness-weight))

各申機械設計工作室 相關資料