Wolfram mathematica Mathematica中的自组织映射（SOMs）

有人知道或拥有Mathematica中SOM的合理实现吗？

有一个名为Mathematica的第三方软件包，它实现自组织映射

谢谢，我知道这个。我在找一些免费的代码。我很确定我可以自己编写，但如果有必要的话，我宁愿改进现有的代码。