注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

国产经典:“计算不求人”软件专区

官方网站:http://www.speed-long.com

 
 
 

日志

 
 

用“计算不求人”软件写程序计算渐开线反函数  

2010-12-16 22:32:23|  分类: 计算不求人 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

以下内容复制到“计算不求人”软件里即可运行:

“计算不求人”里求渐开线反函数的三种方法:
第一种方法:
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
17:  if(i>100)
18:   exit wcycle
19:  end if
20: end wcycle
21: angle=middle= 80.000000

第二种:

1: val1=0.01
2: middle=45
3: pg=13
4: min=0
5: max=90
6: val2=inv(middle)= 0.2146018
7: i=0
8: wcycle()
9:  if(val2>val1)
10:   max=middle= 17.5767723
11:  else
12:   min=middle= 17.5767722
13:  end if
14:  middle=(min+max)/2= 17.5767722
15:  val2=inv(middle)= 0.0100000
16:  i=i+1= 29
17:  if(i>100)
18:   exit wcycle
19:  end if
20: end wcycle(abs(val2-val1)<=(1/10^pg))
21: angle=middle= 17.5767722

第三种:

1: val1=1
2: middle=45
3: pg=13
4: min=0
5: max=90
6: val2=inv(middle)= 0.21460
7: i=0
8: wcycle()
9:  max= among[val2>val1,middle,max]= 64.87416
10:  min=among[val2<val1, middle,min]= 64.87416
11:  middle=(min+max)/2= 64.87416
12:  val2=inv(middle)= 1
13:  i=i+1= 34
14:  if(i>100)
15:   exit wcycle
16:  end if
17: end wcycle(abs(val2-val1)<=(1/10^pg))
18: angle=middle= 64.87416

  评论这张
 
阅读(270)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018