Качала, В. В. Принципы создания пакета прикладных графических программ на языке Турбо-Паскаль (на примере задач геофизики) / под ред. А. А. Намгаладзе. – Апатиты : ПГИ КНЦ РАН, 1993.

татьбкачестверазмахашкалыосиX - вх. Например, пусть Р у - 756,2, аД£-0,2 (или20%), тогдаД/?х-907,24. Искомоезна чениеRx лежитвдиапазоне756,2..907,24 иравно800. Чтобыопределять RX, автоматическипредлагаетсяследую щаяпроцедура (пример3.6). Если |/?хі<1. тоонопоследова тельноумножаетсяна10 дотехпор, пока |£х-10пі<Л/?-10 (rt-1,2,...), если і/?х!>1, то последовательноделитсяна10 дотехпор, пота !/?х-10п|>Д/?-100 (п=-1,-2 ,...). Врезультате получаеммасштабныймножительМХ=10Г1. Далее, еслиxmax > О, топроизводитсяокруглениевеличиныxmax-Afx+0,4999, впро тивномслучае отбрасываетсядробнаячастьотхтах-Мх. В результатеполучаемцелоезначение/max (Umaxl > ІХщах-WxD- Аналогичнымобразомполучается in (Umini < Umin-Wxl). Ихразность Rl-Imax-Imm Дает возможностьоце нитьбудущийразмахшкалы. Пример3.6 ѵаг RI, RIU, Noc : integer; A, Mmin, Mnax : real; begin A :~ ABS (Rx); MX 1; if A > 1 then while begin A : else while begin A A > 20 do - A/10; Me A < 2 do - A*10; Me tonax :~ xmax / Mx; kftnin xmin if xmax > 0 then Imax ROUND else Imax :- TRUNC if xmin > 0 then Imin TRUNC else Imin ROUND Imax - Imin; RIU Rl; RI case RI of 2 : 3; 4: 5: 6 : 7,8: 9,10: 1 1 , 1 2 : 13..16: 17..20: end; { case > Imax :- Imin Noc Noc Noc Noc begin Noc begin Noc begin Noc begin Noc begin Noc begin Noc + RIU; 6 8 10 6 8 10 6 8 10 Me * 10 end :- Me / 10 end; / Mx: (Mmax + 0.4999) (Mmax); (Mmin) (Mmin - 0.4999); RIU :- 6 end RIU :- 8 end RIU :- 10 end RIU :- 12 end RIU :- 16 end RIU :- 20 end end; 43