关于折射镜光阑与遮光罩的设计

以下内容纯属个人想法，如果会误导大家，请指出我的错误，谢谢了。

这几天打算 DIY 一个 50mm 口径，焦距 360mm 的普消折射镜，使用 1.25 英寸的目镜。
关于光阑内径与遮光罩长度的计算，如下图。

光阑的原则是，不会遮挡目镜端接收的光线；遮光罩的原则是，不会遮挡最终会被目镜端接收的光线。
我们需要知道4个参数：
1 物镜口径，是 50mm.
2 物镜的焦距，是 360mm.
3 目镜端的直径，这里是 1.25 英寸目镜的口径，取 32mm.
4 遮光罩的内径，例如可以是 58mm.

光阑，由相似三角形可知:
光阑内径 = 目镜端直径 + 距焦点距离 / 焦距 * (口径 - 目镜端直径)

遮光罩的计算：
由于
焦距 : (目镜端直径 / 2) = 遮光罩长度 : ((遮光罩内径 - 口径) / 2)
得
遮光罩长度 = (遮光罩内径 - 口径) * 焦距 / 目镜端直径

用程序来实现：

*------------------------------------------
*--
*--        光阑与遮光罩计算
*--
*--        光阑内径 = 目镜端直径 + 距焦点距离 / 焦距 * (口径 - 目镜端直径)
*--        遮光罩长度 = (遮光罩内径 - 口径) * 焦距 / 目镜端直径
*--
*--        Powered by: Dolphin, CAS. 2019.05.30
*--
*------------------------------------------

Set Textmerge Noshow

o光阑与遮光罩 = Createobject("光阑与遮光罩")
o光阑与遮光罩.口径 = 50
o光阑与遮光罩.焦距 = 360
o光阑与遮光罩.目镜端直径 = 32
o光阑与遮光罩.遮光罩内径 = 58

CLEAR
? TEXTMERGE("D50F360 普消(D = 50, F = 360, 目镜 1.25 英寸, 遮光罩内径 <<o光阑与遮光罩.遮光罩内径>> mm):")
?
? Textmerge("遮光罩长度: <<Round(o光阑与遮光罩.计算遮光罩长度(), 2)>> mm")
?
For 距焦点距离 = 20 To o光阑与遮光罩.焦距 - 20 Step 20
    ? Textmerge("距焦点 <<距焦点距离>> mm 的光阑, 内径: <<Round(o光阑与遮光罩.计算光阑(距焦点距离), 2)>> mm")
Next

Define Class 光阑与遮光罩 As Custom
    *--        属性定义

    口径 = 50
    焦距 = 360
    目镜端直径 = 32 && 1.25 英寸目镜 1.25 * 25.4
    遮光罩内径 = 60

    *--        方法定义

    *-- 输入距焦点的距离, 计算光阑内径.
    Procedure 计算光阑(tn距焦点距离)
        *--            由相似三角形可知:
        *--            光阑内径 = 目镜端直径 + 距焦点距离 / 焦距 * (口径 - 目镜端直径)
        Local 光阑内径
        光阑内径 = 0.00
        光阑内径 = This.目镜端直径 + tn距焦点距离 * (This.口径 - This.目镜端直径) / This.焦距

        Return 光阑内径
    Endproc

    *-- 计算遮光罩距物镜的最远长度
    Procedure 计算遮光罩长度
        *--            焦距 : (目镜端直径 / 2) = 遮光罩长度 : ((遮光罩内径 - 口径) / 2)
        *--            =>
        *--            遮光罩长度 = (遮光罩内径 - 口径) * 焦距 / 目镜端直径
        Local 遮光罩长度
        遮光罩长度 = 0.00
        遮光罩长度 = (This.遮光罩内径 - This.口径) * This.焦距 / This.目镜端直径

        Return 遮光罩长度
    Endproc
Enddefine

程序运行结果：

D50F360 普消(D = 50, F = 360, 目镜 1.25 英寸, 遮光罩内径 58 mm):

遮光罩长度: 90.00 mm

距焦点 20 mm 的光阑, 内径: 33.00 mm
距焦点 40 mm 的光阑, 内径: 34.00 mm
距焦点 60 mm 的光阑, 内径: 35.00 mm
距焦点 80 mm 的光阑, 内径: 36.00 mm
距焦点 100 mm 的光阑, 内径: 37.00 mm
距焦点 120 mm 的光阑, 内径: 38.00 mm
距焦点 140 mm 的光阑, 内径: 39.00 mm
距焦点 160 mm 的光阑, 内径: 40.00 mm
距焦点 180 mm 的光阑, 内径: 41.00 mm
距焦点 200 mm 的光阑, 内径: 42.00 mm
距焦点 220 mm 的光阑, 内径: 43.00 mm
距焦点 240 mm 的光阑, 内径: 44.00 mm
距焦点 260 mm 的光阑, 内径: 45.00 mm
距焦点 280 mm 的光阑, 内径: 46.00 mm
距焦点 300 mm 的光阑, 内径: 47.00 mm
距焦点 320 mm 的光阑, 内径: 48.00 mm
距焦点 340 mm 的光阑, 内径: 49.00 mm

50f360这种还没有拳头大的镜子，淘宝十几块钱消光植绒挺不错，便宜，简单，实用，黑乎乎。