![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Ada
adacore
有爱,有天下
展开
-
卧式筒形液位计算问题
实际生产中存在不少卧式圆筒形的容器,液位计算也不是个简单的线性关系,实际上还相当复杂。已知下图高度x求取面积要相对简单些,而反过来根据面积求x却异常麻烦。Maple解:当x=0时,解值为-Pi*r^2/2 ,定积分则为 A+Pi*r^2/2 。可以使用逼近法来根据已知面积来解x 。At := Pi*(r**2)/2.0 ;x := r ;loopAs :=( (r**2)*arctan((-r+x)/((2.0*r*x-x**2)**0.5...原创 2021-08-02 14:25:23 · 250 阅读 · 0 评论 -
Ada包被动共享 Shared_Passive
有时我们需要在一个包中定义一些公用的数据,可以被几个独立的程序共享使用 . 在不使用编译指令Shared_Passive之前这是很难直接办到的,将不得不使用文件手段或shu'ju原创 2021-06-02 22:41:33 · 204 阅读 · 2 评论 -
Ada计算机图形DirectX之ddraw
------------------------------------------ File : ddraw.ads ---- Translator:Dongfeng.Gu,2018/10/29 ---- Mail: 515639@qq.com ---- Progress:100% ...原创 2018-10-29 09:30:08 · 432 阅读 · 0 评论 -
Ada计算机图形DirectX之D2D1
------------------------------------------ Microsoft DirectX Ada binding lib ---- File : D2D1.ads ---- Translator:Dongfeng.Gu,2018/10/31 ---- Mail: 515639@qq.com ...原创 2018-10-31 22:07:34 · 588 阅读 · 0 评论 -
Ada计算机图形DirectX之D2Derr
------------------------------------------ Microsoft DirectX Ada binding lib ---- File : D2Derr.ads ---- Translator:Dongfeng.Gu,2018/10/31 ---- Mail: 515639@qq.com ...原创 2018-10-31 22:34:18 · 399 阅读 · 0 评论 -
Ada计算机图形DirectX之dxdiag
------------------------------------------ File : dxdiag.ads ---- Translator:Dongfeng.Gu,2018/10/30 ---- Mail: 515639@qq.com ---- Progress:100% ...原创 2018-10-30 09:05:07 · 200 阅读 · 0 评论 -
Ada计算机图形DirectX之DxErr
with win32; use win32;with win32.objbase; use win32.objbase;package DxErr is function DXGetErrorStringA(hr:HRESULT) return LPCCH with Import,Convention=>stdcall...原创 2018-10-30 09:41:03 · 225 阅读 · 0 评论 -
Ada计算机图形DirectX之dxfile
------------------------------------------ File : dxfile.ads ---- Translator:Dongfeng.Gu,2018/10/30 ---- Mail: 515639@qq.com ---- Progress:100% ...原创 2018-10-30 10:08:52 · 190 阅读 · 0 评论 -
Ada计算机图形DirectX之X3DAudio
------------------------------------------ File : X3DAudio.ads ---- Translator:Dongfeng.Gu,2018/10/30 ---- Mail: 515639@qq.com ---- Progress:100% ...原创 2018-10-30 13:16:12 · 323 阅读 · 0 评论 -
Ada计算机图形DirectX之xma2defs
------------------------------------------ File : xma2defs.ads ---- Translator:Dongfeng.Gu,2018/10/30 ---- Mail: 515639@qq.com ---- Progress:100% ...原创 2018-10-30 14:44:45 · 165 阅读 · 0 评论 -
Ada计算机图形DirectX之XAudio2
------------------------------------------ File : XAudio2.ads ---- Translator:Dongfeng.Gu,2018/10/30 ---- Mail: 515639@qq.com ---- Progress:100% ...原创 2018-10-30 21:48:53 · 317 阅读 · 1 评论 -
Ada计算机图形DirectX之XAPO
------------------------------------------ Microsoft DirectX Ada Binding Lib ---- File : XAPO.ads ---- Translator:Dongfeng.Gu,2018/11/06 ---- Mail: 515639@qq.com ...原创 2018-11-06 08:45:18 · 204 阅读 · 0 评论 -
Ada计算机图形DirectX之DWrite
------------------------------------------ File : DWrite.ads ---- Translator:Dongfeng.Gu,2018/10/31 ---- Mail: 515639@qq.com ---- Progress:100% ...原创 2018-10-31 21:58:53 · 1030 阅读 · 1 评论 -
Ada计算机图形DirectX之D3D10_1shader
------------------------------------------ File : d3d10_1shader.ads ---- Translator:Dongfeng.Gu,2018/10/24 ---- Mail: 515639@qq.com ---- Progress:100% ...原创 2018-10-24 21:35:25 · 211 阅读 · 0 评论 -
Ada计算机图形DirectX之dinputd
------------------------------------------ File : dinputd.ads ---- Translator:Dongfeng.Gu,2018/10/29 ---- Mail: 515639@qq.com ---- Progress:100% ...原创 2018-10-29 10:20:32 · 235 阅读 · 0 评论 -
Ada计算机图形DirectX之dsconf
------------------------------------------ File : dsconf.ads ---- Translator:Dongfeng.Gu,2018/10/29 ---- Mail: 515639@qq.com ---- Progress:100% ...原创 2018-10-29 11:03:18 · 125 阅读 · 0 评论 -
Ada计算机图形DirectX之D3D11SDKLayers
------------------------------------------ File : d3d10sdklayers.ads ---- Translator:Dongfeng.Gu,2018/10/26 ---- Mail: 515639@qq.com ---- Progress:100% ...原创 2018-10-26 09:21:16 · 450 阅读 · 0 评论 -
Ada计算机图形DirectX之D3Dcompiler
------------------------------------------ File : D3Dcompiler.ads ---- Translator:Dongfeng.Gu,2018/10/26 ---- Mail: 515639@qq.com ---- Progress:100% ...原创 2018-10-26 09:47:26 · 474 阅读 · 0 评论 -
Ada计算机图形DirectX之D3DX11core
------------------------------------------ File : D3DX11core.ads ---- Translator:Dongfeng.Gu,2018/10/26 ---- Mail: 515639@qq.com ---- Progress:100% ...原创 2018-10-26 10:35:23 · 235 阅读 · 0 评论 -
Ada计算机图形DirectX之D3DX11
------------------------------------------ File : D3DX11.ads ---- Translator:Dongfeng.Gu,2018/10/26 ---- Mail: 515639@qq.com ---- Progress:100% ...原创 2018-10-26 10:37:20 · 187 阅读 · 0 评论 -
Ada计算机图形DirectX之dsetup
------------------------------------------ File : dsetup.ads ---- Translator:Dongfeng.Gu,2018/10/29 ---- Mail: 515639@qq.com ---- Progress:100% ...原创 2018-10-29 11:20:14 · 169 阅读 · 0 评论 -
Ada计算机图形DirectX之dvp
------------------------------------------ File : dvp.ads ---- Translator:Dongfeng.Gu,2018/10/29 ---- Mail: 515639@qq.com ---- Progress:100% ...原创 2018-10-29 13:32:46 · 179 阅读 · 0 评论 -
Ada计算机图形DirectX之D3DX11tex
------------------------------------------ File : D3DX11tex.ads ---- Translator:Dongfeng.Gu,2018/10/26 ---- Mail: 515639@qq.com ---- Progress:100% ...原创 2018-10-26 11:09:45 · 459 阅读 · 2 评论 -
Ada计算机图形DirectX之D3DX11async
------------------------------------------ File : d3dx11async.ads ---- Translator:Dongfeng.Gu,2018/10/26 ---- Mail: 515639@qq.com ---- Progress:100% ...原创 2018-10-26 11:10:50 · 320 阅读 · 0 评论 -
Ada计算机图形DirectX之XAPOFX
------------------------------------------ Microsoft DirectX Ada Binding Lib ---- File : XAPOFX.ads ---- Translator:Dongfeng.Gu,2018/11/06 ---- Mail: 515639@qq.com ...原创 2018-11-06 09:01:43 · 191 阅读 · 0 评论 -
Ada计算机图形DirectX之gameux
------------------------------------------ Microsoft DirectX Ada binding lib ---- File : gameux.ads ---- Translator:Dongfeng.Gu,2018/11/03 ---- Mail: 515639@qq.com ...原创 2018-11-03 19:57:40 · 256 阅读 · 0 评论 -
16位浮点转32位浮点
在DX中有着半精度浮点转单精度浮点的详细函数,我们先来了解一下数据的存储结构。 type Bits1 is mod 2**1; type Bits4 is mod 2**4; type Bits5 is mod 2**5; type Bits7 is mod 2**7; type Bits8 is mod 2**8; type Bits10 i...原创 2018-12-01 17:52:36 · 4931 阅读 · 0 评论 -
宝书课程#1:Ada 2005中的受限类型 --受限集合
宝书课程#1:Ada 2005中的受限类型--受限集合by Bob Duff—AdaCoreTranslator:Dongfeng.Gu让我们开始吧…一个Ada我所喜欢的特征是对于集合的“全覆盖规则”。例如,假设我们有一个记录类型: type Person is record Name : Unbounded_String; ...翻译 2018-12-16 21:48:32 · 168 阅读 · 0 评论 -
Ada语言宝书 #2: Ada 2005 受限类型 — 集合中的 默认值 标记
宝书 #2: Ada 2005 受限类型 — 集合中的<>标记by Bob Duff—AdaCoreTranslator:Dongfeng.Gu让我们开始…上周,我们提到Ada2005允许为受限类型提进行合声明。这样的一个集合必须用于初始化某个对象(其中包括参数传递,我们进行形式参数的初始化)。受限(对象的)集合(声明)是在对象初始化的地方现场创建。这里是例程:...翻译 2018-12-16 22:36:44 · 277 阅读 · 0 评论 -
Ada语言宝书课程#3:Ada 2005 受限类型— 构造函数
宝书课程 #3: Ada 2005 受限类型— 构造函数by Bob Duff—AdaCoreTranslator:Dongfeng.Gu让我们开始…考虑到Ada2005允许受限类型的现场集合(声明),下一步显然是要将这样的集合包装到抽象中--有名的,从函数返回它们。毕竟,有趣的类型通常是私有的,我们也需要一些方法让客户端创建和初始化对象。 package P is ...翻译 2018-12-17 12:35:25 · 180 阅读 · 0 评论 -
Windows遍历文件夹
最近在弄遍历文件夹的事情,也了解一些情况。调用FindFirstFile的结果是文件夹 "."第一次调用FindNextFile的结果是文件夹 ".." type LPSTR is access all String; type LPSTR_ARRAY is array(Natural range<>) of LPSTR; type...原创 2019-01-09 21:29:32 · 1010 阅读 · 0 评论 -
获取文件最后写入时间
subtype FILETIME is QWord; type WIN32_FIND_DATAA is record FileAttributes : DWORD; CreationTime : FILETIME; LastAccessTime : FILETIME; LastWriteTime ...原创 2019-07-06 20:25:16 · 775 阅读 · 0 评论 -
Ada中的数值文字之美
Ada语言中数值文字之间可以用单个下划线进行分隔,对比如下π值书写:3.14159_26535_89793_23846_26433_83279_50288_41971_69399_375103.14159265358979323846264338327950288419716939937510前者看起来更易读、清晰、易写,后者把人眼睛都看花了。Ada语言中还有基型数值写法,像 2...原创 2019-07-06 20:52:48 · 228 阅读 · 0 评论 -
Ada制作DLL
我们可以使用gnatdll工具来制作动态链接库。先贴一个最为简单的代码:package myLib is -- C方式导出 function add(a,b:integer) return integer is (a+b); pragma export(c,add,"add"); -- stdcall方式导出 function sub(a,b...原创 2019-07-25 18:44:33 · 263 阅读 · 3 评论 -
Ada计算机图形DirectX之XDSP
------------------------------------------ Microsoft DirectX Ada binding lib ---- File : XDSP.ads ---- Translator:Dongfeng.Gu,2018/11/19 ---- Mail: 515639@qq.com ...原创 2018-11-19 13:58:29 · 485 阅读 · 0 评论 -
Ada计算机图形DirectX之d3dx9math
------------------------------------------ Microsoft DirectX Ada binding lib ---- File : d3dx9math.ads ---- Translator:Dongfeng.Gu,2018/11/15 ---- Mail: 515639@qq.com ...原创 2018-11-15 12:47:33 · 396 阅读 · 0 评论 -
关于函数mm_shuffle_ps的实现
该函数在C++里是: __m128 __mm_shuffle_ps(__m128 v1,__m128 v2,UINT32 i);该功能的实现依赖于一条SSE指令,SHUFPS XMM,XMM/M,IMM,第3个参数必须是立即数,这个该死的指令讲使得mm_shuffle_ps(v1,v2:XVECTOR;ui:UINT32) return XVECTOR 实现起来相当困难。 ...原创 2018-11-20 23:14:24 · 2806 阅读 · 0 评论 -
Ada计算机图形DirectX之d3dx10math
------------------------------------------ Microsoft DirectX Ada binding lib ---- File : d3dx10math.ads ---- Translator:Dongfeng.Gu,2018/11/15 ---- Mail: 515639@qq.com ...原创 2018-11-15 15:04:07 · 239 阅读 · 0 评论 -
Ada计算机图形DirectX之PIXPlugin
------------------------------------------ Microsoft DirectX Ada Binding Lib ---- File : PIXPlugin.ads ---- Translator:Dongfeng.Gu,2018/11/05 ---- Mail: 515639@qq.com ...原创 2018-11-05 09:21:01 · 253 阅读 · 0 评论 -
Ada计算机图形DirectX之rmxfguid
------------------------------------------ Microsoft DirectX Ada Binding Lib ---- File : rmxfguid.ads ---- Translator:Dongfeng.Gu,2018/11/05 ---- Mail: 515639@qq.com ...原创 2018-11-05 09:22:04 · 189 阅读 · 0 评论