UARC 2008 Formula-SAE Torsional Rigidity Analysis - Video Plot of USUM Deflection

Crash Testing of our 2008 Formula-SAE Vehicle Chassis Impact Attenuator, Courtesy of Australian Safety Engineering Lonsdale.
Average Deceleration of 18.19g.

ANSYS Workbench contact analysis

Still a work in progress

Code

This is a collection of Solid Works API Code which I have deciphered. No warranty is expressed as to the quality of the code, nor the accuracy.
<h2> Sketches</h2>
Inserts a Circle
‘Point 1 is circle centre, Point 2 is on the radius
‘ Part.CreateCircle p1x, p1y, unknown, p2x, p2y, unknown
Part.Insert3DSketch
Part.ClearSelection2 True
Part.CreateCircle 0, 0, 0, 0.01, 0#, 0#
‘Part.ClearSelection2 True
Part.InsertSketch2 True
Extrudes a Circle
‘Extrudes a circle
boolstatus = Part.Extension.SelectByID(”Sketch2?, “SKETCH”, 0.3, 0.3, 0.3, False, 0, Nothing)
‘Part.FeatureManager.FeatureExtrusion True, False, True, 0, 0, extrusion length, 0, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 0,0,0
Part.FeatureManager.FeatureExtrusion True, …

boolstatus = Part.Extension.SelectByID(””, “EXTSKETCHPOINT”, 0.48, 0.135, 0.3727, True, 0, Nothing)
boolstatus = Part.Extension.SelectByID(””, “EXTSKETCHSEGMENT”, (0.48 + 0.48) / 2, (0.135 + -0.135) / 2, (0.3727 + 0.3727) / 2, True, 0, Nothing)
Part.CreatePlanePerCurveAndPassPoint3 False, True

Generates an arbitrary circle in space.
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Dim Entity As Object
Public selMgr As SelectionMgr
Sub main()
Dim SketchPoints As Variant
Set swApp = Application.SldWorks
Set Part = swApp.NewDocument(”c:\Program Files\SolidWorks\data\templates\Part.prtdot”, 0, 0#, 0#)
Dim SketchFeature As Feature
Dim MathUtil As MathUtility
Dim MathTrans As MathTransform
Dim MathP As MathPoint
Dim ModelSketchTransform As Variant
Set MathUtil = swApp.GetMathUtility
Set selMgr = Part.SelectionManager
Dim a(2)      As Double
Dim b(2)       As Double
a(0) = 0.48
a(1) = 0.135
a(2) = 0.0627
b(0) = …