神奇的计算软件：计算不求人，机械设计计算样样行.

speed_long

回复 顾顾 的帖子

这不是真正意义的EXCEL,
这是VBA,需要编程,
不是每一个人都有"顾顾"你这么牛B的,会这个.

speed_long

今日更新:
简洁模式下显示结果不对错的问题,现在在编辑模式下对齐的,
计算后按"F2"简洁显示结果也是对齐的.
已注册"计算不求人"的朋友请下载最新版,删除旧版,把安装文件夹都删除掉,后安装最新版,
获得最佳的使用效果.

speed_long

回复 顾顾 的帖子

计算不求人里求解渐开线反涵数的N种方法:
一:
inv(80)=4.2750184180222
ainv(4.2750184180222)=80

二:
rote[a,0 to 90,tan(a)-torad(a)-4.2750184180222,13]=80.0000000001455

三:
1: val1=4.2750184180222
2: middle=45
3: pg=13
4: min=0
5: max=90
6: val2=inv(middle)= 0.214602
7: i=0
8: wcycle()
9:  max= among[val2>val1,middle,max]= 80.000000
10:  min=among[val2<val1, middle,min]= 80.000000
11:  middle=(min+max)/2= 80.000000
12:  val2=inv(middle)= 4.275018
13:  i=i+1= 35
14:  if(i>100)
15:   exit wcycle
16:  end if
17: end wcycle(abs(val2-val1)<=(1/10^pg))
18: angle=middle= 80.000000
前面的行序号是可以不要的.

四：
1: val1=4.2750184180222
2: middle=45
3: pg=13
4: min=0
5: max=90
6: val2=inv(middle)= 0.214602
7: i=0
8: wcycle()
9:  if(val2>val1)
10:   max=middle= 80.000000
11:  else
12:   min=middle= 80.000000
13:  end if
14:  middle=(min+max)/2= 80.000000
15:  val2=inv(middle)= 4.275018
16:  i=i+1= 35
18:  if(i>100)
19:   exit wcycle
20:  end if
21: end wcycle(abs(val2-val1)<=(1/10^pg))
22: angle=middle= 80.000000

五：
1: val1=4.2750184180222
2: middle=45
3: pg=13
4: min=0
5: max=90
6: val2=inv(middle)= 0.214602
7: i=0
8: wcycle(abs(val2-val1)>(1/10^pg))
9:  if(val2>val1)
10:   max=middle= 80.000000
11:  else
12:   min=middle= 80.000000
13:  end if
14:  middle=(min+max)/2= 80.000000
15:  val2=inv(middle)= 4.275018
16:  i=i+1= 35
18:  if(i>100)
19:   exit wcycle
20:  end if
21: end wcycle
22: angle=middle= 80.000000

hesheya

好东西多了去了，只是有的好的没发出来

speed_long

回复 hesheya 的帖子

强烈建议：hesheya 把他的好东西发出来，给大伙享用！

speed_long

  以计算文件的形式查尺寸公差

基本尺寸:base=68
公差字母:char="h"
精度等级:grade=18

极限偏差:up_down=size(base char grade)= 68( 0/-4.6)

只需更改"基本尺寸","公差字母",及精度等级的值按计算就可查出相应的极限偏差值.

speed_long

次数循环:ncycle     end ncycle   的用法:
比如，要计算：1+2+3+...+100的值，
可以在计算不求人里这样写：
a=0
i=0
ncycle(i,1 to 100)
       a=a+i= 5050
end ncycle

大家可以试一下,可以看到运算过程,很有意思.

tgw5667

谢谢楼主的贡献！

rqydjx

看得眼热  怎么下载下来打不开呀 是PHP文件

speed_long

怎么会呢？
RAR压缩包啊
直接右键，后目标另存为应该就可以。