lisp 河道水面线计算_天然河道水面线计算程序

水深

h

(m)

底宽

b

(m)

边坡

m

纵坡

i

1+143

87.37257

85.677

17.8

1.695572

4

0.4

0.003

1+100

43.00

87.50158

85.806

17.8

1.695579

4

0.4

0.003

1+050

50.00

87.65155

85.956

17.8

1.695549

4

0.4

0.003

1+000

50.00

87.80155

86.106

17.8

1.695553

4

0.4

0.003

0+950

50.00

100

86.256

17.8

13.744

4

0.4

0.003

0+900

50.00

100

86.406

17.8

13.594

4

0.4

0.003

0+850

50.00

100

86.556

17.8

13.444

4

0.4

0.003

0+800

50.00

100

86.706

17.8

13.294

4

0.4

0.003

0+750

50.00

100

86.856

17.8

13.144

4

0.4

0.003

0+700

50.00

100

87.006

17.8

12.994

4

0.4

0.003

0+650

50.00

100

87.156

17.8

12.844

4

0.4

0.003

0+600

50.00

100

87.306

17.8

12.694

4

0.4

0.003

0+550

50.00

100

87.456

17.8

12.544

4

0.4

0.003

0+500

50.00

100

87.606

17.8

12.394

4

0.4

0.003

0+450

50.00

100

87.756

17.8

12.244

4

0.4

0.003

0+400

50.00

100

87.906

17.8

12.094

4

0.4

0.003

0+350

50.00

100

88.056

17.8

11.944

4

0.4

0.003

0+300

50.00

100

88.206

17.8

11.794

4

0.4

0.003

0+250

50.00

100

88.356

17.8

11.644

4

0.4

0.003

0+200

50.00

100

88.506

17.8

11.494

4

0.4

0.003

0+150

50.00

100

88.656

17.8

11.344

4

0.4

0.003

0+100

50.00

100

88.806

17.8

11.194

4

0.4

0.003

0+050

50.00

100

88.956

17.8

11.044

4

0.4

0.003

0+000

50.00

100

89.106

17.8

10.894

4

0.4

0.003

说明:

1、

部分为输入参数

2、

3、

为试算数据(可利用菜数据-假设分析-单变量求解功能计算),

采用公式为《水力学(上)》河海大学、赵振兴P364,如下图

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
Lisp是一种编程语言,可以用来求解两条线的交点。在Lisp中,我们可以使用一些数学函数和算法来计算交点。 首先,我们需要定义两条线的方程或者参数形式。假设我们有两条线的方程形式如下: 线1: y = m1*x + b1 线2: y = m2*x + b2 其中,m1和m2分别为线1和线2的斜率,b1和b2分别为线1和线2的截距。 然后,我们可以通过解方程组的方式来求解交点。假设交点的坐标为(x, y),我们可以得到以下方程: m1*x + b1 = m2*x + b2 => m1*x - m2*x = b2 - b1 => (m1 - m2)*x = b2 - b1 => x = (b2 - b1)/(m1 - m2) 有了x的值,我们可以将其代入线1或线2的方程中,得到对应的y值。例如,代入线1的方程中可以得到: y = m1*x + b1 最后,我们得到两条线的交点坐标为(x, y)。 在Lisp中,我们可以定义一个函数来实现上述计算过程。以下是一个简单的示例代码: ``` (defun find-intersection-point (m1 b1 m2 b2) (let ((x (/ (- b2 b1) (- m1 m2)))) (values x (+ (* m1 x) b1)))) (let ((m1 2) (b1 3) (m2 -1) (b2 5)) (format t "The intersection point is (~2f, ~2f)~%" (find-intersection-point m1 b1 m2 b2))) ``` 上述代码中,我们首先定义了一个名为`find-intersection-point`的函数,该函数接受四个参数m1、b1、m2和b2,表示两条线的斜率和截距。函数内部使用了`let`表达式来计算x的值,然后使用`values`返回一个包含x和y的多值。最后,我们使用`format`函数将交点坐标打印出来。 注意,上述代码只是一个简单示例,实际应用中可能需要考虑更多的情况,例如特殊情况的处理和错误处理等。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值