- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
优化控制交通 ——十字路口的交通模型;背景——十字路口的红绿灯控制的缺陷;我进攻的方向在哪里? ——初步试验性实践:;实现——实践化的艰辛与快乐;总的方式;;;模型的核心;每辆车损失的路程可能包含的情况;路程的损失计算模型;车队行驶通过的模型
车队的最后一辆车开过停车线所需得时间。
汽车的启动时间
跟随车队行驶的时间
;;;车队全部通过时间的计算模型;;Cls
Dim a(8, 200), w(4), b(8, 200)
velocy = 5: lcar = 5 + 3: lbus = 10 + 3: avelocy = 15:r =For p = 1 To 8
READ v
Data 9, 9, 5, 7, 5, 6, 7, 8
v(p) = v / 60
For i = 1 To 200
timered = i: timeall = 0: chedui = 1: sa = 0
1 n = Int(v(p) * timered): If n 1 Then GoTo 5
longeur = n * 8
While chedui = 1
Time = longeur / 8 + 2 * (n - 1)
For ncar = 1 To n: s = 0
s = 12 * (timered + (n - 1) * 8 / 8 + 2 * (n - 1)) + 25
sa = sa + s
Next ncar
chedui = 0: GoTo 4
Wend
For ncar = 1 To n: s = 0: t = 0
a = Rnd(1)
If ((ncar - 1) / v(p) + v(p) * a) (lastn * 2 * (n - 1)) Then t = (lastn * 2 * (n - 1)) - (ncar / v(p))
If t = 0 Then nowlong = (n - ncar / (13 / 5 * v(p))) * 8: sa = sa + 4
If nowlong 8 Then GoTo 5
If t 0 Then sa = sa + 21: nowlong = lastn * 8
s = 12 * (t + nowlong / 8) - nowlong
sa = sa + s
Next ncar
Time = longeur / 8
4 timeall = timeall + Time: timered = Time: lastn = n: GoTo 1
5 a(p, i) = timeall: b(p, i) = sa
Next i
Next p;FOR p = 1 TO 8
FOR i = 5 TO 100 STEP 5
PRINT b(p, i);
NEXT i: PRINT
NEXT p
For g1 = 5 To 60 Step 1
For g2 = 5 To 60 Step 1
For g3 = 5 To 60 Step 1
For g4 = 5 To 60 Step 1
w(1) = g2 + g3 + g4
w(2) = g4 + g1 + g3
w(3) = g2 + g4 + g1
w(4) = g1 + g2 + g3
lostdistance = 0
For k = 1 To 8
If k = 1 Or 2 Then m = 1: a = w(m): runtime = g1: If runtime a(k, a) Then GoTo 14
If k = 3 Or 4 Then m = 2: a = w(m): runtime = g2: If runtime a(k, a) Then GoTo 13
If k = 5 Or 6 Then m = 3: a = w(m): runtime = g3: If runtime a(k, a) Then GoTo 12
If k = 7 Or 8 Then m = 4: a = w(m): runtime = g4: If runtime a(k, a) Then GoTo 11
lostdistance = lostdistance + b(k, w(m))
Next k
If r lostdistance Then r = lostdistance: r1 =
您可能关注的文档
最近下载
- 驼乳粉的技术要求.pdf VIP
- 哈工大_理论力学_I(第6版)习题详解.pdf
- 2025年新高考数学一轮复习:函数的图象(九大题型)(讲义)(学生版+解析).pdf VIP
- 陶喆出轨道歉会PPT(源文件锐普独家首发)0708.pptx VIP
- 2025年新高考数学一轮复习:圆的方程(八大题型)(讲义)(学生版+解析).pdf VIP
- 2025年新高考数学一轮复习:数列求和(九大题型)(练习)(学生版+解析).pdf VIP
- 发酵驼乳粉的技术要求.pdf VIP
- 罗斯蒙特3051C压力变送器校准调试方法.doc VIP
- 视频监控系统工程质量管理体系和保证措施.docx VIP
- 660MW超超临界火电机组深度调峰经济性评估与对策.docx VIP
文档评论(0)