Recent changes to ExampleCable

ExampleCable modified by A. Vontobel

A. Vontobel — Sun, 11 Sep 2016 21:55:01 -0000

--- v4
+++ v5
@@ -2,7 +2,7 @@

     #! drawj2d -T svg -r96 -W 150 -H 80 -X 20 -Y 20 ExampleCable.hcl

-    unitlength [/ 1000. 50.]
+    unitlength [/ 1. 50.] m
     forceunitlength 2

     # cable

ExampleCable modified by A. Vontobel

A. Vontobel — Tue, 10 Nov 2015 00:24:22 -0000

--- v3
+++ v4
@@ -37,5 +37,5 @@
     texforce [FXY $FA] F_A
     texforce [FXY $FB] F_B
     # verify the force polygon is closed
-    assert "[nf [geom.distance $posPolygon] 9 ] = 0" {equilibrium check}
+    assert "[geom.distance $posPolygon] ~= 0" {equilibrium check}

ExampleCable modified by A. Vontobel

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

--- v2
+++ v3
@@ -1,3 +1,5 @@
+[[img src=out-ExampleCable.svg alt="Drawj2d output"]]
+    
     #! drawj2d -T svg -r96 -W 150 -H 80 -X 20 -Y 20 ExampleCable.hcl

     unitlength [/ 1000. 50.]
@@ -37,5 +39,3 @@
     # verify the force polygon is closed
     assert "[nf [geom.distance $posPolygon] 9 ] = 0" {equilibrium check}

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

ExampleCable modified by a v

a v — Sat, 02 May 2015 23:45:56 -0000

--- v1
+++ v2
@@ -1,4 +1,3 @@
-
     #! drawj2d -T svg -r96 -W 150 -H 80 -X 20 -Y 20 ExampleCable.hcl

     unitlength [/ 1000. 50.]

ExampleCable modified by a v

a v — Sat, 02 May 2015 23:45:23 -0000

#! drawj2d -T svg -r96 -W 150 -H 80 -X 20 -Y 20 ExampleCable.hcl

unitlength [/ 1000. 50.]
forceunitlength 2

# cable
set A {0 0}; dot $A; lb A SW
set B {2.5 0}; dot $B; lb B SE
set C {1.9 1.3}; dot $C
line $A $C $B

# weight (10 kN)
set Q "$C  0 10"
pen blue
force $Q

# calculate reaction forces
pen green
# moment equilibrium at pos. A in order to get force FB
moveto $A
set fB "$B  [geom.vector $C $B]"
set FB [stat.mequi $fB $Q]
force $FB
# equilibrium to get force FA
set FA [stat.equi $Q $FB]
set FA [stat.move $FA $A $B]; # move along action line
force $FA

# force polygon
moveto 5 0
set posPolygon [here]
pen blue 0.3; font 3
texforce [FXY $Q] Q
pen green
texforce [FXY $FA] F_A
texforce [FXY $FB] F_B
# verify the force polygon is closed
assert "[nf [geom.distance $posPolygon] 9 ] = 0" {equilibrium check}