偶数整除性检查

POOCRACKIN · 发表于 2022-7-6 11:50:03

我在一个Lisp程序的过程中把墙板放在建筑的轮廓上。
带尺寸和面板计数。
如果建筑长度正好可以被嵌板宽度整除，我希望嵌板从侧面开始。。
否则，面板将从中间走向边缘。
我只是不知道如何检查它是否完全可除（没有余数）。。

lpseifert · 发表于 2022-7-6 12:08:21

在我的脑海里。。。


(if 
 (= 0 (rem [color=Red]bldglength panelwidth))
[color=Black]     (start from end)
     (start from middle)
)

POOCRACKIN · 发表于 2022-7-6 12:32:55

太棒了，谢谢。，我甚至还没有完成变量的本地化。这正是我需要的。

David Bethel · 发表于 2022-7-6 12:38:03

我在模块化制冷面板上使用了非常类似的东西

owid=总宽度
pwid=面板宽度

xl=接缝点列表

copy


 [b][color=BLACK]([/color][/b]if [b][color=FUCHSIA]([/color][/b]zerop [b][color=NAVY]([/color][/b]rem owid pwid[b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
     [b][color=FUCHSIA]([/color][/b]progn
       [b][color=NAVY]([/color][/b]setq xp 0 i 0[b][color=NAVY])[/color][/b]
       [b][color=NAVY]([/color][/b]repeat [b][color=MAROON]([/color][/b]1+ [b][color=GREEN]([/color][/b]fix [b][color=BLUE]([/color][/b]/ owid pwid[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
               [b][color=MAROON]([/color][/b]setq xl [b][color=GREEN]([/color][/b]cons [b][color=BLUE]([/color][/b]* pwid i[b][color=BLUE])[/color][/b] xl[b][color=GREEN])[/color][/b]
                      i [b][color=GREEN]([/color][/b]1+ i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b]
     [b][color=FUCHSIA]([/color][/b]progn
       [b][color=NAVY]([/color][/b]setq xp [b][color=MAROON]([/color][/b]* owid 0.5[b][color=MAROON])[/color][/b] i 0[b][color=NAVY])[/color][/b]
       [b][color=NAVY]([/color][/b]repeat [b][color=MAROON]([/color][/b]fix [b][color=GREEN]([/color][/b]* [b][color=BLUE]([/color][/b]/ owid pwid[b][color=BLUE])[/color][/b] 0.5[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b]
               [b][color=MAROON]([/color][/b]setq xl [b][color=GREEN]([/color][/b]cons [b][color=BLUE]([/color][/b]- xp [b][color=RED]([/color][/b]* pwid [b][color=PURPLE]([/color][/b]+ i 0.5[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] xl[b][color=GREEN])[/color][/b]
                     xl [b][color=GREEN]([/color][/b]cons [b][color=BLUE]([/color][/b]+ xp [b][color=RED]([/color][/b]* pwid [b][color=PURPLE]([/color][/b]+ i 0.5[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] xl[b][color=GREEN])[/color][/b]
                      i [b][color=GREEN]([/color][/b]1+ i[b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b]
       [b][color=NAVY]([/color][/b]setq xl [b][color=MAROON]([/color][/b]cons 0 xl[b][color=MAROON])[/color][/b]
             xl [b][color=MAROON]([/color][/b]cons owid xl[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]

xl使用相等的面板排序，而不是使用中点列表-大卫

POOCRACKIN · 发表于 2022-7-6 12:51:32

这看起来确实很像我正在做的，我已经得到它，你选择屋顶线，然后墙线，输入面板宽度，它创建了多个矩形，增加到最高点（面板上的屋顶），每个都有一个尺寸。。。当我（接近）完成时，我会把它贴出来，以防有人需要它。。大便，每栋楼可以节省我大约一个小时。。特别是如果我将dim值打印到csv。。。。嗯：嗯：

[编程交流] 偶数整除性检查

发表回复

精选推荐