页面正在加载中
请稍候...
免费版本2018-01-05
ETABS TO PERFORM-3D
Author: dinochen1983
Time: 2023-12-31
[小记]ETE2018是由陈学伟(DINO)与李明(LI MING)开发的集成程序,它可以完成结构概念设计
优化设计、模型转换、快速建模,快速验算与结构总信息统计的小程序,在设计的基础上开发,不是纯学术研究
满足工程人员对设计的极致要求。由于程序太巨大量,学习操作的教程会慢慢在DINOCHEN.COM上发布
有兴趣的工程师可以下载试用,我们定期会在微信公众号平台公布程序的最新进展
我们的微信公众号是 DINOSTRU , 或扫码关注, 微信的更新是永远最快的。
ETE2018
Author: dinochen1983
Time: 2023-12-27
ETABS to ABAQUS 内置于 ETE2018
ETABS to ABAQUS
Author: dinochen1983
Time: 2023-12-09

[每周挑战][编程]multiplication circles(乘法圆)编程

[每周挑战][编程]multiplication circles(乘法圆)编程


【小记】懂编程的人一定知道数学其实是很美的,数学就是一门艺术,自然的艺术,特别是图形学与可视化就可以表述出来。
以九九乘法表为例,是很枯燥的,但是一但把乘法用圆与直线表述出来,就可以形成美丽的自然图案。

点击下载此文件:程序原理图的PPT

点击下载此文件:程序源代码及可执行程序EXE

以下是视频教程:
视频地址:https://v.qq.com/x/page/o0557dz78tv.html



【STEM】DINOMAKER创客教程 之 【创意编程系列】是用来分享编程的乐趣,也是成为创客必备的技能。
以下是编程得到的乘法圆的动态图
主要的源代码
=====================================================================
PROCEDURE TFORM1.DRAW_LINES;
VAR DIV1:INTEGER;
    NUM2:INTEGER;
    AX,AY:INTEGER;
    BX,BY:INTEGER;
    CX,CY:INTEGER;
    I:INTEGER;
    R:INTEGER;
BEGIN
CX:=IMAGE1.Width DIV 2;
CY:=IMAGE1.Height DIV 2;
R:=180;
DIV1:=STRTOINT(EDIT1.Text);
NUM2:=STRTOINT(EDIT2.Text);
IMAGE1.Canvas.Pen.Color:=CLWHITE;
IMAGE1.Canvas.Brush.Color:=CLWHITE;
FOR I:=0 TO DIV1 DO
BEGIN
  AX:=ROUND(CX+R*COS(DEGTORAD(360/DIV1*I)));
  AY:=ROUND(CY+R*SIN(DEGTORAD(360/DIV1*I)));
  BX:=ROUND(CX+R*COS(DEGTORAD(360/DIV1*I*NUM2)));
  BY:=ROUND(CY+R*SIN(DEGTORAD(360/DIV1*I*NUM2)));
  //
  IMAGE1.Canvas.MoveTo(AX,AY);
  IMAGE1.Canvas.LineTo(BX,BY);
END;
END;
=====================================================================





=================================================================

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