The Buzzard 发表于 2022-7-6 10:44:33

欧姆';s定律计算器

大家好,
 
我终于完成了这个欧姆定律计算器,我似乎对结果很满意,但程序的大小让我感到困扰。当在更复杂的实体(如圆和文本)上使用矢量图像时,它会创建比预期大得多的列表。我试图用MSLIDE复制图像,但我无法通过这种方式控制图像大小,无法复制与矢量图像相同的结果。
 
无论如何,我张贴它只是为了反馈相同。
 
有关加载说明,请参阅以下链接:http://www.cadtutor.net/forum/showthread.php?1390-如何在此存档中使用LISP例程
 
修订列表:

                                 *Revisions*
Date      Change                                              Program   By
06/12/09Reduce program size by vector_image modification    OLCv2.lsp   AMB
06/13/09Add Divide by zero error function                   OLCv3.lsp   AMB
06/13/09Program now calculates remaining two values         OLCv3.lsp   AMB
06/13/09Remove Mode Tile Function                           OLCv3.lsp   AMB
06/14/09Add Imaginary Number calcs to square root         OLCv4.lsp   LM
06/14/09Program remembers last formula selection            OLCv4.lsp   AMB
06/16/09Remove OLC_DCO Output Function                      OLCv5.lsp   CAB
06/16/09Consolidate OLC_CAI & OLC_DCO functions             OLCv5.lsp   CAB
06/16/09Remove all redundant programming                  OLCv5.lsp   CAB
06/16/09Improved variable localization                      OLCv5.lsp   CAB
06/16/09Improved programming for input errors               OLCv5.lsp   CAB
06/16/09Added OLC_T2N Error Function                        OLCv5.lsp   CAB
06/16/09Modified OLC_RAC Reset Function                     OLCv5.lsp   CAB

 
版本2发布于2009年6月12日
版本3发布于2009年6月13日
版本4发布于2009年6月14日
版本5发布于2009年6月16日
 
我要对以下个人的帮助和建议表示感谢。非常感谢李·麦克、卡布、肖特、大卫·贝瑟尔。
通过他们对这个线程的贡献,我能够完成这个程序。我对这些优秀的人说得太多了,他们总是准备好、愿意并且能够付出时间。我希望其他人会从实际目的或作为学习模式中发现这个程序有用。
 
请欣赏这个节目,
秃鹰
OLCv5.zip

Lee Mac 发表于 2022-7-6 10:48:24

哇。。。我还没有试过代码,只是看看LISP:这么多数字。。。。你肯定喜欢你的矢量图像。
 
如果贴出的图片有什么依据,那就把秃鹰画得很棒
 

The Buzzard 发表于 2022-7-6 10:52:22

 
谢谢李,
 
我很喜欢这样一个事实,当涉及到矢量图像时,我不必处理幻灯片。与放入图像相比,不使用它的程序的大小几乎为零。这似乎不值得。从另一个意义上讲,MSLIDE是一种真正的痛苦。
 
无论如何,该程序运行良好。

CAB 发表于 2022-7-6 10:56:10

你的DCL很漂亮!
 
我将以不同的方式处理lisp和向量编码,但它完成了这项工作。

The Buzzard 发表于 2022-7-6 11:00:24

 
谢谢CAB,
 
对于不同的方法,你有什么建议?

CAB 发表于 2022-7-6 11:02:32

对于向量,我将把圆/背景分割成一个列表,并制作每个单元格
放入单独的列表中。通过这种方式,您可以将列表馈送到每个组的vector_图像
只需更改要使用红色的组的颜色。
 
对于用户输入的操作,我将有一个清除按钮,该按钮将覆盖所有4个编辑框。
然后动作将对ENTER键作出反应。如果只输入了一个值,则不执行任何操作。
如果输入了两个值,将解决两个缺失值。
这只是我的方法。你的没问题。
 
 
PS您可以将两个公式变为红色以匹配结果。

The Buzzard 发表于 2022-7-6 11:04:15

 
我想我知道你的意思。我不得不把它弄得乱七八糟才有感觉,但这很有道理。
 
我会试一试,看看会发生什么。
 
谢谢你的建议。

The Buzzard 发表于 2022-7-6 11:09:02

 
驾驶室,
 
我用轮子做了一个测试,把文本作为基础图像。然后,我只使用每个选定图像的选定红色文本作为条件,似乎效果很好。我只需要把它做完。将在周末发布新版本。
 
关于程序操作,我需要进一步研究。
 
关于图像的好提示,这将大大减少程序大小。
 
再次感谢,
秃鹰

The Buzzard 发表于 2022-7-6 11:11:35

 
大家注意,
 
CAB为我介绍了一种矢量图像修复方法,消除了图像冗余,从而生成了一个小得多的程序。
 
程序的原始大小是582KB,减少到119KB。
这是多么大的不同啊。
 
修改后的文件已经上传到第一个帖子,所以你可以在那里获得程序。
 
谢谢大家,祝大家愉快!
秃鹰

Lee Mac 发表于 2022-7-6 11:13:43

很漂亮的秃鹰,只是在玩弄它
 
我喜欢这个对话的图像,极好的插图-非常感谢在“关于”对话中提到-我感到荣幸
 
但是,您可能需要考虑的一件事是,可能包括一行代码来解释被零除的错误,可能还有一个错误磁贴,用于在用户输入时通知用户,例如,公式1中的0欧姆。
 
只是一个想法
 
页: [1] 2
查看完整版本: 欧姆';s定律计算器