画面の解像度から縦横比を求めるだけならば1億、1兆という大きな値を計算することはないので現状の速度で何ら問題はないと思います。 それでも、高速化したいのであればループ回数を減らすようにすれば良いでしょう。現状では最大I回のループが必要となっていますが、これは最大SQR(I)回で問題ありません。これによってIの値が1兆ならば理論上では最大で100万倍の高速化が可能です。 私が作った簡易関数電卓QSPでは分数計算関数FRACを用意しているのですが、これを使っても比率計算を行うことは可能です。（ただの通分機能だけど） このFRAC関数のリストはHQSP程度ですが、力業で計算しているため遅いです。