无聊的程序猿

相约钓鱼, 探讨钓技, 结交钓友, 分享渔获 。。。

无聊的程序猿

楼层:#1  帖子肥彁 » 22 4月 2017 20:14

今天还是在家修船马达,想换新的Spark Plug试试能不能解决问题。问题接着就来了,火花塞需要将点火缝隙调到1毫米。看了看手里的gauge,没有1毫米,需要尽可能将量尺blade 组合成1毫米大小,越接近越好。看着那些数字和可能的组合,用手写,算了算,又在谷歌找了好一会,没找到什么方法。两片有误差,3片怎么样?4片组合说不定刚刚是1毫米?出问题啦!想了想,数字组合还有程序猿搞不掂的?就写了以下一段程序,最佳组合是0.102+0.889=0.991,误差0.009,还是两片搞定。我怎么没看见?

有了这段程序,我可以摆摊为大家算算什么时候出洞钓鱼啦,时间,温度,潮汐,不都是数字嘛!记得把钓点的GPS数字也报上为好。 :laugh3

object BladeCalculation {
def main(args: Array[String]): Unit = {
val target : Int = 1000
val bladeSizes = Array(51,76,102,152,203,254,305,330,381,406,432,457,508,559,635,660,711,762,813,889)
var gap : Int = 1000
var output = ""

for(windowSize <- 1 to 10) {
for(slide <- 0 to bladeSizes.length-windowSize-1) {
val selected = new Array[Int](windowSize)
for (i <- 0 to windowSize - 1) {
selected(i) = bladeSizes(slide + i)
}

println("selected numbers to compare-"+selected.mkString(","))

for (j <- 0 to bladeSizes.length - 1) {
if (!selected.contains(bladeSizes(j))) {
val total = selected.sum + bladeSizes(j)
if (Math.abs(total - target) < gap) {
gap = Math.abs(total - target)
output = selected.mkString(",")+","+bladeSizes(j)
}
}
}
}
}
println("best blade combination choice is ->"+output)
}

}
您没有权限查看这个主题的附件(帖图)。 请先注册并登陆后访问。 谢谢! You have no permission to view this attachment. Please register and sign in. Thank you!
肥彁
Lieutenant General (中将)
Lieutenant General (中将)
 
帖子: 2341
注册: 02 10月 2013 16:56
Member Number (论坛会员注册序列号): #81
地址: Carlton & Manhattan, Markham

Re: 无聊的程序猿

楼层:#2  帖子xiaolu » 22 4月 2017 20:17

牛逼. 您这是被挨踢的高手啊. :up
xiaolu
Site Admin (站长)
 
帖子: 42778
注册: 17 9月 2013 06:22
Member Number (论坛会员注册序列号): #1
地址: Maple, Vaughan

Re: 无聊的程序猿

楼层:#3  帖子Sergeantpepper » 22 4月 2017 20:34

looks like BASIC to me, somesing I used 40 yrs ago :roflmao
Sergeantpepper
Grand General (大将)
Grand General (大将)
 
帖子: 13182
注册: 17 9月 2013 08:31
Member Number (论坛会员注册序列号): #6

Re: 无聊的程序猿

楼层:#4  帖子Beginner » 22 4月 2017 20:48

:up
肥彁 @ Sat Apr 22, 2017 8:14 pm 写道: 今天还是在家修船马达,想换新的Spark Plug试试能不能解决问题。问题接着就来了,火花塞需要将点火缝隙调到1毫米。看了看手里的gauge,没有1毫米,需要尽可能将量尺blade 组合成1毫米大小,越接近越好。看着那些数字和可能的组合,用手写,算了算,又在谷歌找了好一会,没找到什么方法。两片有误差,3片怎么样?4片组合说不定刚刚是1毫米?出问题啦!想了想,数字组合还有程序猿搞不掂的?就写了以下一段程序,最佳组合是0.102+0.889=0.991,误差0.009,还是两片搞定。我怎么没看见?

有了这段程序,我可以摆摊为大家算算什么时候出洞钓鱼啦,时间,温度,潮汐,不都是数字嘛!记得把钓点的GPS数字也报上为好。 :laugh3

object BladeCalculation {
def main(args: Array[String]): Unit = {
val target : Int = 1000
val bladeSizes = Array(51,76,102,152,203,254,305,330,381,406,432,457,508,559,635,660,711,762,813,889)
var gap : Int = 1000
var output = ""

for(windowSize <- 1 to 10) {
for(slide <- 0 to bladeSizes.length-windowSize-1) {
val selected = new Array[Int](windowSize)
for (i <- 0 to windowSize - 1) {
selected(i) = bladeSizes(slide + i)
}

println("selected numbers to compare-"+selected.mkString(","))

for (j <- 0 to bladeSizes.length - 1) {
if (!selected.contains(bladeSizes(j))) {
val total = selected.sum + bladeSizes(j)
if (Math.abs(total - target) < gap) {
gap = Math.abs(total - target)
output = selected.mkString(",")+","+bladeSizes(j)
}
}
}
}
}
println("best blade combination choice is ->"+output)
}

}
Beginner
General (上将)
General (上将)
 
帖子: 6081
注册: 26 10月 2016 21:19
Member Number (论坛会员注册序列号): #1772

Re: 无聊的程序猿

楼层:#5  帖子Sergeantpepper » 22 4月 2017 21:30

NGK BPZ8H-N-10 is of 1.0mm gap
last time crappy tire staff checked up with their supplier for stock, gave us an address to follow, then we picked the plugs up from a nearby warehouse....and paid there
您没有权限查看这个主题的附件(帖图)。 请先注册并登陆后访问。 谢谢! You have no permission to view this attachment. Please register and sign in. Thank you!
最后由 Sergeantpepper 编辑于 22 4月 2017 21:49,总共编辑了 2 次
Sergeantpepper
Grand General (大将)
Grand General (大将)
 
帖子: 13182
注册: 17 9月 2013 08:31
Member Number (论坛会员注册序列号): #6

Re: 无聊的程序猿

楼层:#6  帖子肥彁 » 22 4月 2017 21:34

Sergeantpepper @ 周六 4月 22, 2017 9:30 pm 写道: NGK BPZ8H-N-10 is of 1.0mm gap
last time crappy tire staff checked up with their supplier for stock, gave us an address to follow, then we picked the plugs up from a nearby warehouse....


还是椒Sir的搜索引擎厉害!

:up
肥彁
Lieutenant General (中将)
Lieutenant General (中将)
 
帖子: 2341
注册: 02 10月 2013 16:56
Member Number (论坛会员注册序列号): #81
地址: Carlton & Manhattan, Markham

Re: 无聊的程序猿

楼层:#7  帖子Sergeantpepper » 22 4月 2017 21:42

肥彁 @ Sat Apr 22, 2017 9:34 pm 写道:
Sergeantpepper @ 周六 4月 22, 2017 9:30 pm 写道: NGK BPZ8H-N-10 is of 1.0mm gap
last time crappy tire staff checked up with their supplier for stock, gave us an address to follow, then we picked the plugs up from a nearby warehouse....


还是椒Sir的搜索引擎厉害!

:up


gapping 留待修車族搞吧, 仍可以的話 exchange 較好 IMHO :fishb
Sergeantpepper
Grand General (大将)
Grand General (大将)
 
帖子: 13182
注册: 17 9月 2013 08:31
Member Number (论坛会员注册序列号): #6

Re: 无聊的程序猿

楼层:#8  帖子铁马冰河西门吹雪 » 23 4月 2017 00:24

厉害
铁马冰河西门吹雪
General (上将)
General (上将)
 
帖子: 10684
注册: 18 9月 2013 00:23
Member Number (论坛会员注册序列号): #33
地址: 密室
称呼: 西门吹雪

Re: 无聊的程序猿

楼层:#9  帖子新手小郭 » 23 4月 2017 03:14

不懂..帮顶
新手小郭
Major General (少将)
Major General (少将)
 
帖子: 1191
注册: 09 11月 2013 03:03
Member Number (论坛会员注册序列号): #175
地址: cummer & yonge

Re: 无聊的程序猿

楼层:#10  帖子yangzw2002 » 23 4月 2017 07:43

猛,弄gap程序都搞出来了 :roflmao
yangzw2002
Grand General (大将)
Grand General (大将)
 
帖子: 14350
注册: 28 10月 2013 13:35
Member Number (论坛会员注册序列号): #151
地址: doon south & homerwatson, kitchener

Re: 无聊的程序猿

楼层:#11  帖子popiston » 23 4月 2017 08:16

牛!
popiston
Brigadier General (大校/准将)
Brigadier General (大校/准将)
 
帖子: 481
注册: 04 3月 2015 19:25
Member Number (论坛会员注册序列号): #972
地址: Barrie

Re: 无聊的程序猿

楼层:#12  帖子XUYCA » 23 4月 2017 08:32

xiaolu @ 周六 4月 22, 2017 8:17 pm 写道: 牛逼. 您这是被挨踢的高手啊. :up

还是面向钓鱼的程序。挨踢高手。 :up
XUYCA
Grand General (大将)
Grand General (大将)
 
帖子: 20450
注册: 17 9月 2013 09:45
Member Number (论坛会员注册序列号): #8
地址: 密室 Mississauga
称呼: 院长

Re: 无聊的程序猿

楼层:#13  帖子赣西风 » 23 4月 2017 08:35

:up :up
赣西风
Lieutenant General (中将)
Lieutenant General (中将)
 
帖子: 1998
注册: 23 3月 2014 20:13
Member Number (论坛会员注册序列号): #338
称呼: 西风

Re: 无聊的程序猿

楼层:#14  帖子莫德尔 » 23 4月 2017 10:03

西加加?就看明白了两个鲁普,一看开头的关键字,民,于是这段小程序是可执行程序。。。。我瞎编的,小学文化程度哪懂高科技啊。
莫德尔
General (上将)
General (上将)
 
帖子: 6761
注册: 18 9月 2013 17:44
Member Number (论坛会员注册序列号): #42
称呼: 元帅

Re: 无聊的程序猿

楼层:#15  帖子白雪丹枫 » 23 4月 2017 10:09

要多出去钓鱼就不无聊了! :laugh3
白雪丹枫
Grand General (大将)
Grand General (大将)
 
帖子: 14863
注册: 30 9月 2013 17:14
Member Number (论坛会员注册序列号): #74
地址: Guelph, Ontario
称呼: 白将军

Re: 无聊的程序猿

楼层:#16  帖子肥彁 » 23 4月 2017 19:36

莫德尔 @ 周日 4月 23, 2017 10:03 am 写道: 西加加?就看明白了两个鲁普,一看开头的关键字,民,于是这段小程序是可执行程序。。。。我瞎编的,小学文化程度哪懂高科技啊。


回元帅,是咖啡的小弟死卡拉。
肥彁
Lieutenant General (中将)
Lieutenant General (中将)
 
帖子: 2341
注册: 02 10月 2013 16:56
Member Number (论坛会员注册序列号): #81
地址: Carlton & Manhattan, Markham

Re: 无聊的程序猿

楼层:#17  帖子莫德尔 » 23 4月 2017 19:57

肥彁 @ 周日 4月 23, 2017 7:36 pm 写道:
莫德尔 @ 周日 4月 23, 2017 10:03 am 写道: 西加加?就看明白了两个鲁普,一看开头的关键字,民,于是这段小程序是可执行程序。。。。我瞎编的,小学文化程度哪懂高科技啊。


回元帅,是咖啡的小弟死卡拉。
咖灰我有学过,一看这段就不是咖灰。但是一看就像OOP的程序,于是想到西加加。咖灰一开始就就该是main。。。。。
我回头也翻翻咖灰小弟,看着好好玩的样纸。。。
莫德尔
General (上将)
General (上将)
 
帖子: 6761
注册: 18 9月 2013 17:44
Member Number (论坛会员注册序列号): #42
称呼: 元帅

Re: 无聊的程序猿

楼层:#18  帖子XUYCA » 24 4月 2017 06:33

莫德尔 @ 周日 4月 23, 2017 7:57 pm 写道:
肥彁 @ 周日 4月 23, 2017 7:36 pm 写道:
莫德尔 @ 周日 4月 23, 2017 10:03 am 写道: 西加加?就看明白了两个鲁普,一看开头的关键字,民,于是这段小程序是可执行程序。。。。我瞎编的,小学文化程度哪懂高科技啊。


回元帅,是咖啡的小弟死卡拉。
咖灰我有学过,一看这段就不是咖灰。但是一看就像OOP的程序,于是想到西加加。咖灰一开始就就该是main。。。。。
我回头也翻翻咖灰小弟,看着好好玩的样纸。。。

可以啃腚,这是一段OPP的面向钓鱼的程序。但不是西嘎嘎,也不是西傻婆。蟒蛇,痿痹也不像。我认为是一段特殊用途的死亏婆特。
XUYCA
Grand General (大将)
Grand General (大将)
 
帖子: 20450
注册: 17 9月 2013 09:45
Member Number (论坛会员注册序列号): #8
地址: 密室 Mississauga
称呼: 院长


回到 It's All About Fishin' 钓鱼!

在线用户