x、nに値は入っています。

初心者でトンチンカンな事を聞いてるみたいですみません。

>それとThresholdはMathematica自身の関数として定義済みでは？

これ、そもそも○○[x_]などと定義するのが間違ってるって事でしょうか？
xに値が入るなら○○[x_]と定義する必要がない、と。

>それと、Potential_value =と_valueをつけると変数にセットできないんじゃありませんか？私の使ってるバージョンではできません

たしかにできないみたいです。
すみません。

x,nをループで回して、
Potential = 0.5*k*x^2;
Threshold = 10*n;

If[Potential >= threshold,
Force[v_] := -k*x-G*v;];

というようにすればいいのですかね。