diff --git a/AcademicTransformer/transfo.geo b/AcademicTransformer/transfo.geo
index 3bb6f1001e07a61d071ad08d76704727f3bfc34a..f1f1c998c220a45e751e63630769f4baea392bb4 100644
--- a/AcademicTransformer/transfo.geo
+++ b/AcademicTransformer/transfo.geo
@@ -226,3 +226,4 @@ EndIf
 
 Geometry.OldNewReg = 1;
 Geometry.AutoCoherence = 1;
+//View.RangeType = a
diff --git a/AcademicTransformer/transfo.pro b/AcademicTransformer/transfo.pro
index 043ff0cac85fb09c33ac259c969e12eb236148cf..9c739e13ab667302f79ebb678593cb00c7db2553 100644
--- a/AcademicTransformer/transfo.pro
+++ b/AcademicTransformer/transfo.pro
@@ -104,7 +104,7 @@ Function {
   val_Current~{2} = -1. ;
   // avec couplage circuit:
   DefineConstant[ Val_Ein = {100., Name "Input/V1 (V)"}] ;
-  DefineConstant[ R_charge = {1000, Name "Input/R2 (Ohms)"}];
+  DefineConstant[ R_charge = {1000, Min 0.1, Max 10000, Step 1, Name "Input/R2 (Ohms)"}];
 
   // Will be used only if Core in DomainC_Mag
   DefineConstant[ sigmaCore = {2.5e7/1000, Name "Input/sigma", Label "sigma (S/m)"} ] ;
diff --git a/Waveguides/waveguide2D_Hbend.dat b/Waveguides/waveguide2D_Hbend.dat
index 8ed4b4dbf22d4391e9474216e4880b7683cb61b5..ba17a1b6de0caed34d94eefb37ecc72d8532fa2b 100644
--- a/Waveguides/waveguide2D_Hbend.dat
+++ b/Waveguides/waveguide2D_Hbend.dat
@@ -25,7 +25,7 @@ DefineConstant[
     Name StrCat[catParam1,"1Length of Domain [cm]"]},
   W = { 4, Min 1, Max 100, Step 1,
     Name StrCat[catParam1,"2Width of Domain [cm]"]},
-  R = { 6, Min 1, Max 100, Step 1,
+  R = { 6, Min W/2+0.1, Max 100, Step 1, ReadOnlyRange 1,
     Name StrCat[catParam1,"3Radius at bend [cm]"]},
   res = { 0.5, Min 0.1, Max 5, Step 0.1,
     Name StrCat[catParam3,"1Resolution of grid [cm]"]}