latex 改行までの文字数が少なすぎる

Question

前提・実現したいこと

次のlatexコードにおいて、
1行あたりに書き込める文字数を増やしたい

該当のソースコード

\documentclass[portland,twocolumn,10pt]{jarticle}
\AtBeginDvi{\special{landscape}}%%%
\usepackage[margin=15mm]{geometry}
\setlength{\columnsep}{31zw}
\title{\TeX とは}

%%%%%%    TEXT START    %%%%%%
\begin{document}

\section{}
項がすべてcである数列｛${a_k}$｝では、
${a_k}$=cであるから

[\sum_{k=1}^n a_k = c+c+c+\cdots+c = nc]

となる。すなわち、

[\sum_{k=1}^n c = nc]

であり、とくに、

[\sum_{k=1}^n 1 = n]

である。



\newpage
\section{練習}

aa
\end{document}

試したこと

プリアンブルに
\makeatletter
\def\mojiparline#1{
\newcounter{mpl}
\setcounter{mpl}{#1}
@tempdima=\linewidth
\advance@tempdima by-\value{mpl}zw
\addtocounter{mpl}{-1}
\divide@tempdima by \value{mpl}
\advance\kanjiskip by@tempdima
\advance\parindent by@tempdima
}
\makeatother
\def\linesparpage#1{
\baselineskip=\textheight
\divide\baselineskip by #1
}

ドキュメントの中で
\mojiparline{35}

\linesparpage{34}
を指定しても
1行あたりの文字数は増えず、
文字が重なって表示されるようになり、
むしろ悪化した。

補足情報（FW/ツールのバージョンなど）

texworks を使用

Answer 1

全体を横置きにするのでよければこんな感じでいかがでしょう。
目的から外れていたらすみません。
\columnsepの幅は適当に変えました。

\documentclass[portland,landscape,twocolumn,10pt]{jarticle}
%\AtBeginDvi{\special{landscape}}%%%
\usepackage[margin=15mm]{geometry}
\setlength{\columnsep}{3zw}