A board with thousands of knife and sharpening enthusiasts, so my own take on the advanced topic can't be new or too exciting i guess. But it's the first time that we have an "official" name for it (and i am coining it
), a full reference to the niche method. See video description for a link to the (unnecessary) textual review of the method:
Anyway, just wondering if you or someone/something else ever made one of your Sharpmaker rods break. Could be the open window clashing against the device, the grumpy cat tipping it over, the toddler trying to play drums on the floor, the wife dropping everything on the kitchen floor, or the dog chewing it like a bone. Or a mishap by yourself.


Anyway, just wondering if you or someone/something else ever made one of your Sharpmaker rods break. Could be the open window clashing against the device, the grumpy cat tipping it over, the toddler trying to play drums on the floor, the wife dropping everything on the kitchen floor, or the dog chewing it like a bone. Or a mishap by yourself.

Code:
Module[
{g (*inclination angle of rod wrt the vertical*),
z = 5 (*uncut height of vertical prism*),
b = 3 (*rod profile: length of triangle edge*),
a = Pi/3 (*rod profile: 3 angles inside triangle are all 60 degrees*),
R (*center of common circumcircle is coordinate origin*),
tri1Base (*rod profile: triangular base near the bottom*),
tri1Top (*rod profile: triangular base near the top*),
pri1 (*vertical prism formed by the two bases*),
tri2Base (*2nd triangle base*),
tri2Top (*2nd triangle base*),
pri2 (*2nd prism*)
},
R = N@(b/Sqrt[3]);
tri1Base = tri1Top = {{R Cos[a], R Sin[a], 0}, {-R, 0, 0}, {R Cos[a], -R Sin[a], 0}};
tri1Top[[All, 3]] = z;
pri1 = Prism[tri1Base~Join~tri1Top];
tri2Base = tri2Top = {{R, 0, 0}, {-R Cos[a], R Sin[a], 0}, {-R Cos[a], -R Sin[a], 0}};
tri2Top[[All, 3]] = z;
pri2 = Prism[tri2Base~Join~tri2Top];
Manipulate[
Graphics3D[{
Triangle[tri1Base],
Triangle[tri2Base],
{PointSize[.03], Red, Point[{R, 0, z}]},
Style[{pri1, pri2}, ClipPlanes ->
{InfinitePlane[{{R, 0, 0}, {R, 1, 0}, {0, 0, R Tan[g]}}],
InfinitePlane[{{-R, 0, z}, {-R, 1, z}, {0, 0, z - R Tan[g]}}]
}, ClipPlanesStyle -> Opacity[.1]
]
}, Boxed -> False, RotationAction -> "Clip"
]
, {{g, 20 Degree, "Edge Angle"}, 0 Degree, 45 Degree}
]
]
Last edited: