getting the gap right
in [Fortran]
|
Prev: problem with array of strings comparison
Next: passing a type of different KIND to a C function from Fortran binding
From: Uno on 26 May 2010 16:04 I'm using fortran to make the calculations for an exterior gate I'm building. The picketing material is five and a half inches wide, and the distance to be covered is given by spar: E:\gcc_eq32>out rough opening is 36.000000 encasing is 2.5000000 finished opening is 33.500000 left_gap is 0.50000000 right_gap is 0.50000000 spar is 32.500000 middle is 31.000000 gap is 1.2500000 E:\gcc_eq32>type judy1.f90 implicit none integer, parameter :: sp = selected_real_kind(3,7) real (kind=sp):: rough_opening, encasing, fin_opening real (kind=sp):: left_gap, right_gap, spar real (kind=sp):: top_hinge, bottom_hinge, middle real (kind=sp):: picket_width, gap, number ! values rough_opening = 36 encasing = 2.5 left_gap = .5 right_gap = .5 top_hinge = 52 bottom_hinge = 10 picket_width = 5.5 number = 5 ! calculations fin_opening = rough_opening - encasing spar = fin_opening - left_gap - right_gap middle = (top_hinge + bottom_hinge) / 2.0_sp gap = (spar - (number*picket_width))/(number-1) ! output print *, "rough opening is ", rough_opening print *, "encasing is ", encasing print *, "finished opening is ", fin_opening print *, "left_gap is ", left_gap print *, "right_gap is ", right_gap print *, "spar is ", spar print *, "middle is ", middle print *, "gap is ", gap endprogram ! gfortran -Wall -Wextra judy1.f90 -o out.exe E:\gcc_eq32> So, with the hand I'm dealt, I have an 1-1/4 gap, which I think is way too much. I was thinking of going with a shadowbox design, which would put pickets on both sides. The other side would have one more gap than picket. In this scenario, I would want to have the gap not exceed 4-1/2", but be as high as possible. How do I put this algebra together, if the gap and the picket is the same on both sides? Thanks for your comment. -- Uno
From: steve on 26 May 2010 15:23 On May 26, 1:04 pm, Uno <merrilljen...(a)q.com> wrote: > I'm using fortran to make the calculations for an exterior gate I'm > building. The picketing material is five and a half inches wide, and > the distance to be covered is given by spar: > > E:\gcc_eq32>out > rough opening is 36.000000 > encasing is 2.5000000 > finished opening is 33.500000 > left_gap is 0.50000000 > right_gap is 0.50000000 > spar is 32.500000 > middle is 31.000000 > gap is 1.2500000 > > E:\gcc_eq32>type judy1.f90 > implicit none > > integer, parameter :: sp = selected_real_kind(3,7) > > real (kind=sp):: rough_opening, encasing, fin_opening > real (kind=sp):: left_gap, right_gap, spar > real (kind=sp):: top_hinge, bottom_hinge, middle > real (kind=sp):: picket_width, gap, number > ! values > rough_opening = 36 > encasing = 2.5 > left_gap = .5 > right_gap = .5 > top_hinge = 52 > bottom_hinge = 10 > picket_width = 5.5 > number = 5 > > ! calculations > fin_opening = rough_opening - encasing > spar = fin_opening - left_gap - right_gap > middle = (top_hinge + bottom_hinge) / 2.0_sp > gap = (spar - (number*picket_width))/(number-1) > > ! output > print *, "rough opening is ", rough_opening > print *, "encasing is ", encasing > print *, "finished opening is ", fin_opening > print *, "left_gap is ", left_gap > print *, "right_gap is ", right_gap > print *, "spar is ", spar > print *, "middle is ", middle > print *, "gap is ", gap > endprogram > > ! gfortran -Wall -Wextra judy1.f90 -o out.exe > > E:\gcc_eq32> > > So, with the hand I'm dealt, I have an 1-1/4 gap, which I think is way > too much. I was thinking of going with a shadowbox design, which would > put pickets on both sides. The other side would have one more gap than > picket. > > In this scenario, I would want to have the gap not exceed 4-1/2", but be > as high as possible. How do I put this algebra together, if the gap and > the picket is the same on both sides? rec.woodworking is probably a better place to request help. However, assuming a gap is to appear in the center of your gate, you can layout the pickets symmetrically on either side of the gap. When you get to sides, you use a rip saw to adjust the width of the two side pickets to an appropriate size. -- steve
From: Uno on 27 May 2010 16:08 steve wrote: > rec.woodworking is probably a better place to request help. > However, assuming a gap is to appear in the center of your > gate, you can layout the pickets symmetrically on either > side of the gap. When you get to sides, you use a rip saw to > adjust the width of the two side pickets to an appropriate > size. Thanks for the ng tip. I'm always using people on the net to inform my trade. There's so many professional people who like to do nothing more than build furniture when they have time for themself. I think I've got it figured out. One has to define a second gap on the side that doesn't have pickets on the ends. That came out to 4.5 with number set at 4, so that is ideal. I might not do it this way, but I'll have it at my fingertips when I fasten the pickets. I'm gonna do that in situ, so that it's right on the nuts. $ ./out.exe number is 4 spar is 32.500000 gap is 3.5000000 gap2 is 4.5000000 check is 32.500000 $ cat judy2.f90 implicit none real :: picket_width, gap, spar, check, gap2 integer :: number ! values spar = 32.5 picket_width = 5.5 number = 4 ! calculations gap = (spar - (number*picket_width))/(number-1) gap2 = (spar - (picket_width*(number-1))-(gap*(number-2)))/2.0 check = (number-2)*gap + (number-1)*picket_width + 2.0 * gap2 ! output print *, "number is ", number print *, "spar is ", spar print *, "gap is ", gap print *, "gap2 is ", gap2 print *, "check is ", check endprogram ! gfortran -Wall -Wextra judy2.f90 -o out.exe $ -- Uno
From: Gib Bogle on 27 May 2010 22:24 Uno wrote: > I'm using fortran to make the calculations for an exterior gate I'm > building. The picketing material is five and a half inches wide, and > the distance to be covered is given by spar: I recently made a picket gate. It looks very nice, but after some rain it expanded and started to jam. I had to take the last picket off and trim the width down. Be aware!
From: Uno on 24 Jun 2010 14:52
On 5/27/2010 7:24 PM, Gib Bogle wrote: > Uno wrote: >> I'm using fortran to make the calculations for an exterior gate I'm >> building. The picketing material is five and a half inches wide, and >> the distance to be covered is given by spar: > > I recently made a picket gate. It looks very nice, but after some rain > it expanded and started to jam. I had to take the last picket off and > trim the width down. Be aware! I took the time to seal and finish them before I fastened them. The monsoon rains are coming, so we'll see how it holds up, but with the shadowbox design, you don't have a bunch of small increases that add up. I was able to construct it exactly as fortran calculated: http://i45.tinypic.com/nczjg3.jpg -- Uno |