WOLFRAM

Wolfram 语言与系统参考资料中心

结合集成数据源以进行准确的分子渲染

用 ProteinData 显示蛋白质中的各个原子，其中精确的原子半径数据来自 ElementData，内置的原子的颜色来自 ColorData.

    
Wolfram Language code: With[{p = "CD2AP", cr = Dispatch@ColorData["Atoms", "ColorRules"]}, Graphics3D[MapThread[{#2 /. cr, Sphere[#1, QuantityMagnitude@ElementData[#2, "AtomicRadius"]]}&, {QuantityMagnitude@ProteinData[p, "AtomPositions"], Flatten[ProteinData[p, "AtomTypes"]]}], Boxed -> False] ]