limit smallest radius

AcademicTransformer/transfo.geo

@@ -226,3 +226,4 @@ EndIf
 
 Geometry.OldNewReg = 1;
 Geometry.AutoCoherence = 1;
+//View.RangeType = a

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)"} ] ;

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]"]}