Subversion Repositories wimsdev

Rev

Rev 8584 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8584 Rev 13594
Line 1... Line 1...
1 
!if  $wims_read_parm!=slib_header
 1 
!if  $wims_read_parm!=slib_header
2 
 !goto proc
 2 
  !goto proc
3 
!endif
 3 
!endif
4 
 
 4 
 
5 
slib_author=Georges, Khaznadar
 5 
slib_author=Georges, Khaznadar
6 
 
 6 
 
7 
slib_example= ,,,,,,,,,[],0,0,1.2,1.5,2.4,3.2\
 7 
slib_example= ,,,,,,,,,[],0,0,1.2,1.5,2.4,3.2\
Line 43... Line 43...
43 
  !! of 1, 2 or 5.
 43 
  !! of 1, 2 or 5.
44 
  slib_log=$[log10($slib_xs/($slib_xd-$slib_xo))]
 44 
  slib_log=$[log10($slib_xs/($slib_xd-$slib_xo))]
45 
  slib_logint=$[floor($slib_log)]
 45 
  slib_logint=$[floor($slib_log)]
46 
  slib_logmant=$[$slib_log-$slib_logint]
 46 
  slib_logmant=$[$slib_log-$slib_logint]
47 
  !if $slib_logmant > $[log10(5)]
 47 
  !if $slib_logmant > $[log10(5)]
48 
     slib_xs=1e$[$slib_logint+1]
 48 
    slib_xs=1e$[$slib_logint+1]
49 
  !else
 49 
  !else
50 
    !if $slib_logmant > $[log10(2)]
 50 
    !if $slib_logmant > $[log10(2)]
51 
      slib_xs=5e$slib_logint
 51 
      slib_xs=5e$slib_logint
52 
    !else
 52 
    !else
53 
      slib_xs=2e$slib_logint
 53 
      slib_xs=2e$slib_logint
Line 68... Line 68...
68 
  !! of 1, 2 or 5.
 68 
  !! of 1, 2 or 5.
69 
  slib_log=$[log10($slib_ys/($slib_yd-$slib_yo))]
 69 
  slib_log=$[log10($slib_ys/($slib_yd-$slib_yo))]
70 
  slib_logint=$[floor($slib_log)]
 70 
  slib_logint=$[floor($slib_log)]
71 
  slib_logmant=$[$slib_log-$slib_logint]
 71 
  slib_logmant=$[$slib_log-$slib_logint]
72 
  !if $slib_logmant > $[log10(5)]
 72 
  !if $slib_logmant > $[log10(5)]
73 
     slib_ys=1e$[$slib_logint+1]
 73 
    slib_ys=1e$[$slib_logint+1]
74 
  !else
 74 
  !else
75 
    !if $slib_logmant > $[log10(2)]
 75 
    !if $slib_logmant > $[log10(2)]
76 
      slib_ys=5e$slib_logint
 76 
      slib_ys=5e$slib_logint
77 
    !else
 77 
    !else
78 
      slib_ys=2e$slib_logint
 78 
      slib_ys=2e$slib_logint
Line 127... Line 127...
127 
 
 127 
 
128 
slib_val=$[-$slib_xo*$slib_xs]
 128 
slib_val=$[-$slib_xo*$slib_xs]
129 
slib_dessin=$slib_dessin\
 129 
slib_dessin=$slib_dessin\
130 
linewidth 1
 130 
linewidth 1
131 
!for slib_x from 0 to  10*$slib_xd step 10
 131 
!for slib_x from 0 to  10*$slib_xd step 10
132 
 slib_dessin=$slib_dessin\
 132 
  slib_dessin=$slib_dessin\
133 
 text blue,$[$slib_x+1],$[10*$slib_yo-1],medium,$slib_val
 133 
  text blue,$[$slib_x+1],$[10*$slib_yo-1],medium,$slib_val
134 
 slib_val=$[$slib_val+$slib_xs]
 134 
  slib_val=$[$slib_val+$slib_xs]
135 
!next slib_x
 135 
!next slib_x
136 
!if $slib_labx != $empty
 136 
!if $slib_labx != $empty
137 
  slib_dessin=$slib_dessin\
 137 
  slib_dessin=$slib_dessin\
138 
  text blue,$[$slib_x-20],$[10*$slib_yo-6],medium,$slib_labx
 138 
  text blue,$[$slib_x-20],$[10*$slib_yo-6],medium,$slib_labx
139 
!endif
 139 
!endif
140 
 
 140 
 
141 
!! axe_y
 141 
!! axe_y
142 
slib_dessin=$slib_dessin\
 142 
slib_dessin=$slib_dessin\
Line 148... Line 148...
148 
 
 148 
 
149 
slib_val=$[-$slib_yo*$slib_ys]
 149 
slib_val=$[-$slib_yo*$slib_ys]
150 
slib_dessin=$slib_dessin\
 150 
slib_dessin=$slib_dessin\
151 
linewidth 1
 151 
linewidth 1
152 
!for slib_y from 0 to  10*$slib_yd step 10
 152 
!for slib_y from 0 to  10*$slib_yd step 10
153 
 slib_dessin=$slib_dessin\
 153 
  slib_dessin=$slib_dessin\
154 
 text blue,$[10*$slib_xo+1],$[$slib_y-1],medium,$slib_val
 154 
    text blue,$[10*$slib_xo+1],$[$slib_y-1],medium,$slib_val
155 
 slib_val=$[$slib_val+$slib_ys]
 155 
  slib_val=$[$slib_val+$slib_ys]
156 
!next slib_y
 156 
!next slib_y
157 
!if $slib_laby != $empty
 157 
!if $slib_laby != $empty
158 
  slib_dessin=$slib_dessin\
 158 
  slib_dessin=$slib_dessin\
159 
  text blue,$[10*$slib_xo-9],$[$slib_y-10],medium,$slib_laby
 159 
  text blue,$[10*$slib_xo-9],$[$slib_y-10],medium,$slib_laby
160 
!endif
 160 
!endif
Line 162... Line 162...
162 
!!!!!!!!!!!!!!!!! end grid !!!!!!!!!!!!!!!!!!!!!!!!!
 162 
!!!!!!!!!!!!!!!!! end grid !!!!!!!!!!!!!!!!!!!!!!!!!
163 
 
 163 
 
164 
!! red dots : the correct list
 164 
!! red dots : the correct list
165 
n1=!itemcnt $slib_correct
 165 
n1=!itemcnt $slib_correct
166 
!for i from 1 to $n1 step 2
 166 
!for i from 1 to $n1 step 2
167 
!if $i < $n1
 167 
  !if $i < $n1
168 
 slib_x=!item $i of $slib_correct
 168 
    slib_x=!item $i of $slib_correct
169 
 slib_x=$[10*$slib_x/$slib_xs]
 169 
    slib_x=$[10*$slib_x/$slib_xs]
170 
 slib_y=!item $[$i+1] of $slib_correct
 170 
    slib_y=!item $[$i+1] of $slib_correct
171 
 slib_y=$[10*$slib_y/$slib_ys]
 171 
    slib_y=$[10*$slib_y/$slib_ys]
172 
 slib_x1=$[10*$slib_xo+$slib_x-0.6]
 172 
    slib_x1=$[10*$slib_xo+$slib_x-0.6]
173 
 slib_x2=$[10*$slib_xo+$slib_x+0.6]
 173 
    slib_x2=$[10*$slib_xo+$slib_x+0.6]
174 
 slib_y1=$[10*$slib_yo+$slib_y-0.6]
 174 
    slib_y1=$[10*$slib_yo+$slib_y-0.6]
175 
 slib_y2=$[10*$slib_yo+$slib_y+0.6]
 175 
    slib_y2=$[10*$slib_yo+$slib_y+0.6]
176 
 !! add one red dot
 176 
    !! add one red dot
177 
 slib_dessin=$slib_dessin\
 177 
    slib_dessin=$slib_dessin\
178 
 linewidth 2\
 178 
    linewidth 2\
179 
 segment $slib_x1,$slib_y1,$slib_x2,$slib_y2,red\
 179 
    segment $slib_x1,$slib_y1,$slib_x2,$slib_y2,red\
180 
 segment $slib_x2,$slib_y1,$slib_x1,$slib_y2,red
 180 
    segment $slib_x2,$slib_y1,$slib_x1,$slib_y2,red
181 
!endif $i < $n1
 181 
  !endif $i < $n1
182 
!next i
 182 
!next i
183 
 
 183 
 
184 
!! black dots
 184 
!! black dots
185 
n2=!itemcnt $slib_point
 185 
n2=!itemcnt $slib_point
186 
!for i from 1 to $n2 step 2
 186 
!for i from 1 to $n2 step 2
187 
!if $i < $n2
 187 
  !if $i < $n2
188 
 slib_x=!item $i of $slib_point
 188 
    slib_x=!item $i of $slib_point
189 
 slib_x=$[10*$slib_x/$slib_xs]
 189 
    slib_x=$[10*$slib_x/$slib_xs]
190 
 slib_y=!item $[$i+1] of $slib_point
 190 
    slib_y=!item $[$i+1] of $slib_point
191 
 slib_y=$[10*$slib_y/$slib_ys]
 191 
    slib_y=$[10*$slib_y/$slib_ys]
192 
 slib_x1=$[10*$slib_xo+$slib_x-0.6]
 192 
    slib_x1=$[10*$slib_xo+$slib_x-0.6]
193 
 slib_x2=$[10*$slib_xo+$slib_x+0.6]
 193 
    slib_x2=$[10*$slib_xo+$slib_x+0.6]
194 
 slib_y1=$[10*$slib_yo+$slib_y-0.6]
 194 
    slib_y1=$[10*$slib_yo+$slib_y-0.6]
195 
 slib_y2=$[10*$slib_yo+$slib_y+0.6]
 195 
    slib_y2=$[10*$slib_yo+$slib_y+0.6]
196 
 !! add one '$slib_dc' dot
 196 
    !! add one '$slib_dc' dot
197 
 slib_dessin=$slib_dessin\
 197 
    slib_dessin=$slib_dessin\
198 
 linewidth 2\
 198 
    linewidth 2\
199 
 segment $slib_x1,$slib_y1,$slib_x2,$slib_y2,$slib_dc\
 199 
    segment $slib_x1,$slib_y1,$slib_x2,$slib_y2,$slib_dc\
200 
 segment $slib_x2,$slib_y1,$slib_x1,$slib_y2,$slib_dc
 200 
    segment $slib_x2,$slib_y1,$slib_x1,$slib_y2,$slib_dc
201 
!endif $i < $n2
 201 
  !endif $i < $n2
202 
!next i
 202 
!next i
203 
 
 203 
 
204 
slib_out= $slib_dessin
 204 
slib_out= $slib_dessin