Форматирование чисел при записи в файлы в Mathematica

Это продолжение этого вопроса о форматировании чисел и связанного с моим предыдущим вопросом о получении очень специфичного вывода Mathematica в текстовые файлы .

Мне часто приходится использовать в системе Mathematica высокую точность для генерации данных, но для визуализации требуется только относительно низкая точность. Я также хочу сохранить данные для последующего использования с сохранением всех имен символов и структур массивов. Для этого я использовал Сохранить [] , но есть две связанные проблемы.

1. Высокая точность «загрязняет» мои результаты лишними цифрами, от которых очень трудно избавиться:

    In [1]: = b = SetPrecision [7, 50]; а = Pi / b
   Выход [1]: = 0,44879895051282760549466334046850041202816705705358654585356351318683091518373`50.
   В [2]: = InputForm @ N [a, 6]
   Выход [2]: = 0,44879895051282760549466334046850041203`6.
   У меня нет проблем с отображением чисел, отслеживанием точности чисел или изменением точности чисел. У меня проблемы с управлением записью числа в файл. 
   
    Использование  N ,  NumberForm ,  OutputForm ,  InputForm ,  * Форма  и т. Д. Не работают должным образом с  Сохранить . И  Сохранить  - это единственный вариант экспорта, который я могу найти, который экспортирует структуру символов и массивов.  Export  и  Put *  могут использоваться для лучшего управления форматированием, но они не включают символ (а в случае  Export  структура массива теряется также).