圆形断面正常水深莫洛图

% -- 计算  抛物线 形渠道的 正常水深计算
clc; clear all
M0=0.001:0.01:8;  % 无量纲参数的取值范围  β=αQ/b^2.5;
g=9.81; % 重力加速度
h0=(0.0104+0.3356*M0) ./(1+0.3732*M0-0.0962*M0.^2);
 beta=(M0/(2^2.6)).^(1/0.6);
 
plot(beta,h0,'b-','linewidth',2); hold on
  
  axis([0.001,0.4,0.01,1])
 

xlabel('无量纲参数  nQ/i^0^.^5 /d^8^/^3');
 ylabel('无量纲正常水深 h_0 /d');
  
% legend('地基加固后2#桩检测值','本文预估计算值(1#桩)', '原状土1#桩检测值','本文计算值(1#桩)') 
 
title('圆形渠道 正常水深查算图');



 

莫洛登斯基(Molodensky)三参数求解是一种用于坐标转换的方法,常用于将两个不同的坐标系统之间的点进行转换。这种方法假设两个坐标系统之间存在刚性变换关系,即平移、旋转和尺度变化,通过求解三个参数,即X轴的平移量、Y轴的平移量和尺度变化系数,可以将一个坐标系统上的点转换到另一个坐标系统上。 以下是使用VBA代码实现莫洛登斯基三参数求解的示例: ```vba Sub MolodenskyThreeParameters() ' 输入点的坐标(以原坐标系为准) Dim x1 As Double Dim y1 As Double Dim z1 As Double ' 输入点在新坐标系中的坐标 Dim x2 As Double Dim y2 As Double Dim z2 As Double ' 三个参数(X轴平移量、Y轴平移量、尺度变化系数) Dim dx As Double Dim dy As Double Dim ds As Double ' 解算结果(点在新坐标系中的坐标) Dim newX As Double Dim newY As Double Dim newZ As Double ' 莫洛登斯基三参数求解 newX = x1 + dx + ds * (y1 * 0.7897924 - z1 * 0.6139954) newY = y1 + dy + ds * (x1 * 0.6139954 + z1 * 0.7897924) newZ = z1 + ds * (-x1 * 0.7897924 + y1 * 0.6139954) ' 输出结果 Debug.Print "点在新坐标系中的坐标:" Debug.Print "X坐标:" & newX Debug.Print "Y坐标:" & newY Debug.Print "Z坐标:" & newZ End Sub ``` 在代码中,需要输入原坐标系中的点坐标以及新坐标系中的点坐标。通过莫洛登斯基三参数求解,计算得到点在新坐标系中的坐标,输出结果后可以获取转换后的坐标值。 需要注意的是,上述代码中的参数和求解公式都是示例,实际使用时应该根据具体的坐标系统和数据进行调整。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值