Browse code

Исправил source и определение пакета

Dmitrii Kashin authored on 10/05/2015 22:06:07
Showing 2 changed files
... ...
@@ -4,6 +4,10 @@
4 4
   (:use :common-lisp
5 5
 	:alexandria
6 6
 	:gsll)
7
-  ;; следующие символы конфликтовали между alexandria и gsll
8
-  (:shadow mean variance median standard-deviation factorial))
7
+  
8
+  (:shadow
9
+   ;; следующие символы конфликтовали между alexandria и gsll
10
+   mean variance median standard-deviation factorial
11
+   ;; следующие символы конфликтовали с теми, что я определяю в этом пакете
12
+   sigma))
9 13
 
... ...
@@ -177,10 +177,10 @@
177 177
 
178 178
 ;; источниковый член в ячейке
179 179
 (defmethod source ((vars conservative-variables))
180
-  (let ((d (- ug ul))
181
-	(sg (* -0.5 *rl* d d (signum d))))
180
+  (let* ((d (- (ug vars) (ul vars)))
181
+	 (sg (* -0.5 *rl* d d (signum d))))
182 182
     (make-instance 'conservative-variables
183
-		   :var-vector (vector 0 sg 0 -sg))))
183
+		   :var-vector (vector 0 sg 0 (- sg)))))
184 184
 
185 185
 ;; градиенты
186 186
 (defun minmod (a b)
... ...
@@ -279,7 +279,6 @@
279 279
 		   (radius left-cell 'Afull)
280 280
 		   (radius right-cell 'Afull))))))
281 281
 
282
-;(defun border-flux
283 282
 		     
284 283
 
285 284