ExampleBeam modified by A. Vontobel

A. Vontobel — Tue, 18 Aug 2015 23:13:00 -0000

--- v5
+++ v6
@@ -1,3 +1,5 @@
+[[img src=out-ExampleBeam.svg alt="Drawj2d output"]]
+    
     #! drawj2d -T svg -r96  -W 100 -H 100 -X 40 -Y 10 ExampleBeam.hcl

     unitlength 10
@@ -84,5 +86,3 @@
     moverel [expr $L /2 + [mm 8]] 0
     dimlinerel 0 [expr 0.05 * $M0]  "[nf $M0 1]"

-
-[[img src=out-ExampleBeam.svg alt="Drawj2d output"]]

ExampleBeam modified by a v

a v — Mon, 20 Jul 2015 22:06:22 -0000

ExampleBeam modified by a v

a v — Thu, 16 Oct 2014 21:34:44 -0000

--- v3
+++ v4
@@ -58,7 +58,7 @@
     lager $A
     lager $B

-    dimline [X $A] [mm 12] [X $B] [mm 12] 
+    dimline [geom.parallel $A $B [mm 12]]
     label "q = $q kN/m" $A $B

     # Draw the shear V

ExampleBeam modified by a v

a v — Sun, 12 Oct 2014 22:32:38 -0000

--- v2
+++ v3
@@ -83,3 +83,6 @@
     pen 0.35
     moverel [expr $L /2 + [mm 8]] 0
     dimlinerel 0 [expr 0.05 * $M0]  "[nf $M0 1]"
+
+
+[[img src=out-ExampleBeam.svg alt="Drawj2d output"]]

ExampleBeam modified by a v

a v — Sun, 12 Oct 2014 22:31:06 -0000

ExampleBeam modified by a v

a v — Sun, 12 Oct 2014 22:30:25 -0000

#! drawj2d -T svg -r96  -W 100 -H 100 -X 40 -Y 10 ExampleBeam.hcl

unitlength 10

set A {-2.0 0}
set B {4.1 0}
set q 10.0

set L [X [-- $B $A]]
set M0 [expr $q * $L^2 / 8]
set V0 [expr $q * $L]

# bending moment function
proc fM {x} {
    global L M0
    return [expr $M0 * (1 - (2*$x /$L)^2)]
}

# shear force function
proc fV {x} {
    global L V0
    return [expr -$V0 * ($x /$L)]
}

# procedure to draw the base line
proc drawBaseline {from to lb} {
    set XY0 [here]
    moverel $from 0
    label $lb W
    linerel [- $to $from] 0
    moveto $XY0
}

# procedure draw any function f(x)
proc drawFkt {fkt from to skal nbsteps} {
    set XY0 [here]
    set dx [expr ($to - $from) /$nbsteps]
    moverel $from [* $skal [$fkt $from]]
    for {set x [+ $from $dx]} {<= $x $to} {set x [expr $x + ($to - $from) /$nbsteps]} {
        lineto [++ $XY0 "$x  [* $skal [$fkt $x]]"]
    }
    moveto $XY0
}

# procedure to draw a bearing
proc lager {pos} {
    moveto $pos
    linerel -[mm 1.5] [mm 3]
    linerel [mm 3] 0
    lineto $pos
}

# Draw the static system
pen 1.0
line $A $B

pen 0.5
lager $A
lager $B

dimline [X $A] [mm 12] [X $B] [mm 12] 
label "q = $q kN/m" $A $B

# Draw the shear V
moveto [++ [geom.online $A $B 0.5] "0 [mm 40]"]
pen dashdotted 0.35
drawBaseline [expr -$L /2] [expr $L /2] {V [kN]}
pen
drawFkt fV [expr -$L /2] [expr $L /2] 0.05 5; # function fV, -L/2 to L/2, scale, 5 line segments

pen 0.35
moverel [expr $L /2 + [mm 8]] [expr 0.05 * -$V0 /2]
dimlinerel 0 [expr 0.05 * $V0 /2]  "[nf [expr $V0 /2] 1]"
dimlinerel 0 [expr 0.05 * $V0 /2]  "[nf [expr $V0 /2] 1]"

# Draw the moment M
moveto [++ [geom.online $A $B 0.5] "0 [mm 65]"]
pen dashdotted 0.35
drawBaseline [expr -$L /2] [expr $L /2] {M [kNm]}
pen
drawFkt fM [expr -$L /2] [expr $L /2] 0.05 20; # function fM, -L/2 to L/2, scale, 20 line segments

pen 0.35
moverel [expr $L /2 + [mm 8]] 0
dimlinerel 0 [expr 0.05 * $M0]  "[nf $M0 1]"

Recent changes to ExampleBeam

ExampleBeam modified by A. Vontobel

ExampleBeam modified by a v

ExampleBeam modified by a v

ExampleBeam modified by a v

ExampleBeam modified by a v

ExampleBeam modified by a v