please wait for a moment.
Xtract CAD复杂截面建模小工具
Xtract 是一个非常好的截面分析程序,如果支持国产也可以使用Dino开发DinoSec快速截面分析程序。Xtract更适合于建立非常复杂的组合截面,如果建立复杂截面,推荐使用该项程序,该程序是CAD为基础,建立复杂的构件截面,包括巨型柱及复杂的桥梁截面,该程序需要使用AUTOCAD2013版程序,程序请自行下载。
DinoBox_Xtract CAD建模工具
Author: dinochen1983
Time: 2015-02-02
DinoBox_DinoSEC截面分析程序
DINOSEC截面分析程序使用手册
1)程序介绍:
DINOSEC截面分析程序是基于平截面假定,对常用组合截面进行承载力的计算,通过计算得到主轴的PMM曲线或指定轴力的Mx-My相关曲线,PMM曲线对构件的承载力设计具有指导意义。DINOSEC的输入与输出十分便利,可快速用于工程设计。 计算主要原理如下:
(1)采用平截面假定,应变分布为平面方程。
(2)截面分析采用纤维单元法,即将混凝土与钢材离散为纤维。
(3)迭代分析采用二分法逼近求解。
(4)通过洞口(负应力)纤维考虑纤维重叠的影响,如叠合柱的计算中已考虑
DinoSEC截面分析
Author: dinochen1983
Time: 2014-06-13
ETO_OpenSEES前后处理程序
程序通过邮件申请。
★注意,软件不能下载,是通过邮箱发送软件的。

申请ETO时,注意EMAIL 的写法:(格式一定要对,否则电脑收不到)
邮件题目: ETO (版本号) 下载
注册人: (真实姓名)
学校/单位: (大学或工作单位)
邮件回复,大约需要1~4天的时间。
ETO_程序
Author: dinochen1983
Time: 2014-03-26

[Dino爱编程]如何绘制Lissajous曲线的动画演示

[Dino爱编程]如何绘制Lissajous曲线的动画演示



小程序下载:
点击下载此文件: 绘图小程序Lissajous.exe

以上是 Lissajous 曲线的动画。大家看一看,像不像一个网壳结构。
一条数学公式生成一个斜交网格
Lissajous 曲线 ,数学的优雅。
介绍以下一个著名的斜交网格结构,也是出于WSP公司之手  HEARST TOWER


【Dino爱编程】系列有时候会分享一些美妙的数学曲线,有时侯一些数学曲线可以直接展示数学之美,以下的就是一个最好的例子,之前讲过乘法圆曲线(这里是链接:http://dinochen.com/article.asp?id=277)。以上编程的灵感来源于国内一个数学知名博主的博客 matrix67.com, 这里面有丰富的数学内容,大家有兴趣可以去逛逛。


Lissajous曲线,双叫做示波器曲线,可以通过示波器进行生成的。如下图所示。
曲线上点坐标 px py,它的参数方程 x = sin(m · t), y = sin(n · t) ,其中,m与n是定量参数。
通过随着 t 值 的增加,平面上将会画出一系列漂亮的曲线。法国物理学家 Jules Antoine Lissajous
曾在 1857 年研究过这类曲线,因此人们把它叫做 Lissajous 曲线。


matrix67.com在他的博客上绘制了曲线, http://www.matrix67.com/blog/archives/6947
那么参考matrix67的方法,我通过lazarus编程绘制现 m = 13, n = 18 时的 Lissajous 曲线
动画如下图所示。程序界面如下图所示。



以下是主要的源代码:由于曲线需要动画显示,所以采用了 timer功能。

procedure TForm1.tmr1Timer(Sender: TObject);
var di:double;
begin
 di:=200;
 px:=di*sin(m*tt);
 py:=di*sin(n*tt);
 form1.draw_image;
 tt:=tt+dt;
end;

procedure tform1.draw_image;
begin
  img1.Canvas.Pen.Color:=RGB(51,155,223);
  img1.Canvas.Pen.Width:=2;
  ax:=Round(img1.Width/2+px);
  ay:=Round(img1.Height/2-py);
  img1.Canvas.Pen.Mode:=pmNot;
  img1.Canvas.Ellipse(oldx-5,oldy-5,oldx+5,oldy+5);
  if (oldx<>0) and (oldy<>0) then
  begin
  img1.Canvas.Pen.Mode:=pmcopy;
  img1.Canvas.MoveTo(oldx,oldy);
  img1.Canvas.LineTo(ax,ay);
  end;
  img1.Canvas.Pen.Mode:=pmNot;
  img1.Canvas.Ellipse(ax-5,ay-5,ax+5,ay+5);
  oldx:=ax;
  oldy:=ay;
end;

以上代码非常有用,有一张动态曲线的展示,如滞回曲线,振动曲线等一般都是这么编程显示出来的。
以上是【Dino爱编程】的纯技术分享。




[本日志由 dinochen1983 于 2019-08-19 04:11 AM 编辑]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
评论: 0 | 引用: 0 | 查看次数: 524
发表评论
昵 称:
密 码: 游客发言不需要密码.
验证码: 验证码
内 容:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 2000 字 | UBB代码 开启 | [img]标签 开启
【粤ICP备15071789号-1】