Rev 4431 Rev 4440
1 $fn=40; // model faces resolution. 1 $fn=40; // model faces resolution.
2 include <../configuration.scad> 2 include <../configuration.scad>
3   3  
4 use <zavity.scad> 4 include <WINDGAUGE02A_D02.scad>
-   5 include <polyScrewThread_r1.scad>
5   6  
6 module WINDGAUGE02A_S03(S01_sila_materialu,S01_vyska_komponentu_na_lozisko,S01_prumer_zavitu,lozisko_vyska,lozisko_prumer_vnejsi,lozisko_prumer_vnitrni,lozisko_prekryv,vyska_matky,prumer_orechu,prumer_sroubu) -  
7 { -  
8   -  
9 difference() 7 PI=3.141592;
10 { -  
11 //translate([0,0,-(S01_vyska_na_elektroniku+S01_vyska_zavitu_na_nasroubovani_drzaku+2*S01_vyska_komponentu_na_lozisko)/2-10]) -  
12 -  
13 metric_thread (diameter=S01_prumer_zavitu-0.3, pitch=1, length=S01_vyska_komponentu_na_lozisko, internal=false, n_starts=6); -  
14   -  
15 //otvory na ložisko -  
16 translate([0,0,lozisko_vyska/2]) -  
17 cylinder (h = lozisko_vyska+0.01, r=(lozisko_prumer_vnejsi+0.2)/2, center = true, $fn=100); -  
18 -  
19 translate([0,0,S01_vyska_komponentu_na_lozisko/2]) -  
20 cylinder (h = S01_vyska_komponentu_na_lozisko+0.01, r=(lozisko_prumer_vnitrni+2*lozisko_prekryv+0.2)/2, center = true, $fn=100); -  
21   -  
22   -  
23 //otvor na šroub 1 -  
24 translate([-20,0,vyska_hlavy_sroubu/2]) -  
25 cylinder (h = vyska_hlavy_sroubu+0.01, r=(prumer_hlavy_sroubu+0.2)/2, center = true, $fn=100); -  
26 8  
27 translate([-20,0,S01_vyska_komponentu_na_lozisko/2]) -  
28 cylinder (h = S01_vyska_komponentu_na_lozisko+0.01, r=(prumer_sroubu)/2, center = true, $fn=100); -  
29   9  
30 //otvor na šroub 2 -  
31 translate([20,0,vyska_hlavy_sroubu/2]) -  
32 cylinder (h = vyska_hlavy_sroubu+0.01, r=(prumer_hlavy_sroubu+0.2)/2, center = true, $fn=100); -  
33 10  
34 translate([20,0,S01_vyska_komponentu_na_lozisko/2]) -  
35 cylinder (h = S01_vyska_komponentu_na_lozisko+0.01, r=(prumer_sroubu)/2, center = true, $fn=100); -  
36   -  
37 } -  
38 } -  
39 -  
40   -  
41   -  
42 module stator3(stator3_vyska,prumer_rotoru1,lozisko_vyska,sila_pod_loziskem,sila_materialu,vule1,stator3_sila_steny, 11 module WINDGAUGE02A_D01(S01_vyska_komponentu_na_lozisko,S01_prumer_zavitu,D01_material_pod_zavitem,D01_material_za_zavitem,D01_material_pred_zavitem,D01_delka_tyce,D01_sirka_tyce,D02_sila_materialu,D02_vyska_uchytky,D02_prumer_obruby,D02_delka_celeho_uchytu,D02_dotahova_vzdalenost,D02_prumer_uchytneho_sroubu)
43 stator3_vyska_prekryti,prumer_hlavy_sroubu,stator3_vzdalenost_od_steny,lozisko_vyska,prumer_sroubu,roztec_sroubu,uchyt_prumer_sroubu,vyska_stator4,kabel_prumer) -  
44 { -  
45 difference() -  
46 { 12 {
47 cylinder (h = stator3_vyska, r=(prumer_rotoru1)/2, center = true, $fn=100); -  
48 13  
49 translate([0,0,(stator3_vyska-lozisko_vyska-sila_pod_loziskem)/2]) -  
50 cylinder (h = lozisko_vyska+sila_pod_loziskem+0.1, r=(prumer_rotoru1-2*sila_materialu-2*vule1-stator3_sila_steny)/2, center = true, $fn=100); -  
51   -  
52 cylinder (h = stator3_vyska+0.1, r=(prumer_rotoru1-2*sila_materialu-2*vule1-2*stator3_sila_steny-1)/2, center = true, $fn=100); -  
53 -  
54 -  
55 translate([0,0,(stator3_vyska-stator3_vyska_prekryti)/2]) -  
56 difference() 14 difference()
57 { 15 {
58 16  
59 cylinder (h = stator3_vyska_prekryti+0.1, r=(prumer_rotoru1+0.1)/2, center = true, $fn=100); -  
60 17 union()
61 cylinder (h = stator3_vyska_prekryti+0.1, r=(prumer_rotoru1-2*sila_materialu-2*vule1)/2, center = true, $fn=100); -  
62 18 {
63 } 19 //zavit
64 -  
65 //otvory pro uchyceni stator 3 20 translate([0,0,D01_material_pod_zavitem])
66 //otvor pro sroub 1 -  
67 translate([0,(prumer_rotoru1-2*sila_materialu-2*vule1-2*stator3_sila_steny-prumer_hlavy_sroubu-2*stator3_vzdalenost_od_steny)/2,0]) -  
68 cylinder (h = lozisko_vyska+sila_pod_loziskem+0.1, r=prumer_sroubu/2, center = true, $fn=100); 21 screw_thread(S01_prumer_zavitu-0.5,4,55,S01_vyska_komponentu_na_lozisko,PI/2,2);
69   22  
-   23 //spodní valec
70 translate([0,(prumer_rotoru1-2*sila_materialu-2*vule1-2*stator3_sila_steny-prumer_hlavy_sroubu-2*stator3_vzdalenost_od_steny)/2,2]) 24 translate([0,0,D01_material_pod_zavitem/2])
71 cylinder (h = lozisko_vyska+sila_pod_loziskem+0.1, r=prumer_hlavy_sroubu/2, center = true, $fn=100); 25 cylinder (h = D01_material_pod_zavitem, r=(S01_prumer_zavitu+D01_material_pred_zavitem*2)/2, center = true, $fn=100);
72   26  
73 //otvor pro sroub 2 27 //uchyt na tyc
74 translate([0,-(prumer_rotoru1-2*sila_materialu-2*vule1-2*stator3_sila_steny-prumer_hlavy_sroubu-2*stator3_vzdalenost_od_steny)/2,0]) 28 translate([0,D01_delka_tyce/2+S01_prumer_zavitu/2+D01_material_pred_zavitem,D01_material_pod_zavitem/2])
75 cylinder (h = lozisko_vyska+sila_pod_loziskem+0.1, r=prumer_sroubu/2, center = true, $fn=100); 29 cube([D01_sirka_tyce,D01_delka_tyce,D01_material_pod_zavitem],center=true);
76   -  
-   30 //uchyt na tyc ovalna cast
77 translate([0,-(prumer_rotoru1-2*sila_materialu-2*vule1-2*stator3_sila_steny-prumer_hlavy_sroubu-2*stator3_vzdalenost_od_steny)/2,2]) 31 translate([0,S01_prumer_zavitu/2+D01_material_pred_zavitem,D01_material_pod_zavitem/2])
78 cylinder (h = lozisko_vyska+sila_pod_loziskem+0.1, r=prumer_hlavy_sroubu/2, center = true, $fn=100); 32 cube([D01_sirka_tyce,D01_material_za_zavitem+D01_material_pred_zavitem,D01_material_pod_zavitem],center=true);
79 } -  
80   -  
81   33
82 //dno stator3 -  
83   34
84 translate([0,0,-(stator3_vyska-stator3_sila_steny)/2]) 35 //material kolem uchytu na sloupek
-   36 translate([0,D01_delka_tyce+S01_prumer_zavitu/2+D01_material_pred_zavitem+(D02_sila_materialu+D02_prumer_obruby/2)/2-D02_dotahova_vzdalenost,D01_material_pod_zavitem/2])
85 difference() 37 difference()
86 { 38 {
87 cylinder (h = stator3_sila_steny, r=(prumer_rotoru1)/2, center = true, $fn=100); 39 cube([D01_sirka_tyce,D02_sila_materialu+D02_prumer_obruby/2,D01_material_pod_zavitem],center=true);
88 -  
89 //otvory pro uchyceni stator 3 -  
90 //otvor pro sroub 1 -  
91 translate([0,(prumer_rotoru1-2*sila_materialu-2*vule1-2*stator3_sila_steny-prumer_hlavy_sroubu-2*stator3_vzdalenost_od_steny)/2,0]) 40 translate([0,D02_prumer_obruby/2-D02_dotahova_vzdalenost-D02_sila_materialu,0])
92 cylinder (h = stator3_sila_steny+0.1, r=prumer_sroubu/2, center = true, $fn=100); 41 cylinder(h=D02_vyska_uchytky+0.01,r=D02_prumer_obruby/2,center=true);
93   42
-   43 }
94 44
95   45  
96 //otvor pro sroub 2 -  
97 translate([0,-(prumer_rotoru1-2*sila_materialu-2*vule1-2*stator3_sila_steny-prumer_hlavy_sroubu-2*stator3_vzdalenost_od_steny)/2,0]) -  
98 cylinder (h = stator3_sila_steny+0.1, r=prumer_sroubu/2, center = true, $fn=100); -  
99 46  
100 //srouby pro uchycení anemometru 47 //uchyt na sloupek
101 translate([roztec_sroubu/2,roztec_sroubu/2,0]) -  
102 cylinder (h = stator3_sila_steny+0.1, r=uchyt_prumer_sroubu/2, center = true, $fn=100); -  
103 48
-   49 translate([0,D01_delka_tyce+S01_prumer_zavitu/2+D01_material_pred_zavitem+D02_sila_materialu+(D02_prumer_obruby)/2,D02_vyska_uchytky/2])
104 translate([-roztec_sroubu/2,roztec_sroubu/2,0]) 50 rotate(a=[0,0,270])
105 cylinder (h = stator3_sila_steny+0.1, r=uchyt_prumer_sroubu/2, center = true, $fn=100); 51 WINDGAUGE02A_D02(D02_sila_materialu,D02_vyska_uchytky,D02_prumer_obruby,D02_delka_celeho_uchytu,D02_dotahova_vzdalenost,D02_prumer_uchytneho_sroubu);
106   52  
107 translate([roztec_sroubu/2,-roztec_sroubu/2,0]) -  
108 cylinder (h = stator3_sila_steny+0.1, r=uchyt_prumer_sroubu/2, center = true, $fn=100); -  
-   53 }
109 54  
-   55 //otvor
110 translate([-roztec_sroubu/2,-roztec_sroubu/2,0]) 56 translate([0,0,(D01_material_pod_zavitem+S01_vyska_komponentu_na_lozisko)/2])
111 cylinder (h = stator3_sila_steny+0.1, r=uchyt_prumer_sroubu/2, center = true, $fn=100); 57 cylinder (h = D01_material_pod_zavitem+S01_vyska_komponentu_na_lozisko+0.02, r=(S01_prumer_zavitu-2*D01_material_za_zavitem)/2, center = true, $fn=100);
112 58  
113 //dira na kabel -  
114 cylinder (h = vyska_stator4+0.1, r=(kabel_prumer/2+0.1), center = true, $fn=100); -  
115 } 59 }
116 } 60 }
117 61
-   62 WINDGAUGE02A_D01(S01_vyska_komponentu_na_lozisko,S01_prumer_zavitu,D01_material_pod_zavitem,D01_material_za_zavitem,D01_material_pred_zavitem,D01_delka_tyce,D01_sirka_tyce,D02_sila_materialu,D02_vyska_uchytky,D02_prumer_obruby,D02_delka_celeho_uchytu,D02_dotahova_vzdalenost,D02_prumer_uchytneho_sroubu);
-   63  
-   64  
118   65
119 66
120 WINDGAUGE02A_S03(S01_sila_materialu,S01_vyska_komponentu_na_lozisko,S01_prumer_zavitu,lozisko_vyska,lozisko_prumer_vnejsi,lozisko_prumer_vnitrni,lozisko_prekryv,vyska_matky,prumer_orechu,prumer_sroubu); -