2025-03-20 11:06:27 +13:00
|
|
|
---
|
|
|
|
source: kcl-lib/src/simulation_tests.rs
|
|
|
|
description: Result of unparsing parametric_with_tan_arc.kcl
|
|
|
|
---
|
|
|
|
sigmaAllow = 15000 // psi
|
|
|
|
width = 11 // inch
|
|
|
|
p = 150 // Force on shelf - lbs
|
|
|
|
distance = 12 // inches
|
|
|
|
FOS = 2
|
|
|
|
thickness = sqrt(distance * p * FOS * 6 / (sigmaAllow * width))
|
|
|
|
filletR = thickness * 2
|
|
|
|
shelfMountL = 9
|
|
|
|
wallMountL = 8
|
|
|
|
|
|
|
|
bracket = startSketchOn(XY)
|
2025-04-25 16:01:35 -05:00
|
|
|
|> startProfile(at = [0, 0])
|
2025-03-20 11:06:27 +13:00
|
|
|
|> line(end = [0, wallMountL])
|
2025-04-11 14:17:20 -04:00
|
|
|
|> tangentialArc(radius = filletR, angle = 90)
|
2025-03-20 11:06:27 +13:00
|
|
|
|> line(end = [-shelfMountL, 0])
|
|
|
|
|> line(end = [0, -thickness])
|
|
|
|
|> line(end = [shelfMountL, 0])
|
2025-04-11 14:17:20 -04:00
|
|
|
|> tangentialArc(radius = filletR - thickness, angle = -90)
|
2025-03-20 11:06:27 +13:00
|
|
|
|> line(end = [0, -wallMountL])
|
|
|
|
|> close(%)
|
|
|
|
|> extrude(length = width)
|