ExampleBeam2 modified by A. Vontobel

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

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

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

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

ExampleBeam2 modified by a v

a v — Sat, 18 Oct 2014 22:13:51 -0000

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

ExampleBeam2 modified by a v

a v — Sat, 18 Oct 2014 22:12:31 -0000

#! drawj2d -T svg -r96  -W 100 -H 100 -X 40 -Y 10 ExampleBeam2.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]

# 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 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 [geom.parallel $A $B [mm 12]]
label "q = $q kN/m" $A $B

# Draw the shear V
moveto [++ [geom.online $A $B 0.5] "0 [mm 40]"]
set cV [here]
set sV 0.05; # Scaling factor
pen dashdotted 0.35
drawBaseline [/ -$L 2.] [/ $L 2.] {V [kN]}
pen
mr [expr -$L /2] [expr $V0 /2 * $sV]
linerel $L [expr -1 * $V0 * $sV]
m $cV

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

# Draw the moment M
moveto [++ [geom.online $A $B 0.5] "0 [mm 65]"]
set cM [here]
set sM 0.05; # Scaling factor
pen dashdotted 0.35
drawBaseline [/ -$L 2.] [/ $L 2.] {M [kNm]}
pen
quadcurve [-- $cM "[/ $L 2.] 0"] [++ $cM "0 [* 2 $M0 $sM]"] [++ $cM "[/ $L 2.] 0"]
moveto $cM

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

Recent changes to ExampleBeam2

ExampleBeam2 modified by A. Vontobel

ExampleBeam2 modified by a v

ExampleBeam2 modified by a v