微信元素周期表: 专业版
微信小程序元素周期表已上线微信小程序几个月，自然用户 5k+
因精力有限难以维护项目，选择开源用于学习交流，为教育事业贡献个螺丝钉
捐赠
请我喝杯卡布奇诺？
本项目使用的优秀开源库
开源库
在本项目中的应用
从 iconfont 向微信小程序目录同步 svg 图标
发布前将 excel 预处理为小程序可读的 json 文件
将爬虫抓取的 html 字符串解释为肉眼字符串
gulp / sass
构建工具
数据来源
项目中的数据来源于互联网、实体书籍以及 APP，不保证权威性和准确性，如有侵犯请邮件告知。
以下为数据来源
iupac.org
wiki.com
periodicable.com
Periodic Table Pro (Android APP)
小程序特征
国际纯粹与应用化学联合会 (IUPAC) 认可的长式周期表
126 个化学元素（含有至今发现的 1
2022-10-31 14:49:35
2.29MB
1
MOID.jl
计算两个给定的共聚焦椭圆形轨道的MOID-最小轨道相交距离。 它使用旋转子午面的想法，并通过数值计算MOID。
Julia模块是波兰科学研究院空间研究中心的原始作者Hans Rickman和TomaszWiśniowski组成的Fortran程序的包装。
他们的论文中描述了该方法：
T.Wiśniowski和H.Rickman，“一种用于计算精确最小轨道相交距离（MOID）的快速几何方法”，2013年《天文学报》
本文和源代码在deps和docs子目录中提供。
安装
然后可以通过Julia的软件包管理器安装MOID.jl。 在Linux和macOS上，您需要安装Gfortran或Intel Fortran编译器才能构建二进制依赖性。
pkg > add " https://github.com/mkretlow/MOID.jl.git "
快速开始
julia
2022-10-28 16:09:26
403KB
1
问题描述：设R={r1,r2,…,rn}是要进行排列的个元素。其中元素r1,r2,…,rn 可能相同。试设计一个算法，列出R的所有不同排列。
★算法设计：给定n及待排列的n个元素。计算出这n个元素的所有不同排列。
★数据输入：由文件input.txt提供输入数据。文件的第1行是元素个数n,1≤n≤500。接下来的1行是待排列的n个元素。
★结果输出：将计算出的n个元素的所有不同排列输出到文件output.txt。文件最后1行中的数是排列总数。
2022-10-24 05:28:10
355KB
1
计算Layout上所有图形元素个数
Public void CountLayoutElements()
{IMxDocument pMxDoc =ThisDocument
IGraphicsContainer pGContainer =pMxDoc.PageLayout;
pGContainer.Reset();//确保指针指向最初的位置
IElement pElement = pGContainer.Next();
Int intGraphicCount = 0;
Do
{If TypeOf(pElement) is IGraphicElement
{ intGraphicCount = itGraphicCount +1}
pElement = pGContainer.Next();
}While(pElement=null)
MsgBox.show(“There are " & intGraphicCount & " graphics on the page“)}
Example: Count all the graphic elements on the layout
Public Sub CountLayoutElements ()
Dim pMxDoc As IMxDocument
Dim pGContainer As IGraphicsContainer
Dim pElement As IElement
Dim intGraphicCount As Integer
Set pMxDoc = ThisDocument
Set pGContainer = pMxDoc.PageLayout
pGContainer.Reset '*Make sure the pointer is on the first item
Set pElement = pGContainer.Next '*pull out the first element
Do Until pElement Is Nothing '*Loop thru all elements
If TypeOf pElement Is IGraphicElement Then
intGraphicCount = intGraphicCount + 1 '*increment the count
End If
Set pElement = pGContainer.Next '*pull out the next element
Loop
MsgBox "There are " & intGraphicCount & " graphics on the page"
Exit Sub
2022-10-20 10:31:55
4.83MB
1