drw_ncl.rar

  • PUDN用户
    了解作者
  • matlab
    开发工具
  • 1KB
    文件大小
  • rar
    文件格式
  • 0
    收藏次数
  • 1 积分
    下载积分
  • 15
    下载次数
  • 2014-12-02 23:01
    上传日期
FVCOM模式专用纳潮量计算m文件,简单易懂,容易上手
drw_ncl.rar
  • drw_ncl.m
    1.7KB
内容介绍
%%%计算纳潮量 clc clear casename='tfw'; n_element=5825; %三角形单元数 n_id =3126; %节点数 n_obc =14; %开边界点数 grd_file ='D:\陵水\土福湾\57_yuan.grd'; %grd 文件名 单位 米(转成平面坐标系),未删除网格前的原始文件 t_beg = 118; t_end = 144; dir = 'D:\陵水\土福湾\sms'; depth=load('D:\陵水\土福湾\dep.dat'); %地形 avail_element=load('D:\陵水\土福湾\element.dat'); %%%三角网格面积计算 fid=fopen(grd_file,'r'); temp=fgetl(fid); temp=fgetl(fid); for i=1:n_id str2=fgetl(fid); A(i,:)=strread(str2,'%f','delimiter',' '); %节点坐标 end A(:,4)=[]; for i=1:n_element str2=fgetl(fid); B(i,:)=strread(str2,'%f','delimiter',' ');%三角形单元 end B(:,2)=[]; fclose(fid); temp_a=((A(B(:,2),2)-A(B(:,3),2)).^2+(A(B(:,2),3)-A(B(:,3),3)).^2).^(0.5); %a边 temp_b=((A(B(:,2),2)-A(B(:,4),2)).^2+(A(B(:,2),3)-A(B(:,4),3)).^2).^(0.5); %b边 temp_c=((A(B(:,3),2)-A(B(:,4),2)).^2+(A(B(:,3),3)-A(B(:,4),3)).^2).^(0.5); %c边 temp_p=(temp_a+temp_b+temp_c)./2; temp_s=((temp_p-temp_a).*(temp_p-temp_b).*(temp_p-temp_c).*temp_p).^0.5; %面积 clear temp_a temp_b temp_c temp_p; sss=sum(temp_s(avail_element)); for i=t_beg:t_end file=[dir,'\',casename,'el_',sprintf('%04d',i),'.xy']; ele=load(file); %水位 ele(:,4:end)=[]; ele_temp=ele+depth; temp_d=(ele_temp(B(:,2),3)+ele_temp(B(:,3),3)+ele_temp(B(:,4),3))/3; %ele+dep 水位加深度=实际水深 temp_d(temp_d<=0.05)=0; temp_v=temp_s.*temp_d; %纳水体积 ncl(i)=sum(temp_v(avail_element)); disp(i); end fid=fopen('D:\陵水\土福湾\ncl_h.dat','w+'); for i=t_beg:t_end; fprintf(fid,'%20.4f',ncl(i)); fprintf(fid,'\n'); end fclose(fid);
评论
    相关推荐
    • qpopper2.53.tar.Z
      pop3 server
    • imap-4.7.tar.Z
      被广泛使用的email服务器 /IMAPD/POPD
    • 53308459Add_Dlt_TabCtrl.rar
      Tab分页的删除和添加,实现分页动态的管理。
    • ns-allinone-2.33.tar.gz
      ns2.33这是目前比较新的ns2版本,欢迎下载
    • NetVideoActiveX23.rar
      海康威视 网络监控插件 带有例子 和开发的dll文件,非常易用
    • UR054g_(R01).zip
      法国inventel的ur054g(r01)v1.1的无线网卡驱动。
    • eat.rar
      外卖叫餐系统,采用ACCESS数据库,有完整天的后台管理系统
    • KSTVTUNE.ZIP
      装摄像头驱动需要用到的文件。Microsoft DirectX 9 SDK
    • Skin++.rar
      知名的Skin++界面库,内含所有库文件和大量皮肤文件.该库使用方便,可以减少您美化程序的痛苦.本版是破解版,没有注册提示.但只供学习研究使用哦,不要用在商业用途.
    • DLL函数查看器V2.0.rar
      DLL函数查看器V2.0 可以看看dll里导出地函数