11

MUMPSサンプルコードが必要な分析ツールに取り組んでいます。誰かが私にMUMPSライブコードまたはサンプルコードを提供できますか？また、同じためのいくつかのリンクを提案します。

4

7 に答える 7

24

これは私が楽しみのために書いたいくつかの MUMPS です。これを分析できれば、ツールが機能すると思います。

Q N R,Q,C,D,E,W,B,G,H,S,T,U,V,F,L,P,N,J,A S N=$G(N),Q='N,F=Q+Q,P=F+F,W=$L($T(Q))
 S W=$E(W,Q),S='N_+N,W=W-F*S,L=$G(L),R=$C(Q_F_P),R(F)=$C(F+Q_F),R(P)=$C(W-F) W #
 S T=$E($T(Q+F),F,W\S)_$C(W+S+F) X T S B=$P(T,$C(P_P),F),C=B\(W*W),D=B-(C*W*W)\W
 F G=S-Q:F:S+F+Q S E=B-(C*W*W+(D*W)),H=$E($T(Q),G),@H=$S(@H<S:'Q,Q:N)_@H,T=C_D_E
 F A=Q:Q:W\S S J=$E(T,A),C(F)=$S(J>(F+Q)&(J<(S-F)):Q,Q:+N),C(P)=$S(J#F:Q,Q:+N) D
 .S C(Q)=$S(J<(S-F):+N,Q:Q),C(F+Q)=$S(J>Q&(J<(S-F))&(J'=(P+'L))&(J'=(P)):Q,Q:+N)
 .S H('L)=L F  S H(N?.E)=$O(C(H('$G(N)))) Q:H('+L)=L  S F(A,H('L))=C(H(W[(W\S)))
 F U=Q:Q:P W !,R F V=Q:Q:P+F W $S(F(V,U):'Q,Q:$C(P_(W\S))) W:'(V#F) $C('N_F_F+F)
 W !!,R(F)_C_R(P)_D_R(P)_E_R(F) X $RE($E($T(Q),Q+F,P+Q))_R(P)_'N W # G:N=L Q+F Q

ほら、リテラルじゃない！

これはバイナリクロックを出力します:

:D Q^ROU


|..|..|..|
|..|..|.0|
|..|.0|0.|
|..|00|..|

 00:13:24
于 2011-06-15T22:14:42.177 に答える
4

GitHub は実際には多くの MUMPS ソフトウェアをホストしていますが、残念ながら Objective-C または Matlab としてタグ付けされているため、そこで MUMPS コードを検索するのは簡単ではありません。MUMPS を少なくとも部分的に使用して行われていることがわかっているいくつかのプロジェクトを次に示します。

  1. オセーラ
  2. レイナードGT.Mサーバー
  3. GT.Mタームサイズ
  4. GT.M POSIX 拡張
  5. MUMPSのテトリス
  6. ジューシー MUMPS の例
  7. GT.M PCRE エクステンション
  8. GT.M ダイジェスト拡張
  9. データバレエ
  10. ソースキッズ
  11. MUMPS 用のソフトウェア開発ツール
于 2012-08-30T17:29:20.530 に答える
3

VistA は MUMPS で書かれた退役軍人局向けのオープン ソース EMR です。これは、VistA wiki からダウンロードできます: OpenVistA ダウンロード ページ

私は自分でダウンロードしようとはしていないので、ソースにアクセスするには MUMPS をインストールする必要があるかもしれません。幸運を！

于 2010-12-13T16:28:42.633 に答える
3

ここを見て：

http://www.faqs.org/faqs/m-technology-faq/part2/

セクション見出し「付録 6」 (二重引用符なし) までスクロール (または検索) します。

HTHネイサン

于 2011-01-19T13:16:12.640 に答える
3

これだけでは分析には不十分だと思いますが、M[UMPS] by Exampleには小さな例がたくさんあります。MUMPS ウィキペディアのページにも長いサンプルがいくつかあります。それらが独立しているかどうかはわかりません。自分でテストしていません。

于 2010-11-12T00:37:51.053 に答える