From 14b4ab6e89caf2905a6b389ce554702adc504445 Mon Sep 17 00:00:00 2001 From: polyfloyd Date: Fri, 26 Jul 2024 20:40:00 +0200 Subject: [PATCH] Add threads for PG electrical thread --- Makefile | 1 + THREAD_TABLE.scad | 23 +++++++++++- design/PG_electrical_thread.awk | 66 +++++++++++++++++++++++++++++++++ design/PG_electrical_thread.csv | 11 ++++++ design/autogenerate.awk | 2 +- 5 files changed, 101 insertions(+), 2 deletions(-) create mode 100644 design/PG_electrical_thread.awk create mode 100644 design/PG_electrical_thread.csv diff --git a/Makefile b/Makefile index 8c389d1..240c039 100644 --- a/Makefile +++ b/Makefile @@ -6,6 +6,7 @@ design: clean cat design/PCO_thread.csv | awk -f design/PCO_thread.awk >> design/THREAD_TABLE.csv cat design/UIS_thread.csv | awk -f design/UIS_thread.awk >> design/THREAD_TABLE.csv cat design/microscope_thread.csv | awk -f design/microscope_thread.awk >> design/THREAD_TABLE.csv + cat design/PG_electrical_thread.csv | awk -f design/PG_electrical_thread.awk >> design/THREAD_TABLE.csv cat design/THREAD_TABLE.csv | awk -f design/autogenerate.awk > THREAD_TABLE.scad .PHONY: test diff --git a/THREAD_TABLE.scad b/THREAD_TABLE.scad index 7629b9f..ccbf6c6 100644 --- a/THREAD_TABLE.scad +++ b/THREAD_TABLE.scad @@ -1,7 +1,8 @@ /* This script is auto-generated - do not edit :License: 3-clause BSD. See LICENSE. */ -THREAD_TABLE = [["G1/16-ext", [0.907, 3.1631, 6.3625, [[0, -0.4252], [0, 0.4252], [0.5710, 0.1279], [0.5710, -0.1279]]]], +THREAD_TABLE = [ +["G1/16-ext", [0.907, 3.1631, 6.3625, [[0, -0.4252], [0, 0.4252], [0.5710, 0.1279], [0.5710, -0.1279]]]], ["G1/16-int", [0.907, -3.9789, 7.9215, [[0, 0.4252], [0, -0.4252], [0.5540, -0.1368], [0.5540, 0.1368]]]], ["G1/8-ext", [0.907, 4.1656, 8.3675, [[0, -0.4252], [0, 0.4252], [0.5710, 0.1279], [0.5710, -0.1279]]]], ["G1/8-int", [0.907, -4.9814, 9.9265, [[0, 0.4252], [0, -0.4252], [0.5540, -0.1368], [0.5540, 0.1368]]]], @@ -1901,4 +1902,24 @@ THREAD_TABLE = [["G1/16-ext", [0.907, 3.1631, 6.3625, [[0, -0.4252], [0, 0.4252] ["32-UN-13/16-int", [0.79375, -10.3492, 20.6914, [[0, 0.3473], [0, -0.3473], [0.4296, -0.0992], [0.4296, 0.0992]]]], ["RMS-ext", [0.7056, 9.5829, 19.1859, [[0.0, -0.3274], [0.0, 0.3273], [0.4932, 0.0706], [0.4932, -0.0706]]]], ["RMS-int", [0.7055, -10.3042, 20.5085, [[0.0, 0.2630], [0.0, -0.2630], [0.4808, -0.0127], [0.4808, 0.0127]]]], +["PG7-ext", [1.27, 5.532647, 11.065294, [[-0.0001, -0.6377], [-0.0001, 0.6377], [0.6811, 0.0580], [0.6811, -0.0580]]]], +["PG7-int", [1.27, -6.355058, 12.710115, [[0, 0.6377], [0, -0.6377], [0.6811, -0.0757], [0.6811, 0.0757]]]], +["PG9-ext", [1.411, 6.806830, 13.613660, [[-0.0001, -0.7085], [-0.0001, 0.7085], [0.7568, 0.0644], [0.7568, -0.0644]]]], +["PG9-int", [1.411, -7.724508, 15.449017, [[0, 0.7085], [0, -0.7085], [0.7568, -0.0841], [0.7568, 0.0841]]]], +["PG11-ext", [1.411, 8.506830, 17.013660, [[-0.0001, -0.7085], [-0.0001, 0.7085], [0.7568, 0.0644], [0.7568, -0.0644]]]], +["PG11-int", [1.411, -9.424508, 18.849017, [[0, 0.7085], [0, -0.7085], [0.7568, -0.0841], [0.7568, 0.0841]]]], +["PG13.5-ext", [1.411, 9.406830, 18.813660, [[-0.0001, -0.7085], [-0.0001, 0.7085], [0.7568, 0.0644], [0.7568, -0.0644]]]], +["PG13.5-int", [1.411, -10.324508, 20.649017, [[0, 0.7085], [0, -0.7085], [0.7568, -0.0841], [0.7568, 0.0841]]]], +["PG16-ext", [1.411, 10.456830, 20.913660, [[-0.0001, -0.7085], [-0.0001, 0.7085], [0.7568, 0.0644], [0.7568, -0.0644]]]], +["PG16-int", [1.411, -11.374508, 22.749017, [[0, 0.7085], [0, -0.7085], [0.7568, -0.0841], [0.7568, 0.0841]]]], +["PG21-ext", [1.588, 13.254559, 26.509117, [[-0.0001, -0.7971], [-0.0001, 0.7971], [0.8514, 0.0725], [0.8514, -0.0725]]]], +["PG21-int", [1.588, -14.283822, 28.567644, [[0, 0.7971], [0, -0.7971], [0.8514, -0.0946], [0.8514, 0.0946]]]], +["PG29-ext", [1.588, 17.604559, 35.209117, [[-0.0001, -0.7971], [-0.0001, 0.7971], [0.8514, 0.0725], [0.8514, -0.0725]]]], +["PG29-int", [1.588, -18.633822, 37.267644, [[0, 0.7971], [0, -0.7971], [0.8514, -0.0946], [0.8514, 0.0946]]]], +["PG36-ext", [1.588, 22.604559, 45.209117, [[-0.0001, -0.7971], [-0.0001, 0.7971], [0.8514, 0.0725], [0.8514, -0.0725]]]], +["PG36-int", [1.588, -23.633822, 47.267644, [[0, 0.7971], [0, -0.7971], [0.8514, -0.0946], [0.8514, 0.0946]]]], +["PG42-ext", [1.588, 26.104559, 52.209117, [[-0.0001, -0.7971], [-0.0001, 0.7971], [0.8514, 0.0725], [0.8514, -0.0725]]]], +["PG42-int", [1.588, -27.133822, 54.267644, [[0, 0.7971], [0, -0.7971], [0.8514, -0.0946], [0.8514, 0.0946]]]], +["PG48-ext", [1.588, 28.754559, 57.509117, [[-0.0001, -0.7971], [-0.0001, 0.7971], [0.8514, 0.0725], [0.8514, -0.0725]]]], +["PG48-int", [1.588, -29.783822, 59.567644, [[0, 0.7971], [0, -0.7971], [0.8514, -0.0946], [0.8514, 0.0946]]]], ]; diff --git a/design/PG_electrical_thread.awk b/design/PG_electrical_thread.awk new file mode 100644 index 0000000..4eb672e --- /dev/null +++ b/design/PG_electrical_thread.awk @@ -0,0 +1,66 @@ +function calculateThreadlibSpecs() { + # Calculates threadlib specs for PG electrical threads. + + Designator = $1; + TPI = $2; + Pitch = $3; + MinorDiam = $4; + MajorDiam = $5; + PitchDiam = $6; + + Pi = 3.141592; + + P = 25.4 / TPI; + H = 0.595875 * P; + R = 0.107 * P; + + DSupportExt = PitchDiam - H - R/2; + RrotExt = DSupportExt / 2; + drRootExt = -0.0001; + dzRootExt = cos(40*Pi/180) * H*1.1; + drCrestExt = H*.9; + dzCrestExt = cos(40*Pi/180) * H*.1; + + DSupportInt = MinorDiam + H*.9*2 + R/2; + RrotInt = -DSupportInt / 2; + drRootInt = 0; + dzRootInt = cos(40*Pi/180)*H*1.1; + drCrestInt = H*.9; + dzCrestInt = H*.1; +} + +BEGIN { + FS = "\t"; +} + +/^[^#]/ { + calculateThreadlibSpecs(); + + # External thread: + printf Designator "-ext," # designator + printf Pitch "," # pitch + printf "%f,", RrotExt # Rrot + printf "%f,", DSupportExt # Dsupport + printf drRootExt "," # r0 + printf "%.4f,", -dzRootExt # z0 + printf drRootExt "," # r1 + printf "%.4f,", dzRootExt # z1 + printf "%.4f,", drCrestExt # r2 + printf "%.4f,", dzCrestExt # z2 + printf "%.4f,", drCrestExt # r3 + printf "%.4f\n", -dzCrestExt # z3 + + # Internal thread: + printf Designator "-int," # designator + printf Pitch "," # pitch + printf "%f,", RrotInt # Rrot + printf "%f,", DSupportInt # Dsupport + printf drRootInt "," # r0 + printf "%.4f,", dzRootInt # z0 + printf drRootInt "," # r1 + printf "%.4f,", -dzRootInt # z1 + printf "%.4f,", drCrestInt # r2 + printf "%.4f,", -dzCrestInt # z2 + printf "%.4f,", drCrestInt # r3 + printf "%.4f\n", dzCrestInt # z3 +} diff --git a/design/PG_electrical_thread.csv b/design/PG_electrical_thread.csv new file mode 100644 index 0000000..6b08bac --- /dev/null +++ b/design/PG_electrical_thread.csv @@ -0,0 +1,11 @@ +# designator tpi pitch minor_diam major_diam pitch_diam +PG7 20 1.27 11.28 12.5 11.89 +PG9 18 1.411 13.86 15.2 14.53 +PG11 18 1.411 17.26 18.6 17.93 +PG13.5 18 1.411 19.06 20.4 19.73 +PG16 18 1.411 21.16 22.5 21.83 +PG21 16 1.588 26.78 28.3 27.54 +PG29 16 1.588 35.48 37.0 36.24 +PG36 16 1.588 45.48 47.0 46.24 +PG42 16 1.588 52.48 54.0 53.24 +PG48 16 1.588 57.78 59.3 58.54 diff --git a/design/autogenerate.awk b/design/autogenerate.awk index 7388d5a..b8d9c8d 100644 --- a/design/autogenerate.awk +++ b/design/autogenerate.awk @@ -2,7 +2,7 @@ BEGIN { FS = ","; print "/* This script is auto-generated - do not edit" print " :License: 3-clause BSD. See LICENSE. */" - printf "\nTHREAD_TABLE = [" + printf "\nTHREAD_TABLE = [\n" } // {