Вставки таблицы из OriginPro в Mathematica

CreatePalette[
   Button["Paste from Origin", 
    NotebookWrite[InputNotebook[], 
     ToBoxes@((If[(ToString[#[[1]]] == 
                "$Failed") ||  (ToString[#[[2]]] == "$Failed"), 
             Missing[], #] & /@ 
           Quiet[ToExpression[{StringReplace[#[[1]], "," -> "."], 
                StringReplace[#[[2]], "," -> "."]} & /@ 
              ImportString[NotebookGet[ClipboardNotebook[]][[1, 1, 1]],
                "TSV"]]]) // DeleteMissing // Iconize)]], 
   WindowTitle -> "Minipalette"];

Палитра для Wolfram Mathematica, позволяющая вставить таблицу, скопированную из рабочей тетради Origin. Модификация метода, предложенного Szabolcs Horvát.

0
0

About Кирилл Васин

Прохожий из шапки сайта

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *